fact: Definition isringfuntofldfrac (X : intdom) (is : isdeceq X) : @isringfun X (fldfrac X is) (tofldfrac X is) := make_dirprod (isaddmonoidfuntofldfrac X is) (ismultmonoidfuntofldfrac X is).
imports: UniMath.Algebra.Groups UniMath.Algebra.RigsAndRings