theorem
Hex.PermGroup.Normal.comm_generated
{n : Nat}
(G N : Group n)
(hn : check G N = true)
(hs : ∀ (p : Perm n), p ∈ G.generators → ∀ (q : Perm n), q ∈ G.generators → Generated N.generators (p.comm q))
(p q : Perm n)
(hp : Generated G.generators p)
(hq : Generated G.generators q)
:
Generated N.generators (p.comm q)
A normal subgroup containing original generator commutators contains all element commutators. The two inductions follow multiplication and inversion.