fact: Definition abmonoidfracrelint (X : abmonoid) (A : subabmonoid X) (L : hrel X) : hrel (setwithbinopdirprod X A) := λ xa yb, hexists (λ c0 : A, L (((pr1 xa) + (pr1 (pr2 yb))) + (pr1 c0)) (((pr1 yb) + (pr1 (pr2 xa))) + (pr1 c0))).
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders