proposition: Lemma commringfraccomm2 (X : commring) (S : @subabmonoid (ringmultabmonoid X)) : iscomm (commringfracop2 X S).
proof: Proof. intros. apply (commax (abmonoidfrac (ringmultabmonoid X) S)). Defined.
imports: UniMath.Algebra.Groups UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders UniMath.Algebra.Monoids