4 lines
248 B
Text
4 lines
248 B
Text
theorem ex1 : ∀ {p q : Prop}, (p ↔ q) → P q → P p :=
|
|
fun {p q} h h' => Eq.mpr (id (propext (P_congr p q h))) h'
|
|
theorem ex2 : ∀ {p q : Prop}, p = q → P q → P p :=
|
|
fun {p q} h h' => Eq.mpr (id (propext (P_congr p q (Iff.of_eq h)))) h'
|