subst hs
α : 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 t : Set α
hs : s = {x | r x x}
⊢ t ∈ ofRel' r hs ↔ ∃ x ∈ s, t = {y | r x y}
α : 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
t : Set α
⊢ t ∈ ofRel' r ⋯ ↔ ∃ x ∈ {x | r x x}, t = {y | r x y}