blob: b18a1575e969c3b2e6ce46cf4e9b2475e3e83c1d [file] [edit]
import Lean
open Lean
abbrev M := StateRefT Nat IO
def M.run (x : M α) (s := 0) : IO α :=
x.run' s
variable (x : M Unit)
#check id x.run