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