14 lines
309 B
Text
14 lines
309 B
Text
meta def basic_monitor : vm_monitor nat :=
|
|
{ init := 0, step := λ s, return (trace ("step " ++ s^.to_string) (λ u, s+1)) }
|
|
|
|
run_command vm_monitor.register `basic_monitor
|
|
|
|
set_option debugger true
|
|
|
|
example (a b : Prop) : a → b → a ∧ b :=
|
|
begin
|
|
intros,
|
|
constructor,
|
|
assumption,
|
|
assumption
|
|
end
|