Definition rigtoring (X : rig) : ring. Proof. exists (@make_setwith2binop (rigtoringcarrier X) (rigtoringop1 X ,, rigtoringop2 X)). split. - apply (rigtoringop1axs X ,, rigtoringismonoidop2 X). - apply (rigtoringdistr X). Defined.
Require Import UniMath.Algebra.Groups. Require Import UniMath.MoreFoundations.Sets. Require Import UniMath.MoreFoundations.Orders.