fact: Definition iscomptocommringfrac (X : commring) (S : @submonoid (ringmultabmonoid X)) {L : hrel X} (is0 : @isbinophrel (rigaddabmonoid X) L) (is1 : isringmultgt X L) (is2 : ∏ c : X, S c -> L c 0) : iscomprelrelfun L (commringfracgt X S is0 is1 is2) (tocommringfrac X S) := iscomptoabmonoidfrac (ringmultabmonoid X) S (ispartbinopcommringfracgt X S is0 is1 is2).
imports: UniMath.Algebra.Groups UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders UniMath.Algebra.Monoids