Documentation

TauCeti.AlgebraicGeometry.AdicSpace.Spa.Polydisc.DiscPoint

Gauss points of the discs in the closed unit disc and the points next to them #

Let K be a complete nontrivially normed nonarchimedean field and K⟨T⟩ the coordinate ring of the closed unit disc closedPolydisc 1 K. For a centre a with ‖a‖ ≤ 1 and a radius 0 < r ≤ 1, the point η_{a,r} of the disc is the Gauss norm of radius r expanded about a:

η_{a,r} : f = ∑ bₙ (T - a)ⁿ ↦ sup_n ‖bₙ‖ rⁿ.

These are the Gauss points of the K-rational discs in the closed unit disc. When K is algebraically closed they are exactly the points of types (2) (r ∈ |K^×|) and (3) (r ∉ |K^×|) in Wedhorn's description of the closed unit disc (Example 7.57); over a general K, Gauss points of discs whose centres need a field extension are not of this form. The point η_{a,r} is the pullback of the Gauss point η_r = gaussPoint about the origin along the translation T ↦ T + a of K⟨T⟩.

The main result is that η_{a,r} depends only on the disc D(a, r) = {y : ‖y - a‖ ≤ r}, while distinct radii give distinct points: η_{a,r} = η_{b,s} exactly when r = s and ‖a - b‖ ≤ r. The key input is that the Gauss norm of radius r is invariant under translation by any c with ‖c‖ ≤ r, which holds over any complete normed commutative ring with multiplicative ultrametric norm. In particular, at r = 1 every centre gives the Gauss point of the disc. Like the Gauss point about the origin, η_{a,r} has trivial support and so is not a classical point.

The same translation recentres the refined points η_{r⁺} and η_{r⁻} next to η_r, giving points η_{a,r⁺} (for r < 1) and η_{a,r⁻} of the disc. When K is algebraically closed and r ∈ |K^×|, these are the points of type (5) in Wedhorn's Example 7.57, written there a_{>r} and a_{<r}. Both specialize from η_{a,r}, and for r ∈ |K^×| the three points are pairwise distinct.

The Gauss valuation just above r is invariant under translation by every c with ‖c‖ ≤ r: translation preserves the last degree in which a series attains its Gauss norm. So η_{a,r⁺} depends only on the closed disc D(a, r), and there is one such point for each point η_{a,r}. The Gauss valuation just below r is invariant only under translation by c with ‖c‖ < r, since translating T by an element of norm r moves the first degree attaining its Gauss norm from 1 to 0. So η_{a,r⁻} depends exactly on the open disc {y : ‖y - a‖ < r}, and the open discs of radius r inside D(a, r) give pairwise distinct points next to η_{a,r}. All three invariance statements come from TauCeti.ValuationSpectrum.valuation_taylorHom_eq: a continuous valuation that bounds every monomial of a series by the series, and the shifted variable T + c by T, is invariant under translation by c.

Main definitions #

Main results #

References #

Translation invariance of the Gauss valuations #

theorem TauCeti.ValuationSpectrum.closedDiscGaussValuation_taylorHom {R : Type u_1} [NormedCommRing R] [IsUltrametricDist R] [NonarchimedeanRing R] [NormMulClass R] [NormOneClass R] [CompleteSpace R] {r : ℝ} (hr₀ : 0 < r) (hr₁ : r ≤ 1) (a : Fin 1 → R) (ha : ∀ (i : Fin 1), Huber.IsPowerBounded (a i)) (har : ‖a 0‖ ≤ r) (f : ↥(Huber.weightedRestrictedSubring (fun (x : Fin 1) => {1}) ⋯)) :
(closedDiscGaussValuation hr₀ hr₁) ((taylorHom a ha) f) = (closedDiscGaussValuation hr₀ hr₁) f

The Gauss norm of radius r is invariant under translation by c with ‖c‖ ≤ r: the Gauss norms of f(T) and f(T + c) agree. Here c is the sole entry a 0 of the tuple a.

theorem TauCeti.ValuationSpectrum.closedDiscGaussValuationAbove_taylorHom {R : Type u_1} [NormedCommRing R] [IsUltrametricDist R] [NonarchimedeanRing R] [NormMulClass R] [NormOneClass R] [CompleteSpace R] {r : ℝ} (hr₀ : 0 < r) (hr₁ : r ≤ 1) (a : Fin 1 → R) (ha : ∀ (i : Fin 1), Huber.IsPowerBounded (a i)) (har : ‖a 0‖ ≤ r) (f : ↥(Huber.weightedRestrictedSubring (fun (x : Fin 1) => {1}) ⋯)) :

The Gauss valuation just above r is invariant under translation by c with ‖c‖ ≤ r: f(T) and f(T + c) have the same Gauss norm of radius r and the same last degree attaining it. Here c is the sole entry a 0 of the tuple a.

theorem TauCeti.ValuationSpectrum.closedDiscGaussValuationBelow_taylorHom {R : Type u_1} [NormedCommRing R] [IsUltrametricDist R] [NonarchimedeanRing R] [NormMulClass R] [NormOneClass R] [CompleteSpace R] {r : ℝ} (hr₀ : 0 < r) (hr₁ : r ≤ 1) (a : Fin 1 → R) (ha : ∀ (i : Fin 1), Huber.IsPowerBounded (a i)) (har : ‖a 0‖ < r) (f : ↥(Huber.weightedRestrictedSubring (fun (x : Fin 1) => {1}) ⋯)) :

The Gauss valuation just below r is invariant under translation by c with ‖c‖ < r: f(T) and f(T + c) have the same Gauss norm of radius r and the same first degree attaining it. Here c is the sole entry a 0 of the tuple a. Translation by c with ‖c‖ = r moves the first degree: T attains its Gauss norm first in degree 1, and T + c in degree 0.

The points η_{a,r} #

noncomputable def TauCeti.ValuationSpectrum.discPoint {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) :

The point η_{a,r} of the closed unit disc, for a centre ‖a‖ ≤ 1 and a radius 0 < r ≤ 1: the Gauss norm of radius r about a, f ↦ sup_n ‖bₙ‖ rⁿ where f = ∑ bₙ (T - a)ⁿ. It is the pullback of the Gauss point η_r along the translation T ↦ T + a.

Instances For
    theorem TauCeti.ValuationSpectrum.discPoint_val {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) :
    ↑(discPoint a ha hr₀ hr₁) = comap (taylorHom (fun (x : Fin 1) => a) ⋯) ↑(gaussPoint hr₀ hr₁)

    The underlying point in Spv K⟨T⟩ is the pullback of the Gauss point η_r along the translation T ↦ T + a.

    @[simp]
    theorem TauCeti.ValuationSpectrum.discPoint_vle_iff {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) (f g : ↥(Huber.weightedRestrictedSubring (fun (x : Fin 1) => {1}) ⋯)) :
    f ≤ᵥ g ↔ (closedDiscGaussValuation hr₀ hr₁) ((taylorHom (fun (x : Fin 1) => a) ⋯) f) ≤ (closedDiscGaussValuation hr₀ hr₁) ((taylorHom (fun (x : Fin 1) => a) ⋯) g)

    The point η_{a,r} compares f and g by the Gauss norms of radius r of f(T + a) and g(T + a).

    theorem TauCeti.ValuationSpectrum.coe_closedDiscGaussValuation_taylorHom_weightedX_sub_weightedC {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} {a : K} (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) (b : K) :
    ↑((closedDiscGaussValuation hr₀ hr₁) ((taylorHom (fun (x : Fin 1) => a) ⋯) (Huber.weightedX (fun (x : Fin 1) => {1}) ⋯ 0 - (Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) b))) = max r ‖b - a‖

    The Gauss norm of radius r about a takes the value max r ‖b - a‖ on T - b: this is the value of η_{a,r} on T - b.

    @[simp]
    theorem TauCeti.ValuationSpectrum.discPoint_zero {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (ha : ‖0‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) :
    discPoint 0 ha hr₀ hr₁ = gaussPoint hr₀ hr₁

    About the origin, η_{0,r} is the Gauss point η_r.

    theorem TauCeti.ValuationSpectrum.comap_taylorHom_discPoint {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} {b c : K} (hb : ‖b‖ ≤ 1) (hc : ‖c‖ ≤ 1) (hcb : ‖c + b‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) :
    comap (taylorHom (fun (x : Fin 1) => b) ⋯) ↑(discPoint c hc hr₀ hr₁) = ↑(discPoint (c + b) hcb hr₀ hr₁)

    Translating recentres η_{c,r}: pulling η_{c,r} back along the translation T ↦ T + b gives η_{c+b,r}, since translations compose additively.

    theorem TauCeti.ValuationSpectrum.discPoint_eq_gaussPoint_of_norm_le {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} {a : K} (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) (har : ‖a‖ ≤ r) :
    discPoint a ha hr₀ hr₁ = gaussPoint hr₀ hr₁

    Recentring within the disc: η_{a,r} = η_r whenever ‖a‖ ≤ r, by translation invariance of the Gauss norm of radius r.

    theorem TauCeti.ValuationSpectrum.discPoint_eq_gaussPoint_iff {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r s : ℝ} {a : K} (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) (hs₀ : 0 < s) (hs₁ : s ≤ 1) :
    discPoint a ha hr₀ hr₁ = gaussPoint hs₀ hs₁ ↔ r = s ∧ ‖a‖ ≤ r

    η_{a,r} is the Gauss point η_s exactly when r = s and ‖a‖ ≤ r. If ‖a‖ > r, then η_{a,r} finds T - a strictly smaller than the constant a, while every Gauss point about the origin finds it at least as large.

    theorem TauCeti.ValuationSpectrum.discPoint_eq_discPoint_iff {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r s : ℝ} {a b : K} (ha : ‖a‖ ≤ 1) (hb : ‖b‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) (hs₀ : 0 < s) (hs₁ : s ≤ 1) :
    discPoint a ha hr₀ hr₁ = discPoint b hb hs₀ hs₁ ↔ r = s ∧ ‖a - b‖ ≤ r

    η_{a,r} depends only on the disc D(a, r): η_{a,r} = η_{b,s} if and only if r = s and ‖a - b‖ ≤ r, that is, the radii agree and each centre lies in the other's disc.

    At radius one every centre gives the Gauss point of the disc: D(a, 1) is the whole closed unit disc.

    theorem TauCeti.ValuationSpectrum.discPoint_vle_zero_iff {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) {f : ↥(Huber.weightedRestrictedSubring (fun (x : Fin 1) => {1}) ⋯)} :
    f ≤ᵥ 0 ↔ f = 0

    A point η_{a,r} kills only the zero series.

    @[simp]
    theorem TauCeti.ValuationSpectrum.supp_discPoint {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) :
    (↑(discPoint a ha hr₀ hr₁)).supp = ⊥

    The support of η_{a,r} is trivial.

    theorem TauCeti.ValuationSpectrum.discPoint_ne_classicalPoint {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) (x : ↑(spa (Huber.powerBoundedSubring K))) (b : Fin 1 → K) (hb : ∀ (i : Fin 1), Huber.IsPowerBounded (b i)) :
    discPoint a ha hr₀ hr₁ ≠ classicalPoint x b hb

    The points η_{a,r} are not classical points.

    The points η_{a,r⁺} and η_{a,r⁻} #

    noncomputable def TauCeti.ValuationSpectrum.discPointAbove {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r < 1) :

    The point η_{a,r⁺} of the closed unit disc, for a centre ‖a‖ ≤ 1 and a radius 0 < r < 1: the Gauss valuation just above r about a, f ↦ (|f|_r, s) with s the last degree in which f(T + a) attains its Gauss norm |f|_r. It is the pullback of η_{r⁺} along the translation T ↦ T + a.

    Instances For
      noncomputable def TauCeti.ValuationSpectrum.discPointBelow {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) :

      The point η_{a,r⁻} of the closed unit disc, for a centre ‖a‖ ≤ 1 and a radius 0 < r ≤ 1: the Gauss valuation just below r about a, f ↦ (|f|_r, -s) with s the first degree in which f(T + a) attains its Gauss norm |f|_r. It is the pullback of η_{r⁻} along the translation T ↦ T + a.

      Instances For
        theorem TauCeti.ValuationSpectrum.discPointAbove_val {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r < 1) :
        ↑(discPointAbove a ha hr₀ hr₁) = comap (taylorHom (fun (x : Fin 1) => a) ⋯) ↑(gaussPointAbove hr₀ hr₁)

        The underlying point of η_{a,r⁺} in Spv K⟨T⟩ is the pullback of η_{r⁺} along the translation T ↦ T + a.

        theorem TauCeti.ValuationSpectrum.discPointBelow_val {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) :
        ↑(discPointBelow a ha hr₀ hr₁) = comap (taylorHom (fun (x : Fin 1) => a) ⋯) ↑(gaussPointBelow hr₀ hr₁)

        The underlying point of η_{a,r⁻} in Spv K⟨T⟩ is the pullback of η_{r⁻} along the translation T ↦ T + a.

        @[simp]
        theorem TauCeti.ValuationSpectrum.discPointAbove_vle_iff {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r < 1) (f g : ↥(Huber.weightedRestrictedSubring (fun (x : Fin 1) => {1}) ⋯)) :
        f ≤ᵥ g ↔ (closedDiscGaussValuationAbove hr₀ ⋯) ((taylorHom (fun (x : Fin 1) => a) ⋯) f) ≤ (closedDiscGaussValuationAbove hr₀ ⋯) ((taylorHom (fun (x : Fin 1) => a) ⋯) g)

        The point η_{a,r⁺} compares f and g by the Gauss valuations just above r of f(T + a) and g(T + a).

        @[simp]
        theorem TauCeti.ValuationSpectrum.discPointBelow_vle_iff {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) (f g : ↥(Huber.weightedRestrictedSubring (fun (x : Fin 1) => {1}) ⋯)) :
        f ≤ᵥ g ↔ (closedDiscGaussValuationBelow hr₀ hr₁) ((taylorHom (fun (x : Fin 1) => a) ⋯) f) ≤ (closedDiscGaussValuationBelow hr₀ hr₁) ((taylorHom (fun (x : Fin 1) => a) ⋯) g)

        The point η_{a,r⁻} compares f and g by the Gauss valuations just below r of f(T + a) and g(T + a).

        @[simp]
        theorem TauCeti.ValuationSpectrum.discPointAbove_zero {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (ha : ‖0‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r < 1) :
        discPointAbove 0 ha hr₀ hr₁ = gaussPointAbove hr₀ hr₁

        About the origin, η_{0,r⁺} is η_{r⁺}.

        @[simp]
        theorem TauCeti.ValuationSpectrum.discPointBelow_zero {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (ha : ‖0‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) :
        discPointBelow 0 ha hr₀ hr₁ = gaussPointBelow hr₀ hr₁

        About the origin, η_{0,r⁻} is η_{r⁻}.

        theorem TauCeti.ValuationSpectrum.discPointAbove_vle_weightedC_iff {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r < 1) (c : K) :
        Huber.weightedX (fun (x : Fin 1) => {1}) ⋯ 0 - (Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) a ≤ᵥ (Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) c ↔ r < ‖c‖

        η_{a,r⁺} finds T - a at most a constant c exactly when r < ‖c‖: the value of T - a lies just above the constants of norm r.

        theorem TauCeti.ValuationSpectrum.discPointAbove_weightedC_vle_iff {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r < 1) (c : K) :
        (Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) c ≤ᵥ Huber.weightedX (fun (x : Fin 1) => {1}) ⋯ 0 - (Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) a ↔ ‖c‖ ≤ r

        η_{a,r⁺} finds a constant c at most T - a exactly when ‖c‖ ≤ r.

        theorem TauCeti.ValuationSpectrum.discPointBelow_vle_weightedC_iff {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) (c : K) :
        Huber.weightedX (fun (x : Fin 1) => {1}) ⋯ 0 - (Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) a ≤ᵥ (Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) c ↔ r ≤ ‖c‖

        η_{a,r⁻} finds T - a at most a constant c exactly when r ≤ ‖c‖.

        theorem TauCeti.ValuationSpectrum.discPointBelow_weightedC_vle_iff {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) (c : K) :
        (Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) c ≤ᵥ Huber.weightedX (fun (x : Fin 1) => {1}) ⋯ 0 - (Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) a ↔ ‖c‖ < r

        η_{a,r⁻} finds a constant c at most T - a exactly when ‖c‖ < r: the value of T - a lies just below the constants of norm r.

        theorem TauCeti.ValuationSpectrum.valuation_weightedX_sub_weightedC_of_lt {A : Type u_2} [CommRing A] [TopologicalSpace A] [NonarchimedeanRing A] {x : ↑(closedPolydisc 1 A)} {a : A} (Q : A → Prop) [DecidablePred Q] (hlt : ∀ (c : A), Q c → (↑x).valuation ((Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) c) < (↑x).valuation (Huber.weightedX (fun (x : Fin 1) => {1}) ⋯ 0 - (Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) a)) (hgt : ∀ (c : A), ¬Q c → (↑x).valuation (Huber.weightedX (fun (x : Fin 1) => {1}) ⋯ 0 - (Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) a) < (↑x).valuation ((Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) c)) (b : A) :
        (↑x).valuation (Huber.weightedX (fun (x : Fin 1) => {1}) ⋯ 0 - (Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) b) = if Q (b - a) then (↑x).valuation (Huber.weightedX (fun (x : Fin 1) => {1}) ⋯ 0 - (Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) a) else (↑x).valuation ((Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) (b - a))

        If x(T - a) is strictly larger than x(c) for the constants with Q c and strictly smaller for the others, then x(T - b) is x(T - a) when Q (b - a) and x(b - a) otherwise: write T - b = (T - a) - (b - a) and apply the ultrametric equality.

        theorem TauCeti.ValuationSpectrum.valuation_weightedX_sub_weightedC_discPointAbove {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r < 1) (b : K) :
        (↑(discPointAbove a ha hr₀ hr₁)).valuation (Huber.weightedX (fun (x : Fin 1) => {1}) ⋯ 0 - (Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) b) = if ‖b - a‖ ≤ r then (↑(discPointAbove a ha hr₀ hr₁)).valuation (Huber.weightedX (fun (x : Fin 1) => {1}) ⋯ 0 - (Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) a) else (↑(discPointAbove a ha hr₀ hr₁)).valuation ((Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) (b - a))

        The value of η_{a,r⁺} on T - b is its value on T - a when ‖b - a‖ ≤ r, and the value of the constant b - a otherwise: T - b = (T - a) - (b - a), and T - a is strictly larger than the constants of norm at most r and strictly smaller than the others.

        theorem TauCeti.ValuationSpectrum.valuation_weightedX_sub_weightedC_discPointBelow {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) (b : K) :
        (↑(discPointBelow a ha hr₀ hr₁)).valuation (Huber.weightedX (fun (x : Fin 1) => {1}) ⋯ 0 - (Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) b) = if ‖b - a‖ < r then (↑(discPointBelow a ha hr₀ hr₁)).valuation (Huber.weightedX (fun (x : Fin 1) => {1}) ⋯ 0 - (Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) a) else (↑(discPointBelow a ha hr₀ hr₁)).valuation ((Huber.weightedC (fun (x : Fin 1) => {1}) ⋯) (b - a))

        The value of η_{a,r⁻} on T - b is its value on T - a when ‖b - a‖ < r, and the value of the constant b - a otherwise: T - b = (T - a) - (b - a), and T - a is strictly larger than the constants of norm less than r and strictly smaller than the others.

        theorem TauCeti.ValuationSpectrum.comap_taylorHom_discPointAbove {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} {b c : K} (hb : ‖b‖ ≤ 1) (hc : ‖c‖ ≤ 1) (hcb : ‖c + b‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r < 1) :
        comap (taylorHom (fun (x : Fin 1) => b) ⋯) ↑(discPointAbove c hc hr₀ hr₁) = ↑(discPointAbove (c + b) hcb hr₀ hr₁)

        Translating recentres η_{c,r⁺}: pulling η_{c,r⁺} back along the translation T ↦ T + b gives η_{c+b,r⁺}.

        theorem TauCeti.ValuationSpectrum.comap_taylorHom_discPointBelow {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} {b c : K} (hb : ‖b‖ ≤ 1) (hc : ‖c‖ ≤ 1) (hcb : ‖c + b‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) :
        comap (taylorHom (fun (x : Fin 1) => b) ⋯) ↑(discPointBelow c hc hr₀ hr₁) = ↑(discPointBelow (c + b) hcb hr₀ hr₁)

        Translating recentres η_{c,r⁻}: pulling η_{c,r⁻} back along the translation T ↦ T + b gives η_{c+b,r⁻}.

        theorem TauCeti.ValuationSpectrum.discPointAbove_eq_gaussPointAbove_iff {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r s : ℝ} {a : K} (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r < 1) (hs₀ : 0 < s) (hs₁ : s < 1) :
        discPointAbove a ha hr₀ hr₁ = gaussPointAbove hs₀ hs₁ ↔ r = s ∧ ‖a‖ ≤ r

        η_{a,r⁺} is η_{s⁺} exactly when r = s and ‖a‖ ≤ r. If ‖a‖ > r, then η_{a,r⁺} finds T - a strictly smaller than the constant a, while η_{s⁺} finds a, a monomial of T - a, at most T - a.

        theorem TauCeti.ValuationSpectrum.discPointBelow_eq_gaussPointBelow_iff {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r s : ℝ} {a : K} (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) (hs₀ : 0 < s) (hs₁ : s ≤ 1) :
        discPointBelow a ha hr₀ hr₁ = gaussPointBelow hs₀ hs₁ ↔ r = s ∧ ‖a‖ < r

        η_{a,r⁻} is η_{s⁻} exactly when r = s and ‖a‖ < r. If ‖a‖ ≥ r, then η_{a,r⁻} finds T - a strictly smaller than the constant a, while η_{s⁻} finds a, a monomial of T - a, at most T - a.

        theorem TauCeti.ValuationSpectrum.discPointAbove_eq_discPointAbove_iff {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r s : ℝ} {a b : K} (ha : ‖a‖ ≤ 1) (hb : ‖b‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r < 1) (hs₀ : 0 < s) (hs₁ : s < 1) :
        discPointAbove a ha hr₀ hr₁ = discPointAbove b hb hs₀ hs₁ ↔ r = s ∧ ‖a - b‖ ≤ r

        η_{a,r⁺} depends only on the closed disc D(a, r): for ‖a‖, ‖b‖ ≤ 1, η_{a,r⁺} = η_{b,s⁺} if and only if r = s and ‖a - b‖ ≤ r, that is, if and only if η_{a,r} = η_{b,s} (TauCeti.ValuationSpectrum.discPoint_eq_discPoint_iff).

        theorem TauCeti.ValuationSpectrum.discPointBelow_eq_discPointBelow_iff {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r s : ℝ} {a b : K} (ha : ‖a‖ ≤ 1) (hb : ‖b‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) (hs₀ : 0 < s) (hs₁ : s ≤ 1) :
        discPointBelow a ha hr₀ hr₁ = discPointBelow b hb hs₀ hs₁ ↔ r = s ∧ ‖a - b‖ < r

        η_{a,r⁻} depends only on the open disc D°(a, r): for ‖a‖, ‖b‖ ≤ 1, η_{a,r⁻} = η_{b,s⁻} if and only if r = s and ‖a - b‖ < r. So the open discs of radius r inside D(a, r) give pairwise distinct points η_{b,r⁻}, all specializations of η_{a,r}.

        theorem TauCeti.ValuationSpectrum.discPoint_specializes_discPointAbove {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r < 1) :
        discPoint a ha hr₀ ⋯ ⤳ discPointAbove a ha hr₀ hr₁

        η_{a,r⁺} is a specialization of η_{a,r}, as η_{r⁺} is of η_r: pullback along the translation is continuous.

        theorem TauCeti.ValuationSpectrum.discPoint_specializes_discPointBelow {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) :
        discPoint a ha hr₀ hr₁ ⤳ discPointBelow a ha hr₀ hr₁

        η_{a,r⁻} is a specialization of η_{a,r}, as η_{r⁻} is of η_r: pullback along the translation is continuous.

        theorem TauCeti.ValuationSpectrum.discPointAbove_ne_discPoint {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r < 1) (hr : ∃ (c : K), ‖c‖ = r) :
        discPointAbove a ha hr₀ hr₁ ≠ discPoint a ha hr₀ ⋯

        η_{a,r⁺} is not η_{a,r} when r is the norm of an element of K.

        theorem TauCeti.ValuationSpectrum.discPointBelow_ne_discPoint {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) (hr : ∃ (c : K), ‖c‖ = r) :
        discPointBelow a ha hr₀ hr₁ ≠ discPoint a ha hr₀ hr₁

        η_{a,r⁻} is not η_{a,r} when r is the norm of an element of K.

        theorem TauCeti.ValuationSpectrum.discPointBelow_ne_discPointAbove {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r < 1) (hr : ∃ (c : K), ‖c‖ = r) :
        discPointBelow a ha hr₀ ⋯ ≠ discPointAbove a ha hr₀ hr₁

        η_{a,r⁻} and η_{a,r⁺} are distinct when r is the norm of an element of K.

        @[simp]
        theorem TauCeti.ValuationSpectrum.supp_discPointAbove {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r < 1) :
        (↑(discPointAbove a ha hr₀ hr₁)).supp = ⊥

        The support of η_{a,r⁺} is trivial.

        @[simp]
        theorem TauCeti.ValuationSpectrum.supp_discPointBelow {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) :
        (↑(discPointBelow a ha hr₀ hr₁)).supp = ⊥

        The support of η_{a,r⁻} is trivial.

        theorem TauCeti.ValuationSpectrum.discPointAbove_ne_classicalPoint {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r < 1) (x : ↑(spa (Huber.powerBoundedSubring K))) (b : Fin 1 → K) (hb : ∀ (i : Fin 1), Huber.IsPowerBounded (b i)) :
        discPointAbove a ha hr₀ hr₁ ≠ classicalPoint x b hb

        The points η_{a,r⁺} are not classical points.

        theorem TauCeti.ValuationSpectrum.discPointBelow_ne_classicalPoint {K : Type u_1} [NontriviallyNormedField K] [IsUltrametricDist K] [NonarchimedeanRing K] [CompleteSpace K] {r : ℝ} (a : K) (ha : ‖a‖ ≤ 1) (hr₀ : 0 < r) (hr₁ : r ≤ 1) (x : ↑(spa (Huber.powerBoundedSubring K))) (b : Fin 1 → K) (hb : ∀ (i : Fin 1), Huber.IsPowerBounded (b i)) :
        discPointBelow a ha hr₀ hr₁ ≠ classicalPoint x b hb

        The points η_{a,r⁻} are not classical points.