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