Lemma isirreflabgrdiffrel (X : abmonoid) {L : hrel X} (is : isbinophrel L) (isl : isirrefl L) : isirrefl (abgrdiffrel X is). Proof. apply (isirrefllogeqf (logeqabgrdiffrels X is)). intros a raa. apply (isirreflabmonoidfracrel _ (totalsubmonoid X) (isbinoptoispartbinop _ _ is) isl (weqabgrdiff X a) raa). Qed.
Require Import UniMath.MoreFoundations.Orders. Require Import UniMath.MoreFoundations.Subtypes.