fact: Definition ismultmonoidfuntofldfrac (X : intdom) (is : isdeceq X) : @ismonoidfun (ringmultmonoid X) (ringmultmonoid (fldfrac X is)) (tofldfrac X is) := make_dirprod (isbinop2funtofldfrac X is) (isunital2funtofldfrac X is).
imports: UniMath.Algebra.Groups UniMath.Algebra.RigsAndRings