Canonical cfMorph_additive := Additive cfMorph_is_linear.
Canonical cfMorph_linear := Linear cfMorph_is_linear.
Fact cfMorph_is_multiplicative : multiplicative cfMorph.
Canonical cfMorph_rmorphism := AddRMorphism cfMorph_is_multiplicative.
Canonical cfMorph_lrmorphism := [lrmorphism of cfMorph].
Hypothesis sGD : G \subset D.

(* Specifications: *)
Lemma cfMorph_inj : injective cfMorph.
Lemma cfMorph_eq1 phi : (cfMorph phi == 1) = (phi == 1).
Lemma cfker_morph_im phi : f @* cfker (cfMorph phi) = cfker phi.
Lemma sub_morphim_cfker phi (A : {set aT}) :
A \subset G -> (f @* A \subset cfker phi) = (A \subset cfker (cfMorph phi)).