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