fact: Definition make_commring (X : setwith2binop) (is : iscommringops (@op1 X) (@op2 X)) : ∑ X0 : setwith2binop, iscommringops op1 op2 := tpair (λ X : setwith2binop, iscommringops (@op1 X) (@op2 X)) X is.
imports: UniMath.Algebra.Groups UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders UniMath.Algebra.Monoids