12 lines
235 B
Text
12 lines
235 B
Text
open tactic
|
|
|
|
set_option pp.binder_types true
|
|
|
|
example : true :=
|
|
by do
|
|
ite ← mk_const `ite,
|
|
l ← mk_congr_lemma_simp ite,
|
|
trace (congr_lemma.type l),
|
|
l ← mk_hcongr_lemma ite,
|
|
trace (congr_lemma.type l),
|
|
constructor
|