Lemma abmonoidshomabmonoid_isabmonoid (X Y : abmonoid) : @isabmonoidop (make_hSet (monoidfun X Y) (isasetmonoidfun X Y)) (λ f g : monoidfun X Y, abmonoidshombinop f g). Proof. use make_isabmonoidop. - exact (abmonoidshomabmonoid_ismonoidop X Y). - intros f g. exact (abmonoidshombinop_comm f g). Defined.
Require Import UniMath.MoreFoundations.Sets. Require Import UniMath.MoreFoundations.Orders. Require Import UniMath.Algebra.Monoids2.