{R : Ring} (M : LeftModule R) : LeftModuleHomomorphism M M. Proof. snrapply Build_LeftModuleHomomorphism. - exact grp_homo_id. - reflexivity. Defined.
Require Import WildCat. Require Import Spaces.Nat.Core. Require Import Classes.interfaces.canonical_names. Require Import Algebra.Groups.Kernel Algebra.Groups.Image Algebra.Groups.QuotientGroup. Require Import Algebra.AbGroups.AbelianGroup Algebra.AbGroups.Biproduct. Require Import Rings.Ring.