4 lines
125 B
Text
4 lines
125 B
Text
[cast]
|
|
λ (a a_1 : P), eq.trans (eq.refl (q a)) (congr (eq.refl q) (subsingleton.elim a a_1))
|
|
:
|
|
∀ (a a_1 : P), q a = q a_1
|