Proposition eq_strict_and_monotone_function {X Y : hSet} {RX : pointed_PartialOrder X} {RY : pointed_PartialOrder Y} {f g : strict_and_monotone_function RX RY} (p : ∏ (x : X), f x = g x) : f = g. Proof. use subtypePath ; [ intro ; apply isaprop_is_strict_and_monotone | ]. use funextsec. exact p. Qed.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.OrderTheory.Posets.Basics. Require Import UniMath.OrderTheory.Posets.MonotoneFunctions.