proposition: Lemma isbinopabgrdiffrelint (X : abmonoid) {L : hrel X} (is : isbinophrel L) : @isbinophrel (setwithbinopdirprod X X) (abgrdiffrelint X L).
proof: Proof. apply (isbinophrellogeqf (logeqabgrdiffrelints X L)). split. - intros a b c lab. apply (pr1 (ispartbinopabmonoidfracrelint _ (totalsubmonoid X) (isbinoptoispartbinop _ _ is)) (abgrdiffphi X a) (abgrdiffphi X b) (abgrdiffphi X c) tt lab). - intros a b c lab. apply (pr2 (ispartbinopabmonoidfracrelint _ (totalsubmonoid X) (isbinoptoispartbinop _ _ is)) (abgrdiffphi X a) (abgrdiffphi X b) (abgrdiffphi X c) tt lab). Defined.
imports: UniMath.MoreFoundations.Orders UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.Subtypes UniMath.Algebra.BinaryOperations UniMath.Algebra.Monoids