proposition: Proposition constant_is_strict_and_monotone {X : hSet} {Y : hSet} (RX : pointed_PartialOrder X) (RY : pointed_PartialOrder Y) : is_strict_and_monotone RX RY (λ _, ⊥_{RY}).
proof: Proof. split. - intros ? ? p. apply refl_PartialOrder. - apply idpath. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.OrderTheory.Posets.Basics UniMath.OrderTheory.Posets.MonotoneFunctions