fact: Definition pr1ring : ring -> setwith2binop := @pr1 _ (λ X : setwith2binop, isringops (@op1 X) (@op2 X)).
imports: UniMath.Algebra.Groups UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders UniMath.Algebra.Monoids