lean4-htt/tests/compiler/strictOrSimp.lean
Sebastian Ullrich 3ed67138d5 chore(*): update equation syntax in files and old parser
for f in ../../**/*.lean; do echo $f; ./patch.lean.out $f > tmp && cat tmp > $f; done
2019-08-09 11:11:34 +02:00

11 lines
223 B
Text

partial def spin : Nat → Bool
| n => spin (n)
@[inline] def C : Nat := 0
def f (b : Nat) :=
if strictOr (C == 0) (spin b) then "hello"
else "world"
def main (xs : List String) : IO Unit :=
IO.println (f xs.head.toNat)