proposition: Proposition symm_is_hausdorff_separated {x y : X} (H : is_hausdorff_separated x y) : is_hausdorff_separated y x.
proof: Proof. revert H. use factor_through_squash. { apply propproperty. } intros H. induction H as [ P₁ [ P₂ [ Px [ Py H ]]]]. refine (hinhpr (P₂ ,, P₁ ,, Py ,, Px ,, _)). apply symm_are_disjoint. exact H. Qed.
imports: UniMath.MoreFoundations.All UniMath.OrderTheory.DCPOs.Core.DirectedSets UniMath.OrderTheory.DCPOs.Core.Basics UniMath.OrderTheory.DCPOs.Core.WayBelow UniMath.OrderTheory.DCPOs.Core.ScottTopology UniMath.OrderTheory.DCPOs.Core.IntrinsicApartness UniMath.OrderTheory.DCPOs.Basis.Continuous UniMath.OrderTheory.DCPOs.Basis.Basis UniMath.OrderTheory.DCPOs.Elements.Sharp