Lemma isapropismultimodulefun {I : UU} {rings : I -> ring} {MM NN : multimodule rings} (f : MM -> NN) : isaprop (ismultimodulefun f). Proof. refine (@isofhleveldirprod 1 (isbinopfun f) (ismultilinear f) (isapropisbinopfun f) _). do 3 (apply (impred 1 _); intros ?). apply setproperty. Defined.
Require Import UniMath.Algebra.Modules.Core. Require Import UniMath.Algebra.Groups. Require Import UniMath.Algebra.Monoids. Require Import UniMath.Algebra.RigsAndRings. Require Import UniMath.Foundations.Preamble. Require Import UniMath.Foundations.Sets.