fact: Definition make_pointed_PartialOrder {X : hSet} (RX : PartialOrder X) (x : X) (p : ∏ (y : X), RX x y) : pointed_PartialOrder X := RX ,, x ,, p.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.OrderTheory.Posets.Basics UniMath.OrderTheory.Posets.MonotoneFunctions