proposition: Lemma isasetmodulefun {R : ring} (M N : module R) : isaset (R-mod(M, N)).
proof: Proof. intros. apply (isasetsubset (@pr1modulefun R M N)). - change (isofhlevel 2 (M -> N)). apply impred. intro. apply (setproperty N). - refine (isinclpr1 _ _). intro. apply isapropismodulefun. Defined.
imports: UniMath.MoreFoundations.Tactics UniMath.Algebra.RigsAndRings UniMath.Algebra.Groups UniMath.Algebra.Monoids