ewrite !repr_mxM // tprodE.
Qed.etG ?oZ // setIC meet_Ohm1 // meet_center_nil ?cfker_normal //.
by rewrite -subG1 not_ffulG.
Qed.ewrite groupJr // !repr_mxM ?groupM ?groupV // mxtrace_mulC repr_mxK.
Qed.

(* Specifications: *)
Lemma cfRepr_sim n1 n2 rG1 rG2 :
Lemma cfRepr_dadd rG1 rG2 :