init and tail

Given a Witt vector x, we are sometimes interested in its components before and after an index n. This file defines those operations, proves that init is polynomial, and shows how that polynomial interacts with MvPolynomial.bind₁.

Main declarations

• WittVector.init n x: the first n coefficients of x, as a Witt vector. All coefficients at indices ≥ n are 0.
• WittVector.tail n x: the complementary part to init. All coefficients at indices < n are 0, otherwise they are the same as in x.
• WittVector.coeff_add_of_disjoint: if x and y are Witt vectors such that for every n the n-th coefficient of x or of y is 0, then the coefficients of x + y are just x.coeff n + y.coeff n.

References

• [Hazewinkel, Witt Vectors][Haze09]

• [Commelin and Lewis, Formalizing the Ring of Witt Vectors][CL21]

def WittVector.select {p : ℕ} {R : Type u_1} [CommRing R] (P : ℕ → Prop) (x : WittVector p R) : WittVector p R

WittVector.select P x, for a predicate P : ℕ → Prop is the Witt vector whose n-th coefficient is x.coeff n if P n is true, and 0 otherwise.

def WittVector.selectPoly (P : ℕ → Prop) (n : ℕ) : MvPolynomial ℕ ℤ

The polynomial that witnesses that WittVector.select is a polynomial function. selectPoly n is X n if P n holds, and 0 otherwise.

theorem WittVector.coeff_select {p : ℕ} {R : Type u_1} [CommRing R] (P : ℕ → Prop) (x : WittVector p R) (n : ℕ) : WittVector.coeff (WittVector.select P x) n = ↑(MvPolynomial.aeval x.coeff) (WittVector.selectPoly P n)

instance WittVector.select_isPoly {p : ℕ} {P : ℕ → Prop} : WittVector.IsPoly p fun x x_1 x_2 => WittVector.select P x_2

theorem WittVector.select_add_select_not {p : ℕ} [hp : Fact (Nat.Prime p)] {R : Type u_1} [CommRing R] (P : ℕ → Prop) (x : WittVector p R) : WittVector.select P x + WittVector.select (fun i => ¬P i) x = x

theorem WittVector.coeff_add_of_disjoint {p : ℕ} [hp : Fact (Nat.Prime p)] (n : ℕ) {R : Type u_1} [CommRing R] (x : WittVector p R) (y : WittVector p R) (h : ∀ (n : ℕ), WittVector.coeff x n = 0 ∨ WittVector.coeff y n = 0) : WittVector.coeff (x + y) n = WittVector.coeff x n + WittVector.coeff y n

def WittVector.init {p : ℕ} {R : Type u_1} [CommRing R] (n : ℕ) : WittVector p R → WittVector p R

WittVector.init n x is the Witt vector of which the first n coefficients are those from x and all other coefficients are 0. See WittVector.tail for the complementary part.

def WittVector.tail {p : ℕ} {R : Type u_1} [CommRing R] (n : ℕ) : WittVector p R → WittVector p R

WittVector.tail n x is the Witt vector of which the first n coefficients are 0 and all other coefficients are those from x. See WittVector.init for the complementary part.

@[simp]

theorem WittVector.init_add_tail {p : ℕ} [hp : Fact (Nat.Prime p)] {R : Type u_1} [CommRing R] (x : WittVector p R) (n : ℕ) : WittVector.init n x + WittVector.tail n x = x

def WittVector.initRing : Lean.ParserDescr

init_ring is an auxiliary tactic that discharges goals factoring init over ring operations.

@[simp]

theorem WittVector.init_init {p : ℕ} {R : Type u_1} [CommRing R] (x : WittVector p R) (n : ℕ) : WittVector.init n (WittVector.init n x) = WittVector.init n x

theorem WittVector.init_add {p : ℕ} [hp : Fact (Nat.Prime p)] {R : Type u_1} [CommRing R] (x : WittVector p R) (y : WittVector p R) (n : ℕ) : WittVector.init n (x + y) = WittVector.init n (WittVector.init n x + WittVector.init n y)

theorem WittVector.init_mul {p : ℕ} [hp : Fact (Nat.Prime p)] {R : Type u_1} [CommRing R] (x : WittVector p R) (y : WittVector p R) (n : ℕ) : WittVector.init n (x * y) = WittVector.init n (WittVector.init n x * WittVector.init n y)

theorem WittVector.init_neg {p : ℕ} [hp : Fact (Nat.Prime p)] {R : Type u_1} [CommRing R] (x : WittVector p R) (n : ℕ) : WittVector.init n (-x) = WittVector.init n (-WittVector.init n x)

theorem WittVector.init_sub {p : ℕ} [hp : Fact (Nat.Prime p)] {R : Type u_1} [CommRing R] (x : WittVector p R) (y : WittVector p R) (n : ℕ) : WittVector.init n (x - y) = WittVector.init n (WittVector.init n x - WittVector.init n y)

theorem WittVector.init_nsmul {p : ℕ} [hp : Fact (Nat.Prime p)] {R : Type u_1} [CommRing R] (m : ℕ) (x : WittVector p R) (n : ℕ) : WittVector.init n (m • x) = WittVector.init n (m • WittVector.init n x)

theorem WittVector.init_zsmul {p : ℕ} [hp : Fact (Nat.Prime p)] {R : Type u_1} [CommRing R] (m : ℤ) (x : WittVector p R) (n : ℕ) : WittVector.init n (m • x) = WittVector.init n (m • WittVector.init n x)

theorem WittVector.init_pow {p : ℕ} [hp : Fact (Nat.Prime p)] {R : Type u_1} [CommRing R] (m : ℕ) (x : WittVector p R) (n : ℕ) : WittVector.init n (x ^ m) = WittVector.init n (WittVector.init n x ^ m)

theorem WittVector.init_isPoly (p : ℕ) (n : ℕ) : WittVector.IsPoly p fun x x_1 => WittVector.init n

WittVector.init n x is polynomial in the coefficients of x.