Definition make_directed_set {X : hSet} (PX : PartialOrder X) (I : UU) (D : I → X) (HD : is_directed PX D) : directed_set PX := I ,, (D ,, HD).
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.OrderTheory.Posets.Basics. Require Import UniMath.OrderTheory.Posets.MonotoneFunctions.