%CF = 1 :> 'CF(G).
Proof. exact: rmorph1. Qed.

(* Class function kernel and faithful class functions *)pply/forallP=> z; rewrite -mulgA (eqP (Kx _)) Ky.
Qed.

(* Specifications: *)
Qed.
Proof. by rewrite -scaleN1r cfker_sca