fact: Definition weqfldfracgt_b (X : intdom) (is : isdeceq X) {R : hrel X} (is1 : isringmultgt X R) (is2 : R 1 0) (ir : isirrefl R) : commringfrac X (ringpossubmonoid X is1 is2) -> fldfrac X is := setquotfun _ _ _ (weqfldfracgtintcomp_b X is1 is2 ir).
imports: UniMath.Algebra.Groups UniMath.Algebra.RigsAndRings