fact: Definition ismonoidfun {X Y : monoid} (f : X -> Y) : UU := dirprod (isbinopfun f) (f (unel X) = (unel Y)).
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders