Canonical Fitting_group G := group (Fitting_group_set G).Notation "''SCN_' n ( B )" := (SCN_at n B)
  (at level 8, n at level 2, format "''SCN_' n ( B )") : group_scope.Notation "''F' ( G )" := (Fitting_group G) : Group_scope.(23.10) with (19.1), (19.2), (19.12) and (20.8) *)
Section ExtraspecialFormspace.Implicit Types (rT : finGroupType) (G H K L : {group gT}) (p : nat).Section Extraspecial.Section SCN.

Lemma charsimple_solvable G : charsimple G -> solvable G -> is_abelem G.