refine' ⟨fun hxy z ↦ ⟨fun hxz ↦ trans_of r (symm_of r hxy) hxz,
  fun hyz ↦ trans_of r hxy hyz⟩, fun h ↦ by rwa [h]⟩
α : 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 α
hy : r y y
⊢ r x y ↔ ∀ (x_1 : α), r x x_1 ↔ r y x_1
no goals