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