proposition: Proposition is_strongly_maximal_cotransitive_apartness {X : dcpo} (CX : continuous_dcpo_struct X) {x y z : X} (Hz : is_strongly_maximal z) (p : x # y) : x # z ∨ y # z.
proof: Proof. refine (is_sharp_cotransitive_apartness CX _ p). apply is_sharp_is_strongly_maximal. exact Hz. 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