fact: Definition make_isrigfun {X Y : rig} {f : X -> Y} (H1 : @ismonoidfun (rigaddabmonoid X) (rigaddabmonoid Y) f) (H2 : @ismonoidfun (rigmultmonoid X) (rigmultmonoid Y) f) : isrigfun f := make_dirprod H1 H2.
imports: UniMath.Algebra.Groups UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders UniMath.Algebra.Monoids