Terminal case of the Euclidean descent: a unimodular matrix with is
ProvedBurauFaithful.sl2_normal_form_baseThe terminal case of the Euclidean algorithm in the modular group: a unimodular matrix with vanishing top-left entry is .
Let and be the standard generators of , and let be an integral matrix of determinant with . Then
Indeed the determinant condition forces , so or , and the two remaining entries are then matched by and respectively.
This is the case in which the Euclidean descent BurauFaithful.sl2_euclid_step on the measure terminates, so that the descent produces the continued fraction normal form of an element of the modular group (Birman, Braids, Links, and Mapping Class Groups, Ann. of Math. Studies 82, §3.3, pp. 129–130).
Formalization Note The determinant is expanded by Matrix.det_fin_two and the sign alternatives come from Int.mul_eq_one_iff_eq_one_or_neg_one; both cases are then closed entrywise using ModularGroup.coe_S and ModularGroup.coe_T_zpow.
import Definitions.Def_BurauFaithful_UnreducedBurau set_option autoImplicit false open Matrix
theorem BurauFaithful.sl2_normal_form_base (M : Matrix (Fin 2) (Fin 2) ℤ) (hd : M.det = 1)
(h : M 0 0 = 0) :
∃ k : ℤ, M = (↑ModularGroup.S : Matrix (Fin 2) (Fin 2) ℤ) *
(↑(ModularGroup.T ^ k) : Matrix (Fin 2) (Fin 2) ℤ) ∨
M = -((↑ModularGroup.S : Matrix (Fin 2) (Fin 2) ℤ) *
(↑(ModularGroup.T ^ k) : Matrix (Fin 2) (Fin 2) ℤ)) := by sorry