Power form of the kernel of the reduced Burau specialization at
OpenBurauFaithful.reducedBurau_spec_kernel_powerPower form of the kernel of the reduced Burau specialization at .
Let be the reduced Burau representation of the three-strand braid group and let be its specialization at , the homomorphism sending the Artin generators to
The theorem describes the kernel of : every braid annihilated by it is an integral power of the full twist squared,
Since is central in , this is equivalent to the statement that the kernel is the normal closure of , i.e. that induces an injection . The kernel consists of the powers of the full twist squared because the image of the full twist squared in has infinite order, and because the quotient is the amalgam , which is itself: it is generated by and , whose images generate , and the group is finitely generated and residually finite, hence Hopfian by Malcev's theorem, so that the surjection onto the modular group is an isomorphism.
Formalization Note. This is the power form of the kernel used by the mission's assembly: it is stated with the explicit generators BraidsLinksMCG.sigma and the specialization BurauFaithful.redHom3 of the preamble.
import Definitions.Def_BurauFaithful_UnreducedBurau
set_option autoImplicit false
open Matrix BraidsLinksMCG
/-- The images of the two Artin generators under the `t = -1` specialization of the reduced
Burau representation (the two integral matrices of `BurauFaithful.burau_three_spec_reduction`). -/
noncomputable def BurauFaithful.redGen : Fin 2 → Matrix.SpecialLinearGroup (Fin 2) ℤ :=
fun i => if (i : ℕ) = 0 then ⟨!![1, -1; 0, 1], by decide⟩ else ⟨!![2, -1; 1, 0], by decide⟩
lemma BurauFaithful.redGen_braid :
∀ r ∈ braidRels 3, FreeGroup.lift BurauFaithful.redGen r = 1 := by
intro r hr
simp only [braidRels, Set.mem_union] at hr
rcases hr with ⟨i, j, h, rfl⟩ | ⟨i, j, h, rfl⟩
· exfalso
fin_cases i <;> fin_cases j <;> norm_num at h
· simp only [map_mul, map_inv, FreeGroup.lift_apply_of]
rw [mul_inv_eq_one]
fin_cases i <;> fin_cases j <;>
first
| (exfalso; omega)
| (ext a b; fin_cases a <;> fin_cases b <;> decide)
/-- The `t = -1` specialization of the reduced Burau representation of `B₃`, as a homomorphism
sending the generators to `!![1, -1; 0, 1]` and `!![2, -1; 1, 0]`. -/
noncomputable def BurauFaithful.redHom3 :
BraidsLinksMCG.ArtinBraidGroup 3 →* Matrix.SpecialLinearGroup (Fin 2) ℤ :=
PresentedGroup.toGroup BurauFaithful.redGen_braid
namespace BurauFaithful theorem reducedBurau_spec_kernel_power (beta : BraidsLinksMCG.ArtinBraidGroup 3) : BurauFaithful.redHom3 beta = 1 -> (exists k : Int, beta = (BraidsLinksMCG.sigma (n := 3) (0 : Fin 2) * BraidsLinksMCG.sigma (n := 3) (1 : Fin 2)) ^ (6 * k)) := by sorry end BurauFaithful