fact: Definition ismonoidfuntoabmonoidfrac (X : abmonoid) (A : submonoid X) : ismonoidfun (toabmonoidfrac X A) := make_dirprod (isbinopfuntoabmonoidfrac X A) (isunitalfuntoabmonoidfrac X A).
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders