Proposition isPartialOrder_hProp : isPartialOrder (λ (P₁ P₂ : hProp), (P₁ ⇒ P₂)%logic). Proof. refine ((_ ,, _) ,, _). - exact (λ P₁ P₂ P₃ f g x, g(f x)). - exact (λ P x, x). - exact (λ P₁ P₂ f g, hPropUnivalence _ _ f g). Qed.
Require Import UniMath.MoreFoundations.All. Require Import UniMath.OrderTheory.Posets.Basics. Require Import UniMath.OrderTheory.Posets.PointedPosets. Require Import UniMath.OrderTheory.Posets.MonotoneFunctions. Require Import UniMath.OrderTheory.DCPOs.Core.DirectedSets. Require Import UniMath.OrderTheory.DCPOs.Core.Basics. Require Import UniMath.OrderTheory.DCPOs.Core.ScottContinuous.