proposition: Lemma injm_factm : 'injm f -> 'injm ff.
proof: Proof. by rewrite ker_factm => /trivgP->; rewrite morphim1. Qed.
imports: mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat seq choice) mathcomp(fintype finfun bigop finset fingroup)