fact: Definition monoidfuntobinopfun (X Y : monoid) : monoidfun X Y -> binopfun X Y := λ f, make_binopfun (pr1 f) (pr1 (pr2 f)).
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders