proposition: Proposition trans_way_below_le {x y z : X} (p : x ≪ y) (q : y ⊑ z) : x ≪ z.
proof: Proof. intros D HD. exact (way_below_elem p D (trans_dcpo q HD)). Qed.
imports: UniMath.MoreFoundations.All UniMath.OrderTheory.DCPOs.Core.DirectedSets UniMath.OrderTheory.DCPOs.Core.Basics