30 lines
641 B
Text
30 lines
641 B
Text
set_option pp.all true
|
|
|
|
open tactic list
|
|
|
|
set_option pp.goal.compact true
|
|
set_option pp.binder_types true
|
|
|
|
example : ∀ (p : Prop), p → p :=
|
|
by do env ← get_env,
|
|
trace "testing",
|
|
intros,
|
|
assumption
|
|
|
|
example : ∀ (p : Prop), p → p → p :=
|
|
by do d ← get_decl $ `nat.add,
|
|
trace $ declaration.type d,
|
|
trace "nat.rec type:",
|
|
d ← get_decl $ `nat.rec,
|
|
trace $ declaration.type d,
|
|
trace_state,
|
|
r ← result,
|
|
trace r,
|
|
intro_lst [`_, `H1, `H2],
|
|
trace "-----------",
|
|
trace_result,
|
|
trace "-----------",
|
|
trace_state,
|
|
assumption,
|
|
trace "-----------",
|
|
trace_result
|