11 lines
164 B
Text
11 lines
164 B
Text
#lang lean4
|
|
|
|
def f (x : Nat) : StateM Nat Nat := do
|
|
let y ← do
|
|
modify (·+1)
|
|
let s ← get
|
|
pure $ s + x
|
|
pure $ y + 1
|
|
|
|
theorem ex1 : (f 5).run' 2 = 9 :=
|
|
rfl
|