12 lines
279 B
Text
12 lines
279 B
Text
|
constant P : Type₁
|
||
|
|
constant P_sub : subsingleton P
|
||
|
|
attribute P_sub [instance]
|
||
|
|
constant q : P → nat → Prop
|
||
|
|
|
||
|
|
set_option blast.simp false
|
||
|
|
set_option blast.trace true
|
||
|
|
set_option trace.congruence_closure true
|
||
|
|
|
||
|
|
example (a : nat) (h₁ h₂ : P) : q h₁ a = q h₂ a :=
|
||
|
|
by blast
|