fact: Definition rigaddiso {X Y : rig} (f : rigiso X Y) : monoidiso (rigaddabmonoid X) (rigaddabmonoid Y) := @make_monoidiso (rigaddabmonoid X) (rigaddabmonoid Y) (pr1 f) (pr1 (pr2 f)).
imports: UniMath.Algebra.Groups UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders UniMath.Algebra.Monoids