lean4-htt/tests/compiler/strictOrSimp.lean
Leonardo de Moura a4c69ec32c chore: fix tests
2020-10-24 16:46:21 -07:00

12 lines
223 B
Text

#lang lean4
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 0)