fact: Definition commringfracop1int (X : commring) (S : @subabmonoid (ringmultabmonoid X)) : binop (X × S) := λ x1s1 x2s2 : dirprod X S, @make_dirprod X S (((pr1 (pr2 x2s2)) * (pr1 x1s1)) + ((pr1 (pr2 x1s1)) * (pr1 x2s2))) (@op S (pr2 x1s1) (pr2 x2s2)).
imports: UniMath.Algebra.Groups UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders UniMath.Algebra.Monoids