2015-12-08 15:17:24 -08:00
|
|
|
constant P : Type₁
|
|
|
|
constant P_sub : subsingleton P
|
|
|
|
attribute P_sub [instance]
|
|
|
|
constant q : P → nat → Prop
|
|
|
|
|
|
|
|
set_option blast.simp false
|
2015-12-08 20:06:43 -08:00
|
|
|
set_option trace.blast true
|
2015-12-09 12:30:20 -08:00
|
|
|
set_option trace.cc true
|
2015-12-08 15:17:24 -08:00
|
|
|
|
|
|
|
example (a : nat) (h₁ h₂ : P) : q h₁ a = q h₂ a :=
|
|
|
|
by blast
|