Lemma iscontrfromzero_module (M : mod_category) : iscontr (mod_category⟦zero_module R, M⟧). Proof. refine (unelmodulefun _ _,, _). intros f; apply modulefun_paths. apply funextfun; intro x. unfold unelmodulefun; cbn. refine (!maponpaths (fun z => (pr1 f) z) (isProofIrrelevantUnit (@unel (zero_module R)) _ ) @ _). apply (monoidfununel (modulefun_to_monoidfun f)). Defined.
Require Import UniMath.Algebra.Groups. Require Import UniMath.Algebra.RigsAndRings. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.CategoryTheory.Core.Univalence. Require Import UniMath.Algebra.Modules. Require Import UniMath.Algebra.Modules.Examples. Require Import UniMath.CategoryTheory.Limits.Zero.