lean4-htt/tests/lean/liftOverLeft.lean
2021-04-24 19:33:55 -07:00

9 lines
237 B
Text

def foo1 : IO Unit := do
let f (x : IO.Ref Nat) : IO Nat :=
pure ((← x.get) + 1)
IO.println (IO.mkRef 10)
def foo2 : IO Unit := do
let rec f (x : IO.Ref Nat) : IO Nat :=
pure ((← x.get) + 1)
IO.println (IO.mkRef 10)