2015-12-04 13:51:56 -08:00
|
|
|
attribute iff [reducible]
|
2015-12-06 15:01:49 -08:00
|
|
|
set_option blast.strategy "ematch"
|
2015-12-04 13:51:56 -08:00
|
|
|
|
2015-12-04 14:03:51 -08:00
|
|
|
definition lemma1 (p : nat → Prop) (a b c : nat) : p a → a = b → p b :=
|
2015-12-04 13:51:56 -08:00
|
|
|
by blast
|
2015-12-04 14:03:51 -08:00
|
|
|
|
|
|
|
set_option pp.beta true
|
|
|
|
print lemma1
|