proposition: Lemma isreflquotrel {X : UU} {R : eqrel X} {L : hrel X} (is : iscomprelrel R L) (isl : isrefl L) : isrefl (quotrel is).
proof: Proof. intros. unfold isrefl. apply (setquotunivprop R). intro x. apply (isl x). Defined.
imports: UniMath.Foundations.Propositions