fact: Definition ringconstr {X : hSet} (opp1 opp2 : binop X) (ax11 : isgrop opp1) (ax12 : iscomm opp1) (ax2 : ismonoidop opp2) (dax : isdistr opp1 opp2) : ring := @make_ring (make_setwith2binop X (make_dirprod opp1 opp2)) (make_dirprod (make_dirprod (make_dirprod ax11 ax12) ax2) dax).
imports: UniMath.Algebra.Groups UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders UniMath.Algebra.Monoids