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 := H1 ,, H2.
Require Import UniMath.Algebra.Groups. Require Import UniMath.MoreFoundations.Sets. Require Import UniMath.MoreFoundations.Orders.