proposition: Proposition way_below_elem {X : dcpo} {x y : X} (p : x ≪ y) (D : directed_set X) (HD : y ⊑ ⨆ D) : ∃ (i : D), x ⊑ D i.
proof: Proof. exact (p D HD). Qed.
imports: UniMath.MoreFoundations.All UniMath.OrderTheory.DCPOs.Core.DirectedSets UniMath.OrderTheory.DCPOs.Core.Basics