Documentation

TauCeti.RingTheory.WittVector.RadiusRing

The radius rings A^r, their degree, and Euclidean division #

Let O be the ring of integers of a valuation v : Valuation K ℝ≥0 on a field K, perfect of characteristic p, and let ϖ ∈ O be a pseudouniformiser, 0 < v(ϖ) < 1. Inverting the Teichmüller representative [ϖ] in 𝕎 O adjoins the Teichmüller representatives of all elements of K: the localisation 𝕎 O[1/[ϖ]] is Kedlaya's ring A_L = W(𝒪_L)[[x] : x ∈ L] for L = K. For 0 < ρ < 1 the Gauss valuation λ_ρ(∑ₙ [xₙ] pⁿ) = supₙ v(xₙ) ρⁿ (TauCeti.WittVector.gaussValuation) does not vanish at [ϖ], so it extends to 𝕎 O[1/[ϖ]], where it is a multiplicative ultrametric norm. The radius ring A^r is the completion of 𝕎 O[1/[ϖ]] for this norm. It is a complete Hausdorff Tate ring with a multiplicative norm, with pseudouniformiser [ϖ].

Kedlaya writes λ_r(∑ₙ pⁿ [xₙ]) = maxₙ p^(-n) |xₙ|^r for r > 0. This is λ_ρ ^ r for ρ = p^(-1/r), so both norms define the same completion A^r; here the ring is indexed by ρ.

The degree of a nonzero element of A^r extends the degree of a Witt vector for λ_ρ (TauCeti.WittVector.gaussDegree), the largest index at which its Teichmüller expansion attains the Gauss norm. Every nonzero x ∈ A^r is approximated by some [ϖ]^(-k) y with y ∈ 𝕎 O up to an error smaller than ‖x‖, and the degree of x is the degree of any such y. It only depends on the leading part of x (Kedlaya, Remark 2.7) and is additive on products (Kedlaya, Lemma 2.6).

A^r admits Euclidean division for this degree (Kedlaya, Proposition 2.9): for x ≠ 0, every y is z x + w with ‖w‖ ≤ ‖y‖ and either w = 0 or deg w < deg x. Consequently the rings A^r{T₁/ρ₁, …, Tₙ/ρₙ} of restricted power series are noetherian (Kedlaya, Theorem 3.2, TauCeti.WittVector.RadiusRing.isNoetherianRing_isRestricted_subring in TauCeti.RingTheory.MvPowerSeries.TateAlgebra.RadiusRing). This is the input for the strong noetherianity of the interval rings B^I (TauCeti.WittVector.IntervalRing, Kedlaya's Theorem 4.10).

Euclidean division #

Let x ≠ 0 have degree m. Up to a power of [ϖ], x is close to a Teichmüller sum ∑_{l ≤ m} [tₗ] pˡ whose weighted coefficients v(tₗ) ρˡ are at most v(t_m) ρᵐ, and the error is bounded by ε v(t_m) ρᵐ for some ε < 1 with ρ ≤ ε. Given y close to a Teichmüller sum ∑_{l ≤ n} [aₗ] pˡ with n ≥ m, multiplying by the unit [t_m] and subtracting [a_n] p^(n - m) x cancels the term of index n. Witt vector addition only carries into higher indices, and its carries are smaller by the factor ρ ≤ ε (TauCeti.WittVector.gaussValuation_teichmuller_add_teichmuller_sub_le), so the result is again close to a Teichmüller sum, now of length n. Descending to length m gives Kedlaya's Lemma 2.8: a remainder of norm at most ‖y‖ that either has degree less than m or is smaller than ε ‖y‖. Iterating on the remainders (TauCeti.subset_idealSpan_of_approx) gives Proposition 2.9.

Main definitions #

Main results #

References #

def TauCeti.WittVector.RadiusLocalization (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} {ρ : NNReal} (_hv : v.Integers O) (_hϖ : ϖ ≠ 0) (_hϖ' : v ((algebraMap O K) ϖ) < 1) (_hρ : ρ ∈ Set.Ioo 0 1) :
Type u_2

𝕎 O[1/[ϖ]] with the Gauss norm. This is the localisation of 𝕎 O away from the Teichmüller representative [ϖ] of a pseudouniformiser ϖ (0 < v(ϖ) < 1), normed by the extension of the Gauss valuation λ_ρ (TauCeti.WittVector.radiusNorm); its completion is the radius ring A^r.

Instances For
    @[instance_reducible]
    noncomputable instance TauCeti.WittVector.RadiusLocalization.instCommRing (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) :
    CommRing (RadiusLocalization p hv hϖ hϖ' hρ)
    @[instance_reducible]
    noncomputable instance TauCeti.WittVector.RadiusLocalization.instAlgebraWittVector (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) :
    Algebra (WittVector p O) (RadiusLocalization p hv hϖ hϖ' hρ)
    instance TauCeti.WittVector.RadiusLocalization.instAwayWittVectorCoeMonoidHomTeichmuller (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) :
    theorem TauCeti.WittVector.RadiusLocalization.isUnit_algebraMap_teichmuller (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) :

    [ϖ] is a unit of 𝕎 O[1/[ϖ]].

    noncomputable def TauCeti.WittVector.radiusNorm (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] :

    The Gauss norm on 𝕎 O[1/[ϖ]]: the extension of the Gauss valuation λ_ρ to the localisation, an absolute value because λ_ρ is a valuation vanishing only at 0.

    Instances For
      @[simp]
      theorem TauCeti.WittVector.radiusNorm_algebraMap (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] (x : WittVector p O) :
      (radiusNorm p hv hϖ hϖ' hρ) ((algebraMap (WittVector p O) (RadiusLocalization p hv hϖ hϖ' hρ)) x) = ↑((gaussValuation p hv ρ ⋯) x)

      The Gauss norm on 𝕎 O[1/[ϖ]] extends λ_ρ.

      @[simp]
      theorem TauCeti.WittVector.radiusNorm_mk' (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] (x : WittVector p O) (s : ↥(Submonoid.powers ((WittVector.teichmuller p) ϖ))) :
      (radiusNorm p hv hϖ hϖ' hρ) (IsLocalization.mk' (RadiusLocalization p hv hϖ hϖ' hρ) x s) = ↑((gaussValuation p hv ρ ⋯) x) * (↑((gaussValuation p hv ρ ⋯) ↑s))⁻¹

      The Gauss norm of a fraction x / s in 𝕎 O[1/[ϖ]] is λ_ρ(x) / λ_ρ(s).

      theorem TauCeti.WittVector.isNonarchimedean_radiusNorm (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] :
      IsNonarchimedean ⇑(radiusNorm p hv hϖ hϖ' hρ)

      The Gauss norm on 𝕎 O[1/[ϖ]] is nonarchimedean.

      @[instance_reducible]
      noncomputable instance TauCeti.WittVector.RadiusLocalization.instNormedCommRing (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] :
      theorem TauCeti.WittVector.RadiusLocalization.norm_def (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] (x : RadiusLocalization p hv hϖ hϖ' hρ) :
      ‖x‖ = (radiusNorm p hv hϖ hϖ' hρ) x

      The norm of 𝕎 O[1/[ϖ]] is the extension of the Gauss valuation λ_ρ.

      @[simp]
      theorem TauCeti.WittVector.RadiusLocalization.norm_algebraMap (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] (x : WittVector p O) :
      ‖(algebraMap (WittVector p O) (RadiusLocalization p hv hϖ hϖ' hρ)) x‖ = ↑((gaussValuation p hv ρ ⋯) x)

      On 𝕎 O, the norm of 𝕎 O[1/[ϖ]] is the Gauss valuation λ_ρ.

      @[simp]
      theorem TauCeti.WittVector.RadiusLocalization.norm_mk' (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] (x : WittVector p O) (s : ↥(Submonoid.powers ((WittVector.teichmuller p) ϖ))) :
      ‖IsLocalization.mk' (RadiusLocalization p hv hϖ hϖ' hρ) x s‖ = ↑((gaussValuation p hv ρ ⋯) x) * (↑((gaussValuation p hv ρ ⋯) ↑s))⁻¹

      The norm of a fraction x / s in 𝕎 O[1/[ϖ]] is λ_ρ(x) / λ_ρ(s).

      instance TauCeti.WittVector.RadiusLocalization.instNormMulClass (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] :
      NormMulClass (RadiusLocalization p hv hϖ hϖ' hρ)
      instance TauCeti.WittVector.RadiusLocalization.instIsUltrametricDist (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] :
      instance TauCeti.WittVector.RadiusLocalization.instNormOneClass (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] :
      NormOneClass (RadiusLocalization p hv hϖ hϖ' hρ)
      instance TauCeti.WittVector.RadiusLocalization.instIsTateRing (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] :

      𝕎 O[1/[ϖ]] with the Gauss norm is a Tate ring, with pseudouniformiser [ϖ], a unit of norm v(ϖ) < 1.

      instance TauCeti.WittVector.RadiusLocalization.instUniformContinuousConstSMulWittVector (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] :

      Scalar multiplication by 𝕎 O is uniformly continuous, so that the 𝕎 O-algebra structure extends to the completion A^r.

      @[reducible, inline]
      abbrev TauCeti.WittVector.RadiusRing (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] :
      Type u_2

      The radius ring A^r: the completion of 𝕎 O[1/[ϖ]] for the Gauss norm λ_ρ, for a radius ρ ∈ (0, 1) and a pseudouniformiser ϖ (0 < v(ϖ) < 1). It is a complete Hausdorff normed commutative ring with a multiplicative ultrametric norm, and a Tate ring.

      Instances For
        @[simp]
        theorem TauCeti.WittVector.norm_algebraMap_radiusRing (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] (x : WittVector p O) :
        ‖(algebraMap (WittVector p O) (RadiusRing p hv hϖ hϖ' hρ)) x‖ = ↑((gaussValuation p hv ρ ⋯) x)

        On 𝕎 O, the norm of A^r is the Gauss valuation λ_ρ.

        @[simp]
        theorem TauCeti.WittVector.nnnorm_algebraMap_radiusRing (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] (x : WittVector p O) :
        ‖(algebraMap (WittVector p O) (RadiusRing p hv hϖ hϖ' hρ)) x‖₊ = (gaussValuation p hv ρ ⋯) x

        On 𝕎 O, the norm of A^r is the Gauss valuation λ_ρ, as a nonnegative real.

        @[simp]
        theorem TauCeti.WittVector.norm_natCast_radiusRing (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] :
        ‖↑p‖ = ↑ρ

        The norm of p in A^r is ρ.

        A^r is a complete Hausdorff Tate ring with a multiplicative ultrametric norm: completeness and separatedness hold for every completion, multiplicativity and the ultrametric inequality pass to the completion by continuity, and the Tate structure of 𝕎 O[1/[ϖ]] is carried to the completion by TauCeti.Huber.IsTateRing.completion (Wedhorn, Remark 6.8).

        instance TauCeti.WittVector.instNontrivialRadiusRing (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] :
        Nontrivial (RadiusRing p hv hϖ hϖ' hρ)

        A^r is nontrivial, as ‖1‖ = 1.

        The degree #

        theorem TauCeti.WittVector.RadiusRing.isUnit_algebraMap_teichmuller (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] {b : O} (hb : b ≠ 0) :
        IsUnit ((algebraMap (WittVector p O) (RadiusRing p hv hϖ hϖ' hρ)) ((WittVector.teichmuller p) b))

        The Teichmüller representative [b] of a nonzero b ∈ O is a unit of A^r: it divides a power of [ϖ].

        theorem TauCeti.WittVector.RadiusRing.exists_norm_teichmuller_pow_mul_sub_lt_mul (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] {x : RadiusRing p hv hϖ hϖ' hρ} (hx : x ≠ 0) {ε : ℝ} (hε : 0 < ε) :
        ∃ (k : ℕ) (y : WittVector p O), ‖(algebraMap (WittVector p O) (RadiusRing p hv hϖ hϖ' hρ)) ((WittVector.teichmuller p) ϖ ^ k) * x - (algebraMap (WittVector p O) (RadiusRing p hv hϖ hϖ' hρ)) y‖ < ε * ‖(algebraMap (WittVector p O) (RadiusRing p hv hϖ hϖ' hρ)) ((WittVector.teichmuller p) ϖ ^ k) * x‖

        Every nonzero x ∈ A^r is approximated by some [ϖ]^(-k) y with y ∈ 𝕎 O up to an arbitrarily small relative error ε: elements of 𝕎 O[1/[ϖ]] are dense in A^r.

        theorem TauCeti.WittVector.RadiusRing.exists_norm_teichmuller_pow_mul_sub_lt (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] {x : RadiusRing p hv hϖ hϖ' hρ} (hx : x ≠ 0) :
        ∃ (k : ℕ) (y : WittVector p O), ‖(algebraMap (WittVector p O) (RadiusRing p hv hϖ hϖ' hρ)) ((WittVector.teichmuller p) ϖ ^ k) * x - (algebraMap (WittVector p O) (RadiusRing p hv hϖ hϖ' hρ)) y‖ < ‖(algebraMap (WittVector p O) (RadiusRing p hv hϖ hϖ' hρ)) ((WittVector.teichmuller p) ϖ ^ k) * x‖

        Every nonzero x ∈ A^r is approximated by some [ϖ]^(-k) y with y ∈ 𝕎 O, up to an error smaller than ‖x‖. Such an approximation computes the degree of x (TauCeti.WittVector.RadiusRing.degree_eq_gaussDegree).

        noncomputable def TauCeti.WittVector.RadiusRing.degree (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] (x : RadiusRing p hv hϖ hϖ' hρ) :

        Kedlaya's degree on A^r. For x ≠ 0 it is the degree (TauCeti.WittVector.gaussDegree) of any y ∈ 𝕎 O with ‖[ϖ]^k x - y‖ < ‖[ϖ]^k x‖ for some k, that is, of any approximation [ϖ]^(-k) y of x with an error smaller than ‖x‖ (TauCeti.WittVector.RadiusRing.degree_eq_gaussDegree). It is 0 for x = 0.

        Instances For
          theorem TauCeti.WittVector.RadiusRing.degree_eq_gaussDegree (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] {x : RadiusRing p hv hϖ hϖ' hρ} {k : ℕ} {y : WittVector p O} (h : ‖(algebraMap (WittVector p O) (RadiusRing p hv hϖ hϖ' hρ)) ((WittVector.teichmuller p) ϖ ^ k) * x - (algebraMap (WittVector p O) (RadiusRing p hv hϖ hϖ' hρ)) y‖ < ‖(algebraMap (WittVector p O) (RadiusRing p hv hϖ hϖ' hρ)) ((WittVector.teichmuller p) ϖ ^ k) * x‖) :
          degree p hv hϖ hϖ' hρ x = gaussDegree p hv ρ ⋯ y

          The degree of x ∈ A^r is the degree of any approximation of x by a Witt vector: if ‖[ϖ]^k x - y‖ < ‖[ϖ]^k x‖ with y ∈ 𝕎 O, then the degree of x is the degree of y for λ_ρ.

          @[simp]
          theorem TauCeti.WittVector.RadiusRing.degree_zero (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] :
          degree p hv hϖ hϖ' hρ 0 = 0

          The degree of 0 is 0.

          @[simp]
          theorem TauCeti.WittVector.RadiusRing.degree_algebraMap (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] (y : WittVector p O) :
          degree p hv hϖ hϖ' hρ ((algebraMap (WittVector p O) (RadiusRing p hv hϖ hϖ' hρ)) y) = gaussDegree p hv ρ ⋯ y

          On a Witt vector, the degree of A^r is its degree for the Gauss valuation λ_ρ.

          @[simp]
          theorem TauCeti.WittVector.RadiusRing.degree_one (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] :
          degree p hv hϖ hϖ' hρ 1 = 0

          The degree of 1 is 0.

          @[simp]
          theorem TauCeti.WittVector.RadiusRing.degree_natCast (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] :
          degree p hv hϖ hϖ' hρ ↑p = 1

          The degree of p is 1.

          theorem TauCeti.WittVector.RadiusRing.degree_eq_of_norm_sub_lt (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] {x y : RadiusRing p hv hϖ hϖ' hρ} (h : ‖x - y‖ < ‖x‖) :
          degree p hv hϖ hϖ' hρ y = degree p hv hϖ hϖ' hρ x

          The degree only depends on the leading part (Kedlaya, Remark 2.7): if ‖x - y‖ < ‖x‖, then x and y have the same degree.

          theorem TauCeti.WittVector.RadiusRing.degree_mul (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] {x y : RadiusRing p hv hϖ hϖ' hρ} (hx : x ≠ 0) (hy : y ≠ 0) :
          degree p hv hϖ hϖ' hρ (x * y) = degree p hv hϖ hϖ' hρ x + degree p hv hϖ hϖ' hρ y

          The degree is additive on products (Kedlaya, Lemma 2.6).

          theorem TauCeti.WittVector.RadiusRing.degree_eq_zero_of_isUnit (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] {x : RadiusRing p hv hϖ hϖ' hρ} (hx : IsUnit x) :
          degree p hv hϖ hϖ' hρ x = 0

          Units of A^r have degree 0.

          Euclidean division #

          theorem TauCeti.WittVector.RadiusRing.exists_eq_mul_add (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] {x : RadiusRing p hv hϖ hϖ' hρ} (hx : x ≠ 0) (y : RadiusRing p hv hϖ hϖ' hρ) :
          ∃ (z : RadiusRing p hv hϖ hϖ' hρ) (w : RadiusRing p hv hϖ hϖ' hρ), y = z * x + w ∧ ‖w‖ ≤ ‖y‖ ∧ (w = 0 ∨ degree p hv hϖ hϖ' hρ w < degree p hv hϖ hϖ' hρ x)

          Euclidean division in A^r (Kedlaya, Proposition 2.9). For x ≠ 0, every y ∈ A^r can be written y = z x + w with ‖w‖ ≤ ‖y‖ and either w = 0 or w of smaller degree than x.

          theorem TauCeti.WittVector.RadiusRing.isUnit_of_degree_eq_zero (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] {x : RadiusRing p hv hϖ hϖ' hρ} (hx : x ≠ 0) (hdeg : degree p hv hϖ hϖ' hρ x = 0) :

          A nonzero element of A^r of degree 0 is a unit: dividing 1 by it leaves no remainder.

          @[simp]
          theorem TauCeti.WittVector.RadiusRing.isUnit_iff_ne_zero_and_degree_eq_zero (p : ℕ) [Fact (Nat.Prime p)] {K : Type u_1} {O : Type u_2} [Field K] [CommRing O] [Algebra O K] {v : Valuation K NNReal} {ϖ : O} (hv : v.Integers O) (hϖ : ϖ ≠ 0) (hϖ' : v ((algebraMap O K) ϖ) < 1) {ρ : NNReal} (hρ : ρ ∈ Set.Ioo 0 1) [CharP O p] [PerfectRing O p] {x : RadiusRing p hv hϖ hϖ' hρ} :
          IsUnit x ↔ x ≠ 0 ∧ degree p hv hϖ hϖ' hρ x = 0

          The units of A^r are its nonzero elements of degree 0.