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