fact: Definition commring_univalence_weq1 : commring ≃ commring' := weqtotal2asstol (λ X : setwith2binop, isringops (@op1 X) (@op2 X)) (fun y : (∑ (X : setwith2binop), isringops (@op1 X) (@op2 X)) => iscomm (@op2 (pr1 y))).
imports: UniMath.Algebra.Groups UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders UniMath.Algebra.Monoids