quot.sound : ∀ {A : Type} [s : setoid A] {a b : A}, setoid.r a b → quot.mk a = quot.mk b
propext : ∀ {a b : Prop}, (a ↔ b) → a = b