Proposition idfun_is_strict_and_monotone {X : hSet} (RX : pointed_PartialOrder X) : is_strict_and_monotone RX RX (idfun X). Proof. split. - apply idfun_is_monotone. - apply idpath. Qed.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.OrderTheory.Posets.Basics. Require Import UniMath.OrderTheory.Posets.MonotoneFunctions.