Section MorphSol.
Variables (gT rT : finGroupType) (D : {group gT}) (f : {morphism D >-> rT}).
Variable G : {group gT}.

(* Specifications: *)
Lemma morphim_sol : solvable G -> solvable (f @* G).
Lemma injm_sol : 'injm f -> G \subset D -> solvable (f @* G) = solvable G.
End MorphSol.