Proposition isaprop_is_strict_and_monotone {X Y : hSet} (RX : pointed_PartialOrder X) (RY : pointed_PartialOrder Y) (f : X → Y) : isaprop (is_strict_and_monotone RX RY f). Proof. apply isapropdirprod. - apply isaprop_is_monotone. - apply setproperty. Qed.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.OrderTheory.Posets.Basics. Require Import UniMath.OrderTheory.Posets.MonotoneFunctions.