Documentation

TauCeti.Topology.Algebra.Group.Profinite.Free.BasisModification

Basis modifications of a free pro-p group and the maps δ #

Let F = freeProP p X be the free pro-p group on a finite linearly ordered type X, with canonical generators x_i = freeProP.of i, and let λ_k = λ_k(F) be its lower p-series. A family w : X → λ_m(F) defines the basis modification θ_w : F → F, x_i ↦ x_i * w_i (TauCeti.freeProP.basisModification). It is congruent to the identity modulo λ_m, so for a relator r ∈ λ_1(F) it moves r inside its coset by the element r⁻¹ * θ_w r ∈ λ_{m+1}(F), whose class in gr_{m+1}(F) is the graded deviation D_1 ρ of θ_w (TauCeti.gradedDeviation) on the class ρ ∈ gr_1(F) of r.

For m ≥ 1 that class is given by the basis-modification map δ = TauCeti.freeProP.basisModificationDelta: writing ρ in the standard basis TauCeti.freeProP.degreeOneBasis as ρ = Σ_i c_i π ξ_i + Σ_{i<k} a_{ik} [ξ_i, ξ_k], where ξ_i ∈ gr_0(F) is the class of x_i, and writing ω_i ∈ gr_m(F) for the class of w_i, the class of r⁻¹ * θ_w r in gr_{m+1}(F) is

δ(ω) = Σ_i c_i (π ω_i + (p choose 2) • [ω_i, ξ_i]) + Σ_{i<k} a_{ik} ([ω_i, ξ_k] - [ω_k, ξ_i]),

an 𝔽_p-linear function of the classes ω_i alone, and 𝔽_p-linear in ρ as well. The bracket part is the derivative of the commutator part of ρ in the direction ω, and for odd p the p-power part contributes Σ_i c_i π ω_i. For p = 2 the p-power part contributes in addition the brackets Σ_i c_i [ω_i, ξ_i]: the square of x_i * w_i is x_i ^ 2 * w_i ^ 2 * ⁅w_i, x_i⁆ up to λ_{m+2}(F), and the commutator ⁅w_i, x_i⁆ lies in λ_{m+1}(F) and may have a nonzero class in gr_{m+1}(F). That term is the trace, in every degree, of the failure of additivity of π on gr_0(F) at p = 2.

At level m = 0, where θ_w is an arbitrary continuous endomorphism of F, the class of r⁻¹ * θ_w r in gr_1(F) is still a function of the classes ω_i ∈ gr_0(F) alone, but a quadratic one; that map and its polarization identity are in TauCeti.Topology.Algebra.Group.Profinite.Free.BasisModification.LevelZero.

The image of δ is the subspace of gr_{m+1}(F) that the successive-approximation arguments of the classification of Demushkin groups compare with gr_{m+1}(F); there m + 1 is the modulus of the normal-form congruence, and the classes ω_i are the level-m basis corrections.

For p = 2 those arguments compare gr_j(F) with the image of δ enlarged by one further subspace, the span in gr_j(F) of the iterated p-powers π^j ξ_i over a set S of generators (TauCeti.freeProP.gradedPowIterSpan). The tail T_j(ρ) (TauCeti.freeProP.basisModificationTail) is the instance at the generators whose coefficient c_i in ρ vanishes, which are the generators contributing no π-term to δ. For the dyadic relator x₁² x₂^{2^f} ⁅x₂, x₃⁆ ⋯ with f ≥ 2 these are x₂, …, x_n; for the even-rank relator x₁^{2+α} ⁅x₁, x₂⁆ x₃^{2^f} ⋯ the right index set is instead the complement of x₂, which is not a tail.

Collecting the brackets of δ by their degree-m entry gives the partial derivatives ∂_i ρ ∈ gr_0(F) (TauCeti.freeProP.degreeOneDeriv), the i-th row of the matrix (a_{ik}) completed skew-symmetrically with diagonal (p choose 2) c_i, and the formula δ_ρ(ω) = π (Σ_i c_i ω_i) + Σ_i [ω_i, ∂_i ρ]. The image of δ_ρ is then computed under the hypothesis that the derivatives ∂_i ρ span gr_0(F), which is the nondegeneracy of the form (a_{ik}) completed with that diagonal, and holds for every Demushkin relator in normal form: the coordinates of ∂_i ρ in the basis of generator classes form the i-th row of the matrix of the degree-one form TauCeti.freeProP.degreeOneForm ρ in the dual basis of the generators, so the derivatives span exactly when that form is nondegenerate. The span statements are: if all c_i = 0, then Im δ_ρ is the span of the brackets [gr_m(F), gr_0(F)] and gr_{m+1}(F) = Im δ_ρ + T_{m+1}(ρ) for every m ≥ 1, the tail being spanned by all the π^{m+1} ξ_i, so that Im δ_ρ consists exactly of the classes of the elements of λ_{m+1}(F) all of whose exponent sums are divisible by p ^ (m + 2); and if p is odd and some c_i ≠ 0, then gr_{m+1}(F) = Im δ_ρ for every m ≥ 1. The first case is that of the relators x₁^q (x₁, x₂) (x₃, x₄) ⋯ with q ≠ p, whose p-power part lies in λ_2(F), and the second that of x₁^p (x₁, x₂) (x₃, x₄) ⋯ at odd p. Both rest on the spanning of gr_{m+1}(F) by π gr_m(F) and [gr_m(F), gr_0(F)] and on the naturality π ∘ δ_ρ = δ_ρ ∘ π, which carries the image of δ_ρ in degree m into its image in degree m + 1. For p = 2 and a class with a p-power part the odd-p argument breaks down at the degree-zero defect of π. It survives when some generator class ξ_{i₁} has the column B_ρ(χ_i, χ_{i₁}) of the degree-one form at its coordinate character equal to the vector c_i of 2-power coefficients: then gr_{m+1}(F) = Im δ_ρ + ⟨π^{m+1} ξ_i : i ≠ i₁⟩. The key membership is ψ(y) • π v + [v, y] ∈ Im δ_ρ for ψ the coordinate at ξ_{i₁}, which makes every bracket [v, y] available once π v is, and the degree-zero defect of π is absorbed by the brackets [[ξ_a, y], ξ_a] with a ≠ i₁. For the dyadic relators x₁² x₂^{2^f} (x₂, x₃) ⋯ of odd rank, x₁ carries the 2-power part, ξ₁ occurs in no bracket and i₁ is the index of x₁, so the span is the tail T_{m+1}(ρ) and the level f is the free parameter it accounts for. For the even-rank relators x₁^{2+α} (x₁, x₂) x₃^{2^f} ⋯, x₁ carries the 2-power part and i₁ is the index of its bracket partner x₂, so the spanning powers include π^{m+1} ξ₁ although c₁ ≠ 0, and exclude π^{m+1} ξ₂.

Main definitions #

Main results #

References #

The basis modification x_i ↦ x_i * w_i #

noncomputable def TauCeti.freeProP.basisModification {p : ℕ} {X : Type u} {m : ℕ} (w : X → ↥(pLowerCentralSeries p (freeProP p X) m)) :

The basis modification θ_w : F → F, x_i ↦ x_i * w_i, of the free pro-p group F = freeProP p X by a family w : X → λ_m(F). It is congruent to the identity modulo λ_m(F) (TauCeti.freeProP.inv_mul_basisModification_mem_pLowerCentralSeries).

Equations
Instances For
    @[simp]
    theorem TauCeti.freeProP.basisModification_of {p : ℕ} {X : Type u} {m : ℕ} (w : X → ↥(pLowerCentralSeries p (freeProP p X) m)) (i : X) :
    (basisModification w) (of i) = of i * ↑(w i)
    theorem TauCeti.freeProP.eq_basisModification {p : ℕ} {X : Type u} (φ : freeProP p X →ₜ* freeProP p X) :
    φ = basisModification fun (i : X) => ⟨(of i)⁻¹ * φ (of i), ⋯⟩

    Every continuous endomorphism of F is a basis modification at level 0, by the family x_i⁻¹ * φ(x_i).

    The basis modification is congruent to the identity modulo λ_m(F).

    The basis modification as an automorphism #

    noncomputable def TauCeti.freeProP.basisModificationEquiv {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] (hm : 1 ≤ m) (w : X → ↥(pLowerCentralSeries p (freeProP p X) m)) :

    The basis modification x_i ↦ x_i * w_i by elements of λ_m(F), m ≥ 1, as a continuous automorphism of the free pro-p group of finite rank F: the endomorphism θ_w is congruent to the identity modulo λ_1(F) = Φ(F), hence surjective by Burnside's criterion, hence bijective by the Hopf property. Its underlying map is θ_w (TauCeti.freeProP.basisModificationEquiv_apply).

    Equations
    Instances For
      @[simp]
      theorem TauCeti.freeProP.basisModificationEquiv_apply {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] (hm : 1 ≤ m) (w : X → ↥(pLowerCentralSeries p (freeProP p X) m)) (g : freeProP p X) :
      theorem TauCeti.freeProP.basisModificationEquiv_symm_mem_pLowerCentralSeries {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] (hm : 1 ≤ m) (w : X → ↥(pLowerCentralSeries p (freeProP p X) m)) {k : ℕ} {g : freeProP p X} (hg : g ∈ pLowerCentralSeries p (freeProP p X) k) :

      The inverse of the basis modification preserves every term of the lower p-series.

      theorem TauCeti.freeProP.gradedMk_basisModificationEquiv_symm {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] (hm : 1 ≤ m) (w : X → ↥(pLowerCentralSeries p (freeProP p X) m)) (r : ↥(pLowerCentralSeries p (freeProP p X) 1)) :
      gradedMk p (freeProP p X) 1 ⟨(basisModificationEquiv hm w).symm ↑r, ⋯⟩ = gradedMk p (freeProP p X) 1 r

      The inverse of the basis modification does not move the class of a relator in gr_1(F): θ_w⁻¹(r) ≡ r mod λ_2(F) for r ∈ λ_1(F), since θ_w is congruent to the identity modulo λ_1(F) and hence to the identity modulo λ_2(F) on λ_1(F).

      theorem TauCeti.freeProP.gradedDeviation_basisModification_gradedMkZero_of {p : ℕ} {X : Type u} {m : ℕ} (w : X → ↥(pLowerCentralSeries p (freeProP p X) m)) (i : X) :

      The deviation of the basis modification on a generator class is the class of the modification: D_0 ξ_i = ω_i in gr_m(F), where ξ_i and ω_i are the classes of x_i and w_i.

      @[simp]

      The exponent vector of a basis modification. For u = exponentSum g, the exponent vector of θ_w g is Σ_i u_i • (e_i + exponentSum w_i): the generator x_i contributes e_i and its correction w_i contributes exponentSum w_i, each u_i times.

      @[simp]
      theorem TauCeti.freeProP.exponentSum_basisModification {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] (w : X → ↥(pLowerCentralSeries p (freeProP p X) m)) {g : freeProP p X} (hw : ∀ (i : X), Multiplicative.toAdd ((exponentSum p X) g) i ≠ 0 → ↑(w i) ∈ (commutator (freeProP p X)).topologicalClosure) :

      A basis modification lying in the closed commutator subgroup at every generator carrying a nonzero exponent preserves the exponent vector: if w_i ∈ closure [F, F] for every i with (exponentSum g)_i ≠ 0, then exponentSum (θ_w g) = exponentSum g.

      theorem TauCeti.freeProP.exponentSum_apply_eq_of_forall_inv_mul_apply_mem {p : ℕ} {X : Type u} [Fact (Nat.Prime p)] [Finite X] (φ : freeProP p X →ₜ* freeProP p X) {g : freeProP p X} (hφ : ∀ (i : X), Multiplicative.toAdd ((exponentSum p X) g) i ≠ 0 → (of i)⁻¹ * φ (of i) ∈ (commutator (freeProP p X)).topologicalClosure) :
      (exponentSum p X) (φ g) = (exponentSum p X) g

      A continuous endomorphism moving each generator carrying a nonzero exponent by an element of the closed commutator subgroup preserves the exponent vector: if x_i⁻¹ * φ(x_i) ∈ closure [F, F] for every i with (exponentSum g)_i ≠ 0, then exponentSum (φ g) = exponentSum g.

      The maps δ #

      noncomputable def TauCeti.freeProP.basisModificationDelta (p : ℕ) (X : Type u) {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (hm : 1 ≤ m) :

      The basis-modification map δ, for m ≥ 1: the 𝔽_p-bilinear map gr_1(F) → gr_m(F)^X → gr_{m+1}(F) sending a class ρ ∈ gr_1(F) and a family v to

      δ_ρ(v) = Σ_i c_i (π v_i + (p choose 2) • [v_i, ξ_i]) + Σ_{i<k} a_{ik} ([v_i, ξ_k] - [v_k, ξ_i])

      where c_i and a_{ik} are the coordinates of ρ in the standard basis TauCeti.freeProP.degreeOneBasis of gr_1(F), that is ρ = Σ_i c_i π ξ_i + Σ_{i<k} a_{ik} [ξ_i, ξ_k] with ξ_i ∈ gr_0(F) the class of x_i. It is defined by its values on that basis (TauCeti.freeProP.basisModificationDelta_degreeOneBasis_inl, TauCeti.freeProP.basisModificationDelta_degreeOneBasis_inr), and its value at a general ρ is TauCeti.freeProP.basisModificationDelta_apply. For a relator r ∈ λ_1(F) with class ρ, and w : X → λ_m(F) with classes v_i = ω_i, δ_ρ(v) is the class in gr_{m+1}(F) of r⁻¹ * θ_w r, the amount by which the basis modification θ_w moves r (TauCeti.freeProP.gradedMk_inv_mul_basisModification).

      Equations
      • One or more equations did not get rendered due to their size.
      Instances For
        theorem TauCeti.freeProP.basisModificationDelta_degreeOneBasis_inl {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (hm : 1 ≤ m) (i : X) (v : X → gradedPiece p (freeProP p X) m) :
        ((basisModificationDelta p X hm) ((degreeOneBasis p X) (Sum.inl i))) v = gradedPow p (freeProP p X) m (v i) + p.choose 2 • ((gradedBracket p (freeProP p X) m 0) (v i)) (gradedMkZero p (freeProP p X) (of i))

        The value of δ on a p-power basis vector: δ_{π ξ_i}(v) = π v_i + (p choose 2) • [v_i, ξ_i].

        theorem TauCeti.freeProP.basisModificationDelta_degreeOneBasis_inr {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (hm : 1 ≤ m) (ij : { ij : X × X // ij.1 < ij.2 }) (v : X → gradedPiece p (freeProP p X) m) :
        ((basisModificationDelta p X hm) ((degreeOneBasis p X) (Sum.inr ij))) v = ((gradedBracket p (freeProP p X) m 0) (v (↑ij).1)) (gradedMkZero p (freeProP p X) (of (↑ij).2)) - ((gradedBracket p (freeProP p X) m 0) (v (↑ij).2)) (gradedMkZero p (freeProP p X) (of (↑ij).1))

        The value of δ on a bracket basis vector: δ_{[ξ_i, ξ_k]}(v) = [v_i, ξ_k] - [v_k, ξ_i].

        theorem TauCeti.freeProP.basisModificationDelta_apply {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] [Fintype X] (hm : 1 ≤ m) (ρ : gradedPiece p (freeProP p X) 1) (v : X → gradedPiece p (freeProP p X) m) :
        ((basisModificationDelta p X hm) ρ) v = ∑ i : X, ((degreeOneBasis p X).repr ρ) (Sum.inl i) • (gradedPow p (freeProP p X) m (v i) + p.choose 2 • ((gradedBracket p (freeProP p X) m 0) (v i)) (gradedMkZero p (freeProP p X) (of i))) + ∑ ij : { ij : X × X // ij.1 < ij.2 }, ((degreeOneBasis p X).repr ρ) (Sum.inr ij) • (((gradedBracket p (freeProP p X) m 0) (v (↑ij).1)) (gradedMkZero p (freeProP p X) (of (↑ij).2)) - ((gradedBracket p (freeProP p X) m 0) (v (↑ij).2)) (gradedMkZero p (freeProP p X) (of (↑ij).1)))

        The value of δ: with ρ = Σ_i c_i π ξ_i + Σ_{i<k} a_{ik} [ξ_i, ξ_k], δ_ρ(v) = Σ_i c_i (π v_i + (p choose 2) • [v_i, ξ_i]) + Σ_{i<k} a_{ik} ([v_i, ξ_k] - [v_k, ξ_i]).

        theorem TauCeti.freeProP.gradedDeviation_basisModification {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (hm : 1 ≤ m) (w : X → ↥(pLowerCentralSeries p (freeProP p X) m)) (ρ : gradedPiece p (freeProP p X) 1) :
        (gradedDeviation (basisModification w).toMonoidHom ⋯ ⋯ 1) ρ = ((basisModificationDelta p X hm) ρ) fun (i : X) => gradedMk p (freeProP p X) m (w i)

        The class of the moved relator is δ_ρ(ω). For m ≥ 1, w : X → λ_m(F) and ρ ∈ gr_1(F), the graded deviation of the basis modification θ_w on ρ is δ_ρ(ω), where ω_i ∈ gr_m(F) is the class of w_i.

        @[simp]
        theorem TauCeti.freeProP.gradedMk_inv_mul_basisModification {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (hm : 1 ≤ m) (w : X → ↥(pLowerCentralSeries p (freeProP p X) m)) (r : ↥(pLowerCentralSeries p (freeProP p X) 1)) :
        gradedMk p (freeProP p X) (m + 1) ⟨(↑r)⁻¹ * (basisModification w) ↑r, ⋯⟩ = ((basisModificationDelta p X hm) (gradedMk p (freeProP p X) 1 r)) fun (i : X) => gradedMk p (freeProP p X) m (w i)

        The basis modification θ_w moves a relator r ∈ λ_1(F) by δ_ρ(ω): the class in gr_{m+1}(F) of r⁻¹ * θ_w r is δ_ρ(ω), for m ≥ 1, where ρ ∈ gr_1(F) is the class of r and ω_i ∈ gr_m(F) the class of w_i. In particular that class depends only on the classes ω_i of the modifications.

        The partial derivatives ∂_i #

        noncomputable def TauCeti.freeProP.degreeOneDeriv (p : ℕ) (X : Type u) [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (i : X) :

        The partial derivative ∂_i of a class in gr_1(F): the 𝔽_p-linear map gr_1(F) → gr_0(F) given on the standard basis TauCeti.freeProP.degreeOneBasis by ∂_i (π ξ_i) = (p choose 2) • ξ_i, ∂_i (π ξ_j) = 0 for j ≠ i, ∂_i [ξ_i, ξ_k] = ξ_k, ∂_i [ξ_j, ξ_i] = -ξ_j and ∂_i [ξ_j, ξ_k] = 0 when i ∉ {j, k}. For ρ = Σ_i c_i π ξ_i + Σ_{j<k} a_{jk} [ξ_j, ξ_k] this is ∂_i ρ = (p choose 2) c_i • ξ_i + Σ_{k>i} a_{ik} ξ_k - Σ_{j<i} a_{ji} ξ_j, the i-th row of the matrix of the form (a_{jk}) completed skew-symmetrically, with diagonal (p choose 2) c_i, read as a vector of gr_0(F). The bracket terms of the basis-modification map are Σ_i [v_i, ∂_i ρ] (TauCeti.freeProP.basisModificationDelta_eq_gradedPow_add_sum).

        Equations
        • One or more equations did not get rendered due to their size.
        Instances For

          ∂_i on the p-power basis vectors: ∂_i (π ξ_i) = (p choose 2) • ξ_i and ∂_i (π ξ_j) = 0 for j ≠ i.

          theorem TauCeti.freeProP.degreeOneDeriv_degreeOneBasis_inr {p : ℕ} {X : Type u} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (i : X) (jk : { ij : X × X // ij.1 < ij.2 }) :
          (degreeOneDeriv p X i) ((degreeOneBasis p X) (Sum.inr jk)) = (if (↑jk).1 = i then gradedMkZero p (freeProP p X) (of (↑jk).2) else 0) - if (↑jk).2 = i then gradedMkZero p (freeProP p X) (of (↑jk).1) else 0

          ∂_i on the bracket basis vectors: ∂_i [ξ_j, ξ_k] = ξ_k if j = i, -ξ_j if k = i, and 0 otherwise, for j < k.

          ∂_i (π ξ_i) = (p choose 2) • ξ_i.

          theorem TauCeti.freeProP.degreeOneDeriv_gradedPow_gradedMkZero_of_of_ne {p : ℕ} {X : Type u} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] {i j : X} (hji : j ≠ i) :
          (degreeOneDeriv p X i) (gradedPow p (freeProP p X) 0 (gradedMkZero p (freeProP p X) (of j))) = 0

          ∂_i (π ξ_j) = 0 for j ≠ i.

          theorem TauCeti.freeProP.degreeOneDeriv_gradedBracket_gradedMkZero_of_left {p : ℕ} {X : Type u} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] {i k : X} (hik : i < k) :
          (degreeOneDeriv p X i) (((gradedBracket p (freeProP p X) 0 0) (gradedMkZero p (freeProP p X) (of i))) (gradedMkZero p (freeProP p X) (of k))) = gradedMkZero p (freeProP p X) (of k)

          ∂_i [ξ_i, ξ_k] = ξ_k for i < k.

          theorem TauCeti.freeProP.degreeOneDeriv_gradedBracket_gradedMkZero_of_right {p : ℕ} {X : Type u} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] {i j : X} (hji : j < i) :
          (degreeOneDeriv p X i) (((gradedBracket p (freeProP p X) 0 0) (gradedMkZero p (freeProP p X) (of j))) (gradedMkZero p (freeProP p X) (of i))) = -gradedMkZero p (freeProP p X) (of j)

          ∂_i [ξ_j, ξ_i] = -ξ_j for j < i.

          theorem TauCeti.freeProP.degreeOneDeriv_gradedBracket_gradedMkZero_of_of_ne {p : ℕ} {X : Type u} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] {i j k : X} (hjk : j < k) (hj : j ≠ i) (hk : k ≠ i) :
          (degreeOneDeriv p X i) (((gradedBracket p (freeProP p X) 0 0) (gradedMkZero p (freeProP p X) (of j))) (gradedMkZero p (freeProP p X) (of k))) = 0

          ∂_i [ξ_j, ξ_k] = 0 for j < k with i ∉ {j, k}.

          A class with spanning derivatives, in rank two. In F = freeProP p (Fin 2) the derivatives of the bracket class [ξ_0, ξ_1] are ∂_0 = ξ_1 and ∂_1 = -ξ_0, which span gr_0(F). This is the class of the surface relation (x₁, x₂) of ℤ_p × ℤ_p.

          theorem TauCeti.freeProP.basisModificationDelta_eq_gradedPow_add_sum {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] [Fintype X] (hm : 1 ≤ m) (ρ : gradedPiece p (freeProP p X) 1) (v : X → gradedPiece p (freeProP p X) m) :
          ((basisModificationDelta p X hm) ρ) v = gradedPow p (freeProP p X) m (∑ i : X, ((degreeOneBasis p X).repr ρ) (Sum.inl i) • v i) + ∑ i : X, ((gradedBracket p (freeProP p X) m 0) (v i)) ((degreeOneDeriv p X i) ρ)

          The basis-modification map through the partial derivatives: for m ≥ 1, δ_ρ(v) = π (Σ_i c_i • v_i) + Σ_i [v_i, ∂_i ρ], where c_i is the coefficient of π ξ_i in ρ. The p-power part of ρ contributes the single p-power π (Σ_i c_i v_i), and all brackets are collected in the derivatives.

          theorem TauCeti.freeProP.basisModificationDelta_smul {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] [Fintype X] (hm : 1 ≤ m) (ρ : gradedPiece p (freeProP p X) 1) (b : X → ZMod p) (v : gradedPiece p (freeProP p X) m) :
          (((basisModificationDelta p X hm) ρ) fun (i : X) => b i • v) = (∑ i : X, b i * ((degreeOneBasis p X).repr ρ) (Sum.inl i)) • gradedPow p (freeProP p X) m v + ((gradedBracket p (freeProP p X) m 0) v) (∑ i : X, b i • (degreeOneDeriv p X i) ρ)

          δ on a family proportional to a single class: for b : X → 𝔽_p and v ∈ gr_m(F), δ_ρ(b • v) = (Σ_i b_i c_i) • π v + [v, Σ_i b_i • ∂_i ρ].

          @[simp]
          theorem TauCeti.freeProP.basisModificationDelta_single {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] [DecidableEq X] (hm : 1 ≤ m) (ρ : gradedPiece p (freeProP p X) 1) (i : X) (v : gradedPiece p (freeProP p X) m) :
          ((basisModificationDelta p X hm) ρ) (Pi.single i v) = ((degreeOneBasis p X).repr ρ) (Sum.inl i) • gradedPow p (freeProP p X) m v + ((gradedBracket p (freeProP p X) m 0) v) ((degreeOneDeriv p X i) ρ)

          δ on a family supported at one generator: for v ∈ gr_m(F), δ_ρ(single i v) = c_i • π v + [v, ∂_i ρ], where c_i is the coefficient of π ξ_i in ρ.

          theorem TauCeti.freeProP.exists_basisModificationDelta_smul_eq {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (hm : 1 ≤ m) {ρ : gradedPiece p (freeProP p X) 1} (hρ : Submodule.span (ZMod p) (Set.range fun (i : X) => (degreeOneDeriv p X i) ρ) = ⊤) (v : gradedPiece p (freeProP p X) m) (y : gradedPiece p (freeProP p X) 0) :
          ∃ (b : X → ZMod p) (c : ZMod p), (((basisModificationDelta p X hm) ρ) fun (i : X) => b i • v) = c • gradedPow p (freeProP p X) m v + ((gradedBracket p (freeProP p X) m 0) v) y

          δ_ρ realizes every bracket up to a multiple of π v when the partial derivatives of ρ span gr_0(F): for v ∈ gr_m(F) and y ∈ gr_0(F) there are coefficients b : X → 𝔽_p and a scalar c with δ_ρ(b • v) = c • π v + [v, y], namely b with Σ_i b_i • ∂_i ρ = y and c = Σ_i b_i c_i.

          theorem TauCeti.freeProP.basisModificationDelta_smul_eq_gradedBracket_of_eq_zero {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] [Fintype X] (hm : 1 ≤ m) {ρ : gradedPiece p (freeProP p X) 1} {i₀ : X} (hc : ∀ (i : X), i ≠ i₀ → ((degreeOneBasis p X).repr ρ) (Sum.inl i) = 0) {b : X → ZMod p} (hb : b i₀ = 0) (v : gradedPiece p (freeProP p X) m) :
          (((basisModificationDelta p X hm) ρ) fun (i : X) => b i • v) = ((gradedBracket p (freeProP p X) m 0) v) (∑ i : X, b i • (degreeOneDeriv p X i) ρ)

          δ_ρ on a family proportional to v and vanishing at the p-power generator: if x_{i₀} is the only generator whose coefficient c_i of π ξ_i in ρ may be nonzero and b i₀ = 0, then δ_ρ(b • v) = [v, Σ_i b_i • ∂_i ρ] has no p-power term.

          theorem TauCeti.freeProP.gradedPow_basisModificationDelta {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (hm : 1 ≤ m) (ρ : gradedPiece p (freeProP p X) 1) (v : X → gradedPiece p (freeProP p X) m) :
          gradedPow p (freeProP p X) (m + 1) (((basisModificationDelta p X hm) ρ) v) = ((basisModificationDelta p X ⋯) ρ) fun (i : X) => gradedPow p (freeProP p X) m (v i)

          Naturality of δ under π: for m ≥ 1, π (δ_ρ(v)) = δ_ρ(π v), where δ_ρ on the left is the map in degree m and on the right the map in degree m + 1.

          The derivatives and the degree-one form #

          @[simp]
          theorem TauCeti.freeProP.degreeZeroBasis_repr_degreeOneDeriv {p : ℕ} {X : Type u} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (ρ : gradedPiece p (freeProP p X) 1) (i k : X) :
          ((degreeZeroBasis p X).repr ((degreeOneDeriv p X i) ρ)) k = ((degreeOneForm ρ) ((dualBasis p X) i)) ((dualBasis p X) k)

          The coordinates of the partial derivatives are the matrix of the degree-one form: the k-th coordinate of ∂_i ρ in the basis of generator classes of gr_0(F) is B_ρ(χ_i, χ_k), the (i, k) entry of the matrix of the degree-one form of ρ in the dual basis of the generators.

          The partial derivatives span gr_0(F) exactly when the degree-one form is nondegenerate. The coordinates of ∂_i ρ form the i-th row of the matrix of B_ρ in the dual basis of the generators, so the derivatives span exactly when that matrix is invertible. This is the spanning hypothesis of the span statements below, and it holds for every Demushkin relator.

          The tails T_j #

          noncomputable def TauCeti.freeProP.basisModificationTail (p : ℕ) (X : Type u) [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (ρ : gradedPiece p (freeProP p X) 1) (j : ℕ) :

          The tail T_j(ρ) of a class ρ ∈ gr_1(F): the span TauCeti.freeProP.gradedPowIterSpan in gr_j(F) of the iterated p-powers π^j ξ_i of the generator classes ξ_i ∈ gr_0(F), over the indices i whose coefficient c_i of π ξ_i in ρ, in the standard basis TauCeti.freeProP.degreeOneBasis, vanishes. For the class ρ of a relator these are the generators contributing no π-term to the basis-modification map TauCeti.freeProP.basisModificationDelta. The vectors π^j ξ_i are linearly independent, so T_j(ρ) has dimension the number of such indices (TauCeti.freeProP.finrank_basisModificationTail), and above degree zero π carries T_j(ρ) onto T_{j+1}(ρ) (TauCeti.freeProP.basisModificationTail_succ).

          Equations
          Instances For
            theorem TauCeti.freeProP.basisModificationTail_def {p : ℕ} {X : Type u} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (ρ : gradedPiece p (freeProP p X) 1) (j : ℕ) :

            The defining equation of TauCeti.freeProP.basisModificationTail: the tail is the span of the p-power classes over the indices whose coefficient in ρ vanishes.

            theorem TauCeti.freeProP.gradedPowIter_mem_basisModificationTail {p : ℕ} {X : Type u} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] {ρ : gradedPiece p (freeProP p X) 1} {i : X} (hi : ((degreeOneBasis p X).repr ρ) (Sum.inl i) = 0) (j : ℕ) :

            An iterated power π^j ξ_i belongs to T_j(ρ) when its coefficient c_i in ρ vanishes.

            @[simp]
            theorem TauCeti.freeProP.basisModificationTail_le_iff {p : ℕ} {X : Type u} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] {ρ : gradedPiece p (freeProP p X) 1} {j : ℕ} {W : Submodule (ZMod p) (gradedPiece p (freeProP p X) j)} :
            basisModificationTail p X ρ j ≤ W ↔ ∀ (i : X), ((degreeOneBasis p X).repr ρ) (Sum.inl i) = 0 → gradedPowIter p (freeProP p X) j (gradedMkZero p (freeProP p X) (of i)) ∈ W

            A submodule contains T_j(ρ) if and only if it contains every generator π^j ξ_i whose coefficient c_i in ρ vanishes.

            theorem TauCeti.freeProP.mem_basisModificationTail_iff {p : ℕ} {X : Type u} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] {ρ : gradedPiece p (freeProP p X) 1} {j : ℕ} {v : gradedPiece p (freeProP p X) j} :
            v ∈ basisModificationTail p X ρ j ↔ ∃ (c : { i : X // ((degreeOneBasis p X).repr ρ) (Sum.inl i) = 0 } → ZMod p), ∑ i : { i : X // ((degreeOneBasis p X).repr ρ) (Sum.inl i) = 0 }, c i • gradedPowIter p (freeProP p X) j (gradedMkZero p (freeProP p X) (of ↑i)) = v

            Membership in the tail: the elements of T_j(ρ) are the linear combinations of the π^j ξ_i over the indices i with c_i = 0, the instance of TauCeti.freeProP.mem_gradedPowIterSpan_iff at the index set of the tail.

            π carries the tail onto the next tail above degree zero: for j ≥ 1, T_{j+1}(ρ) = π(T_j(ρ)), since π is additive on gr_j(F) and π (π^j ξ_i) = π^{j+1} ξ_i.

            The dimension of the tail: dim T_j(ρ) is the number of indices i whose coefficient c_i of π ξ_i in ρ vanishes, because the π^j ξ_i are linearly independent (TauCeti.freeProP.linearIndependent_gradedPowIter_gradedMkZero_of).

            The image of δ #

            theorem TauCeti.freeProP.gradedPow_mem_range_basisModificationDelta_sup_gradedPowIterSpan {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (hm : 1 ≤ m) {ρ : gradedPiece p (freeProP p X) 1} {S : Set X} {v : gradedPiece p (freeProP p X) (m + 1)} (hv : v ∈ ((basisModificationDelta p X hm) ρ).range ⊔ gradedPowIterSpan p X S (m + 1)) :
            gradedPow p (freeProP p X) (m + 1) v ∈ ((basisModificationDelta p X ⋯) ρ).range ⊔ gradedPowIterSpan p X S (m + 1 + 1)

            π carries the image-plus-span sum to the next level: above degree zero it preserves the image of δ_ρ and maps the span of the p-power classes over S in degree m + 1 onto the span in degree m + 2.

            theorem TauCeti.freeProP.gradedPow_mem_range_basisModificationDelta_sup_basisModificationTail {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (hm : 1 ≤ m) {ρ : gradedPiece p (freeProP p X) 1} {v : gradedPiece p (freeProP p X) (m + 1)} (hv : v ∈ ((basisModificationDelta p X hm) ρ).range ⊔ basisModificationTail p X ρ (m + 1)) :
            gradedPow p (freeProP p X) (m + 1) v ∈ ((basisModificationDelta p X ⋯) ρ).range ⊔ basisModificationTail p X ρ (m + 1 + 1)

            π carries the image-plus-tail sum to the next level: above degree zero it preserves the image of δ_ρ and maps T_{m+1}(ρ) onto T_{m+2}(ρ).

            theorem TauCeti.freeProP.gradedBracket_mem_range_basisModificationDelta {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (hm : 1 ≤ m) {ρ : gradedPiece p (freeProP p X) 1} (hρ : Submodule.span (ZMod p) (Set.range fun (i : X) => (degreeOneDeriv p X i) ρ) = ⊤) (hc : ∀ (i : X), ((degreeOneBasis p X).repr ρ) (Sum.inl i) = 0) (v : gradedPiece p (freeProP p X) m) (y : gradedPiece p (freeProP p X) 0) :
            ((gradedBracket p (freeProP p X) m 0) v) y ∈ ((basisModificationDelta p X hm) ρ).range

            Brackets lie in the image of δ_ρ when ρ has no p-power part and its partial derivatives span gr_0(F): for v ∈ gr_m(F) and y ∈ gr_0(F), writing y = Σ_i b_i ∂_i ρ, the family b • v has δ_ρ(b • v) = [v, y].

            theorem TauCeti.freeProP.range_basisModificationDelta_eq_span_of_repr_inl_eq_zero {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (hm : 1 ≤ m) {ρ : gradedPiece p (freeProP p X) 1} (hρ : Submodule.span (ZMod p) (Set.range fun (i : X) => (degreeOneDeriv p X i) ρ) = ⊤) (hc : ∀ (i : X), ((degreeOneBasis p X).repr ρ) (Sum.inl i) = 0) :
            ((basisModificationDelta p X hm) ρ).range = Submodule.span (ZMod p) (Set.range fun (vy : gradedPiece p (freeProP p X) m × gradedPiece p (freeProP p X) 0) => ((gradedBracket p (freeProP p X) m 0) vy.1) vy.2)

            The image of δ_ρ for a relator without p-power part is the span of the brackets [v, y] with v ∈ gr_m(F) and y ∈ gr_0(F), provided the partial derivatives ∂_i ρ span gr_0(F).

            theorem TauCeti.freeProP.range_basisModificationDelta_sup_basisModificationTail_eq_top {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (hm : 1 ≤ m) {ρ : gradedPiece p (freeProP p X) 1} (hρ : Submodule.span (ZMod p) (Set.range fun (i : X) => (degreeOneDeriv p X i) ρ) = ⊤) (hc : ∀ (i : X), ((degreeOneBasis p X).repr ρ) (Sum.inl i) = 0) :
            ((basisModificationDelta p X hm) ρ).range ⊔ basisModificationTail p X ρ (m + 1) = ⊤

            The span statement for a relator without p-power part: if ρ ∈ gr_1(F) has all coefficients c_i of π ξ_i equal to zero and its partial derivatives ∂_i ρ span gr_0(F), then for every m ≥ 1 gr_{m+1}(F) = Im δ_ρ + T_{m+1}(ρ), where the tail T_{m+1}(ρ) is spanned by the p-powers π^{m+1} ξ_i of all the generator classes. The image of δ_ρ is the span of the brackets [gr_m(F), gr_0(F)], and the tail accounts for the p-powers: π carries Im δ_ρ in degree m into Im δ_ρ in degree m + 1 and T_{m+1}(ρ) onto T_{m+2}(ρ). This is the case of the Demushkin relators x₁^q (x₁, x₂) (x₃, x₄) ⋯ with q ≠ p, where the p-power part of the relator lies in λ_2(F) and is not seen by gr_1(F).

            The image of δ and the exponent sums #

            For a class ρ without p-power part the image of δ_ρ is spanned by brackets, so every continuous homomorphism to a commutative group kills it, while the tail T_{m+1}(ρ) is spanned by the p-powers π^{m+1} ξ_i, which the exponent sums modulo p ^ (m + 2) separate (TauCeti.freeProP.exponentSumZModPow). The decomposition gr_{m+1}(F) = Im δ_ρ + T_{m+1}(ρ) therefore identifies Im δ_ρ with the classes killed by every exponent sum modulo p ^ (m + 2).

            theorem TauCeti.freeProP.gradedMap_basisModificationDelta_eq_zero {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] {H : Type u} [Group H] [TopologicalSpace H] [IsTopologicalGroup H] [IsMulCommutative H] (f : freeProP p X →* H) (hf : Continuous ⇑f) (hm : 1 ≤ m) {ρ : gradedPiece p (freeProP p X) 1} (hc : ∀ (i : X), ((degreeOneBasis p X).repr ρ) (Sum.inl i) = 0) (v : X → gradedPiece p (freeProP p X) m) :
            (gradedMap p f hf (m + 1)) (((basisModificationDelta p X hm) ρ) v) = 0

            A continuous homomorphism to a commutative group kills the image of δ_ρ when ρ has no p-power part: δ_ρ(v) is then a sum of brackets, and brackets vanish in a commutative group.

            theorem TauCeti.freeProP.gradedMk_mem_range_basisModificationDelta_iff {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (hm : 1 ≤ m) {ρ : gradedPiece p (freeProP p X) 1} (hρ : Submodule.span (ZMod p) (Set.range fun (i : X) => (degreeOneDeriv p X i) ρ) = ⊤) (hc : ∀ (i : X), ((degreeOneBasis p X).repr ρ) (Sum.inl i) = 0) (z : ↥(pLowerCentralSeries p (freeProP p X) (m + 1))) :
            gradedMk p (freeProP p X) (m + 1) z ∈ ((basisModificationDelta p X hm) ρ).range ↔ ∀ (i : X), ↑p ^ (m + 2) ∣ Multiplicative.toAdd ((exponentSum p X) ↑z) i

            The image of δ_ρ through the exponent sums: if ρ ∈ gr_1(F) has no p-power part and its partial derivatives ∂_i ρ span gr_0(F), then for m ≥ 1 the class in gr_{m+1}(F) of z ∈ λ_{m+1}(F) lies in Im δ_ρ if and only if p ^ (m + 2) divides every exponent sum of z. So Im δ_ρ is the kernel of the map gr_{m+1}(F) → gr_{m+1}(F^{ab}) induced by the abelianization, the complement of the tail T_{m+1}(ρ) in TauCeti.freeProP.range_basisModificationDelta_sup_basisModificationTail_eq_top. This is the span statement for the relators x₁^q (x₁, x₂) (x₃, x₄) ⋯ with q ≠ p: a discrepancy between two such relators whose exponent sums agree modulo p ^ (m + 2) is absorbed by a level-m basis modification.

            theorem TauCeti.freeProP.gradedMk_mem_range_basisModificationDelta_of_mem_topologicalClosure_commutator {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (hm : 1 ≤ m) {ρ : gradedPiece p (freeProP p X) 1} (hρ : Submodule.span (ZMod p) (Set.range fun (i : X) => (degreeOneDeriv p X i) ρ) = ⊤) (hc : ∀ (i : X), ((degreeOneBasis p X).repr ρ) (Sum.inl i) = 0) (z : ↥(pLowerCentralSeries p (freeProP p X) (m + 1))) (hz : ↑z ∈ (commutator (freeProP p X)).topologicalClosure) :
            gradedMk p (freeProP p X) (m + 1) z ∈ ((basisModificationDelta p X hm) ρ).range

            A class of the closed commutator subgroup lies in the image of δ_ρ: for ρ without p-power part and with spanning partial derivatives, the class in gr_{m+1}(F) of an element of λ_{m+1}(F) lying in the closure of the commutator subgroup is in Im δ_ρ. This is the form used for the relators (x₁, x₂) (x₃, x₄) ⋯ with q = 0, whose discrepancies have trivial exponent sums.

            theorem TauCeti.freeProP.range_basisModificationDelta_eq_top_of_odd {p : ℕ} {X : Type u} {m : ℕ} [Fact (Nat.Prime p)] [Finite X] [LinearOrder X] (hp : Odd p) (hm : 1 ≤ m) {ρ : gradedPiece p (freeProP p X) 1} (hρ : Submodule.span (ZMod p) (Set.range fun (i : X) => (degreeOneDeriv p X i) ρ) = ⊤) (hc : ∃ (i : X), ((degreeOneBasis p X).repr ρ) (Sum.inl i) ≠ 0) :

            The span statement for odd p and a relator with a p-power part: if p is odd, ρ ∈ gr_1(F) has some coefficient c_i of π ξ_i nonzero and its partial derivatives ∂_i ρ span gr_0(F), then δ_ρ is onto gr_{m+1}(F) for every m ≥ 1: gr_{m+1}(F) = Im δ_ρ. This is the case of the Demushkin relators x₁^p (x₁, x₂) (x₃, x₄) ⋯ at odd p.

            The dyadic span statements #

            theorem TauCeti.freeProP.range_basisModificationDelta_sup_gradedPowIterSpan_compl_eq_top_two {X : Type u} {m : ℕ} [Finite X] [LinearOrder X] (hm : 1 ≤ m) {ρ : gradedPiece 2 (freeProP 2 X) 1} (hρ : Submodule.span (ZMod 2) (Set.range fun (i : X) => (degreeOneDeriv 2 X i) ρ) = ⊤) {i₁ : X} (hcol : ∀ (i : X), ((degreeOneForm ρ) ((dualBasis 2 X) i)) ((dualBasis 2 X) i₁) = ((degreeOneBasis 2 X).repr ρ) (Sum.inl i)) :
            ((basisModificationDelta 2 X hm) ρ).range ⊔ gradedPowIterSpan 2 X {i₁}ᶜ (m + 1) = ⊤

            The dyadic span statement (Labute, Proposition 5, the cases q = 2): let ρ ∈ gr_1(F), for F free pro-2, have its partial derivatives ∂_i ρ spanning gr_0(F), and let ξ_{i₁} be a generator class such that the column B_ρ(χ_i, χ_{i₁}) of the degree-one form of ρ at its coordinate character is the vector c_i of coefficients of the π ξ_i in ρ. Then for every m ≥ 1 gr_{m+1}(F) = Im δ_ρ + ⟨π^{m+1} ξ_i : i ≠ i₁⟩. Two cases occur among the dyadic Demushkin relators, in both of which x₁ is the only generator with c_i ≠ 0. For x₁² x₂^{2^f} (x₂, x₃) ⋯ (x_{n-1}, x_n) of odd rank, with f ≥ 2, whose class is π ξ₁ + [ξ₂, ξ₃] + ⋯, the generator x₁ occurs in no bracket, χ₁ is orthogonal to the other coordinate characters with B_ρ(χ₁, χ₁) = c₁, and i₁ is the index of x₁. For x₁^{2+α} (x₁, x₂) x₃^{2^f} (x₃, x₄) ⋯ of even rank, with 4 ∣ α and f ≥ 2, whose class is π ξ₁ + [ξ₁, ξ₂] + [ξ₃, ξ₄] + ⋯, the character χ₂ of the bracket partner x₂ pairs only with χ₁, with B_ρ(χ₁, χ₂) = c₁, and i₁ is the index of x₂, so the spanning powers include π^{m+1} ξ₁ although c₁ ≠ 0, and exclude π^{m+1} ξ₂.