11 lines
243 B
Text
11 lines
243 B
Text
@[vm_monitor]
|
|
meta def basic_monitor : vm_monitor nat :=
|
|
{ init := 0, step := λ s, return (trace ("step " ++ s^.to_string) (s+1)) >> failure }
|
|
|
|
set_option debugger true
|
|
|
|
def f : nat → nat
|
|
| 0 := 0
|
|
| (a+1) := f a
|
|
|
|
#eval trace "a" (f 4)
|