fact: Definition weqfldfracgt_f (X : intdom) (is : isdeceq X) {R : hrel X} (is0 : @isbinophrel X R) (is1 : isringmultgt X R) (is2 : R 1 0) (nc : neqchoice R) : fldfrac X is -> commringfrac X (ringpossubmonoid X is1 is2) := setquotfun _ _ _ (weqfldfracgtintcomp_f X is0 is1 is2 nc).
imports: UniMath.Algebra.Groups UniMath.Algebra.RigsAndRings