fact: Definition hrelcommringfrac0 (X : commring) (S : @submonoid (ringmultabmonoid X)) : hrel (X × S) := λ xa yb : setdirprod X S, (pr1 xa) * (pr1 (pr2 yb)) = (pr1 yb) * (pr1 (pr2 xa)).
imports: UniMath.Algebra.Groups UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders UniMath.Algebra.Monoids