Lemma modulehomabmodule_ismoduleop {R : ring} {M N : module R} : ismonoidop (λ f g : R-mod(M, N), modulehombinop f g). Proof. use make_ismonoidop. - intros f g h. exact (modulehombinop_assoc f g h). - use make_isunital. + exact (unelmodulefun M N). + use make_isunit. * intros f. exact (modulebinop_lunax f). * intros f. exact (modulebinop_runax f). Defined.
Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.Algebra.RigsAndRings. Require Import UniMath.Algebra.Groups. Require Import UniMath.Algebra.Monoids.