11 lines
331 B
Text
11 lines
331 B
Text
open tactic
|
|
|
|
example (a : nat) : true :=
|
|
by do
|
|
trace "ite information:",
|
|
mk_const "ite" >>= get_fun_info >>= trace,
|
|
trace "eq.rec information:",
|
|
mk_const ("eq" <.> "rec") >>= get_fun_info >>= trace,
|
|
trace "and.intro information:",
|
|
mk_const ("and" <.> "intro") >>= get_fun_info >>= trace,
|
|
mk_const "trivial" >>= exact
|