Normal closure of a central element is its cyclic subgroup
ProvedBurauFaithful.normalClosure_singleton_centerNormal closure of a central element. Let be a group and an element of its centre. Then the normal closure of is nothing but the cyclic subgroup generated by :
Indeed every conjugate of a central element equals , so the normal closure adds nothing to the cyclic subgroup; conversely always.
This is the last step of the assembly in the proof of faithfulness of the Burau representation for three strands: once a braid is known to lie in the normal closure of — which is what the injectivity of the specialization at gives — the present lemma turns that into an explicit statement , because is central in (the full twist squared generates the centre; the Garside identity gives ).
Formalization Note The proof avoids closure-inclusion lemmas entirely: membership in the cyclic subgroup is rewritten by Subgroup.mem_closure_singleton as x = g ^ n, centrality of the power comes from Subgroup.zpow_mem (Subgroup.center G), and both inclusions are then produced with Subgroup.normalClosure_le_normal (with a local normality instance for the cyclic subgroup) and Subgroup.mem_closure_singleton.mpr.
/-
`BurauFaithful.normalClosure_singleton_center`: for a **central** element, its normal closure is just
the cyclic subgroup it generates.
This is the last step of the assembly in NOTES_BURAU.md (SESSION 14/15): from the injectivity of
`B_3/⟨Δ⁴⟩ → SL(2,ℤ)` one learns that `β` lies in the normal closure of `Δ⁴ = (σ₀σ₁)⁶`; since
`Δ⁴ = (Δ²)²` is central (Proved: `BurauFaithful.braid_three_fullTwist_central` for `Δ²`, plus the
Garside identity `BurauFaithful.braid_three_garside_pow`), that normal closure is the cyclic
subgroup `⟨Δ⁴⟩`, which is exactly the conclusion `∃ k, β = (σ₀σ₁)^{6k}` of
`BurauFaithful.spec_reduced_kernel_le`.
The proof avoids every closure-inclusion lemma: membership in `closure {g}` is rewritten with
`Subgroup.mem_closure_singleton` as `x = g ^ n`, and membership is then produced by
`Subgroup.zpow_mem` from the centrality of `g` (`Subgroup.mem_center_iff`). Verified names in this
Mathlib: `Subgroup.mem_closure_singleton` (`Algebra/Group/Subgroup/Lattice.lean:468`),
`Subgroup.zpow_mem (H) (hx) (n)`, `Subgroup.mem_center_iff` (`GroupTheory/Subgroup/Center.lean:58`),
`Subgroup.normalClosure_le_normal` (`GroupTheory/Subgroup/Basic.lean:646`).
-/
import Definitions.Def_BurauFaithful_UnreducedBurau
set_option autoImplicit false
theorem BurauFaithful.normalClosure_singleton_center (G : Type*) [Group G] (g : G) (hg : g ∈ Subgroup.center G) :
Subgroup.normalClosure ({g} : Set G) = Subgroup.closure ({g} : Set G) := by sorry