proposition: Lemma abelian_norm_Puig n G A : n > 0 -> abelian A -> A <| G -> A \subset 'L_{n}(G).
proof: Proof. case: n => // n _ cAA /andP[sAG nAG]. rewrite PuigS sub_gen // bigcup_sup // inE sAG /norm_abelian cAA andbT. exact: subset_trans (Puig_at_sub n G) nAG. Qed.
imports: mathcomp.ssreflect.ssreflect mathcomp(ssrbool ssrfun eqtype ssrnat seq div) mathcomp(fintype bigop prime finset ssralg fingroup morphism) mathcomp(automorphism quotient gfunctor commutator zmodp center pgroup) mathcomp(sylow gseries nilpotent abelian maximal) mathcomp(matrix mxalgebra mxrepresentation mxabelem) odd_order(BGsection1 BGsection2)