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