congr
α : Type u_1
inst✝² : CompleteLattice α
s✝¹ x y z : α
s✝ t : Set α
a b : α
P✝ : Partition s✝
r : α → α → Prop
inst✝¹ : IsSymm α r
inst✝ : IsTrans α r
s : Set α
P P' : Partition s
h : ∀ (x y : α), P.Rel x y ↔ P'.Rel x y
⊢ ofRel' P.Rel ⋯ = ofRel' P'.Rel ⋯
case e_r
α : Type u_1
inst✝² : CompleteLattice α
s✝¹ x y z : α
s✝ t : Set α
a b : α
P✝ : Partition s✝
r : α → α → Prop
inst✝¹ : IsSymm α r
inst✝ : IsTrans α r
s : Set α
P P' : Partition s
h : ∀ (x y : α), P.Rel x y ↔ P'.Rel x y
⊢ P.Rel = P'.Rel