proposition: Lemma iseqrelabgrdiffrelint (X : abmonoid) {L : hrel X} (is : isbinophrel L) (isl : iseqrel L) : iseqrel (abgrdiffrelint X L).
proof: Proof. split with (ispoabgrdiffrelint X is (pr1 isl)). apply (issymmabgrdiffrelint X is (pr2 isl)). Defined.
imports: UniMath.MoreFoundations.Orders UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.Subtypes UniMath.Algebra.BinaryOperations UniMath.Algebra.Monoids