proposition: Lemma im_ifactm : G \subset D -> ifactm @* (f @* G) = g @* G.
proof: Proof. exact: morphim_ifactm. Qed.
imports: mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat seq choice) mathcomp(fintype finfun bigop finset fingroup)