fact: Definition weqfldfracgtint_b (X : intdom) {R : hrel X} (is1 : isringmultgt X R) (is2 : R 1 0) (ir : isirrefl R) (xa : dirprod X (ringpossubmonoid X is1 is2)) : dirprod X (intdomnonzerosubmonoid X) := make_dirprod (pr1 xa) (tpair _ (pr1 (pr2 xa)) (rtoneq ir (pr2 (pr2 xa)))).
imports: UniMath.Algebra.Groups UniMath.Algebra.RigsAndRings