Lemma isaprop_isaprel {X : UU} (ap : hrel X) : isaprop (isaprel ap). Proof. apply isapropdirprod. apply isaprop_isirrefl. apply isapropdirprod. apply isaprop_issymm. apply isaprop_iscotrans. Qed.
Require Import UniMath.Foundations.Propositions. Require Import UniMath.MoreFoundations.Sets. Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.MoreFoundations.DecidablePropositions.