fact: Definition make_directed {P:Poset} {I} {p : I -> P} (p_directed : isdirected p) : Directed_family P := (I,,(p,,p_directed)).
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.Combinatorics.WellOrderedSets UniMath.OrderTheory.DCPOs.AlternativeDefinitions.Dcpo