Definition pointed_PartialOrder_to_point {X : hSet} (RX : pointed_PartialOrder X) : X := pr12 RX.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.OrderTheory.Posets.Basics. Require Import UniMath.OrderTheory.Posets.MonotoneFunctions.