Proposition compact_el_way_below_le {X : dcpo} {x y : X} (p : is_compact_el x) (q : x ⊑ y) : x ≪ y. Proof. exact (trans_way_below_le p q). Qed.
Require Import UniMath.MoreFoundations.All. Require Import UniMath.OrderTheory.DCPOs.Core.DirectedSets. Require Import UniMath.OrderTheory.DCPOs.Core.Basics. Require Import UniMath.OrderTheory.DCPOs.Core.WayBelow. Require Import UniMath.OrderTheory.DCPOs.Basis.Continuous.