Sign in
◑
Theme
fuchsia
/
third_party
/
github.com
/
leanprover
/
lean4
/
refs/heads/upstream/Array.mapIdx
/
.
/
tests
/
lean
/
liftOverLeft.lean
blob: 366a207108ff5b7ecbac2c79773acaaa0d1c2fd3 [
file
] [
edit
]
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
)