proposition: Lemma iscomprelabgrdiffrelint (X : abmonoid) {L : hrel X} (is : isbinophrel L) : iscomprelrel (eqrelabgrdiff X) (abgrdiffrelint X L).
proof: Proof. apply (iscomprelrellogeqf1 _ (logeqhrelsabgrdiff X)). apply (iscomprelrellogeqf2 _ (logeqabgrdiffrelints X L)). intros x x' x0 x0' r r0. apply (iscomprelabmonoidfracrelint _ (totalsubmonoid X) (isbinoptoispartbinop _ _ is) _ _ _ _ r r0). Defined.
imports: UniMath.MoreFoundations.Orders UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.Subtypes UniMath.Algebra.BinaryOperations UniMath.Algebra.Monoids