fact: Definition abmonoidfracopint (X : abmonoid) (A : submonoid X) : binop (X × A) := @op (setwithbinopdirprod X A).
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders