proposition: 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: Proof. use subtypePath ; [ intro ; apply isaprop_is_strict_and_monotone | ]. use funextsec. exact p. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.OrderTheory.Posets.Basics UniMath.OrderTheory.Posets.MonotoneFunctions