fact: Definition intdomnonzerotopos (X : intdom) (R : hrel X) (is0 : @isbinophrel X R) (is1 : isringmultgt X R) (is2 : R 1 0) (nc : neqchoice R) (x : intdomnonzerosubmonoid X) : ringpossubmonoid X is1 is2.
imports: UniMath.Algebra.Groups UniMath.Algebra.RigsAndRings