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