fact: Definition isaddmonoidfuntofldfrac (X : intdom) (is : isdeceq X) : @ismonoidfun X (fldfrac X is) (tofldfrac X is) := make_dirprod (isbinop1funtofldfrac X is) (isunital1funtofldfrac X is).
imports: UniMath.Algebra.Groups UniMath.Algebra.RigsAndRings