Documentation

Hironaka.Algebra.Local.ChartCompletion

The completed chart map is the chart substitution #

[Kol07, (60.3)] writes the chart map R → R'_{𝔪'} in the coordinates x of R and y of the chart as the substitution xᵢ ↦ yᵢ y_r (i < r), xⱼ ↦ yⱼ (j ≥ r). This module proves that statement for the completions (hasCohenChart): the map R̂ → (R'_{𝔪'})^ induced by R → R'_{𝔪'} is the substitution chartSubst r of Hironaka/Algebra/Local/ChartSubst.lean under the Cohen isomorphism R̂ ≅ K⟦x⟧ (cohenEquiv, Hironaka/Algebra/Local/CohenIso.lean) and the Cohen isomorphism (R'_{𝔪'})^ ≅ K⟦y⟧ built on the coefficient field transported from R̂ (chartCoefficientField, Hironaka/Algebra/Local/Lemma61.lean) and on the regular system of parameters y of R'_{𝔪'} (Hironaka/Algebra/Local/ChartLocal.lean). This is the predicate HasCohenChart of Hironaka/Algebra/Local/Lemma61.lean, whose order bounds thereby become unconditional.

The identification is proved level by level (completionMap_cohenMap) for an abstract target: a Noetherian local ring B with a local homomorphism φ : R → B, a family y in B satisfying the chart relations φ(xᵢ) = y_r yᵢ (i < r), φ(xⱼ) = yⱼ, and a coefficient field on B̂ compatible with that of R̂ through a ring map e of residue fields. Modulo 𝔪_B̂ᴺ, both φ̂(Φ_R(F)) and Φ_B(subst (F.map e)), where Φ_R = cohenMap R x and Φ_B = cohenMap B y, are the evaluation of the truncation truncTotal N F at the images of the variables (mk_completionMap_cohenMap). Keeping B abstract keeps every unification away from the concrete chart ring, whose definition as an Algebra.adjoin Lean would otherwise unfold.

Elementary inputs collected here: the chart relations in R'_{𝔪'} (algebraMap_x_atPrime); the chart substitution as a polynomial substitution (chartSubstPoly, subst_chartSubst_coe), so that on truncations it is a polynomial evaluation; its compatibility with a change of coefficients (map_subst_chartSubst); and the isomorphism of residue fields K ≃ K_B (chartResidueEquiv).

Used in Hironaka/Resolution/Analytic/GoingUp/MaxOrder.lean; Hironaka/Algebra/Local/ChartCompletionHom.lean and Hironaka/Algebra/Local/ChartHom.lean build on it.

theorem IsLocalRing.algebraMap_x_atPrime_of_lt {R : Type u_1} [CommRing R] {n : ℕ} (x : Fin n → R) (r : Fin n) [(chartOrigin x r).IsPrime] {i : Fin n} (hi : i < r) :

φ(xᵢ) = y_r yᵢ in R'_{𝔪'} for i < r.

theorem IsLocalRing.algebraMap_x_atPrime_of_not_lt {R : Type u_1} [CommRing R] {n : ℕ} (x : Fin n → R) (r : Fin n) [(chartOrigin x r).IsPrime] {j : Fin n} (hj : ¬j < r) :

φ(xⱼ) = yⱼ in R'_{𝔪'} for j ≥ r.

noncomputable def IsLocalRing.chartSubstPoly {n : ℕ} (r : Fin n) {K : Type u_1} [CommRing K] :
Fin n → MvPolynomial (Fin n) K

The chart substitution as a polynomial substitution: Xᵢ ↦ Xᵢ X_r (i < r), Xⱼ ↦ Xⱼ.

Equations
Instances For
    theorem IsLocalRing.coe_chartSubstPoly {n : ℕ} (r : Fin n) {K : Type u_1} [CommRing K] (i : Fin n) :

    On polynomials the chart substitution is the polynomial substitution chartSubstPoly.

    theorem IsLocalRing.map_chartSubst {n : ℕ} (r : Fin n) {K : Type u_1} [CommRing K] {L : Type u_2} [CommRing L] (e : K →+* L) (i : Fin n) :

    The chart substitution commutes with a change of coefficients.

    theorem IsLocalRing.truncTotal_map {n : ℕ} {K : Type u_1} {L : Type u_2} [CommRing K] [CommRing L] (e : K →+* L) (N : ℕ) (F : MvPowerSeries (Fin n) K) :

    Truncation commutes with a change of coefficients.

    noncomputable def IsLocalRing.chartResidueEquiv {R : Type u_1} [CommRing R] [IsRegularLocalRing R] {n : ℕ} (x : Fin n → R) (r : Fin n) (hx : maximalIdeal R = Ideal.span (Set.range x)) (hn : ↑n = ringKrullDim R) [(chartOrigin x r).IsPrime] :

    The isomorphism e : K ≃ K_B of residue fields induced by R → R'_{𝔪'}.

    Equations
    Instances For

      The transported coefficient field on e k is φ̂ of the coefficient field of R̂ on k.

      The chart's local ring is Noetherian, being a localization of the Noetherian chart ring.

      @[reducible, inline]
      noncomputable abbrev IsLocalRing.chartY' {R : Type u_1} [CommRing R] {n : ℕ} (x : Fin n → R) (r : Fin n) [(chartOrigin x r).IsPrime] :

      The regular system of parameters y of the chart's local ring (maximalIdeal_localization_chartOrigin).

      Equations
      Instances For

        The completed chart map for an abstract target #

        The level-by-level identification is proved for an arbitrary Noetherian local ring B with a local homomorphism φ : R → B, a family y in B satisfying the chart relations φ(xᵢ) = y_r yᵢ (i < r), φ(xⱼ) = yⱼ, and a coefficient-field datum on B̂ compatible with that of R̂ through a ring map e of residue fields. Keeping B abstract keeps every unification away from the concrete chart ring (whose definition as an adjoin Lean would otherwise unfold).

        The level-N map R̂/𝔪̂ᴺ → B̂/𝔪_B̂ᴺ induced by φ̂.

        Equations
        Instances For

          Constants: the level map carries the coefficient field of R̂ to the datum on B̂.

          theorem IsLocalRing.levelMap_levelVar {R : Type u_1} [CommRing R] [IsRegularLocalRing R] {n : ℕ} (x : Fin n → R) (r : Fin n) {B : Type u_2} [CommRing B] [IsLocalRing B] [IsNoetherianRing B] (φ : R →+* B) [IsLocalHom φ] [Algebra (ResidueField B) (AdicCompletion (maximalIdeal B) B)] (y : Fin n → B) (hyx : ∀ (i : Fin n), φ (x i) = if i < r then y r * y i else y i) (N : ℕ) (i : Fin n) :
          (levelMap φ N) (levelVar R x N i) = (MvPolynomial.aeval (levelVar B y N)) (chartSubstPoly r i)

          Variables: φ̂(ι xᵢ) at level N is the chart substitution evaluated at the levelVar of y.

          theorem IsLocalRing.levelMap_aeval {R : Type u_1} [CommRing R] [IsRegularLocalRing R] [Algebra ℚ R] {n : ℕ} (x : Fin n → R) (r : Fin n) {B : Type u_2} [CommRing B] [IsLocalRing B] [IsNoetherianRing B] (φ : R →+* B) [IsLocalHom φ] [Algebra (ResidueField B) (AdicCompletion (maximalIdeal B) B)] (e : ResidueField R →+* ResidueField B) (he : ∀ (k : ResidueField R), (algebraMap (ResidueField B) (AdicCompletion (maximalIdeal B) B)) (e k) = (completionMap φ) ((coefficientField R) k)) (y : Fin n → B) (hyx : ∀ (i : Fin n), φ (x i) = if i < r then y r * y i else y i) (N : ℕ) (P : MvPolynomial (Fin n) (ResidueField R)) :

          Polynomials: the level map of an evaluation at the levelVar of x is the evaluation, at the levelVar of y, of the chart substitution of the polynomial with coefficients moved by e.

          theorem IsLocalRing.mk_completionMap_cohenMap {R : Type u_1} [CommRing R] [IsRegularLocalRing R] [Algebra ℚ R] {n : ℕ} (x : Fin n → R) (r : Fin n) {B : Type u_2} [CommRing B] [IsLocalRing B] [IsNoetherianRing B] (φ : R →+* B) [IsLocalHom φ] [Algebra (ResidueField B) (AdicCompletion (maximalIdeal B) B)] (e : ResidueField R →+* ResidueField B) (he : ∀ (k : ResidueField R), (algebraMap (ResidueField B) (AdicCompletion (maximalIdeal B) B)) (e k) = (completionMap φ) ((coefficientField R) k)) (y : Fin n → B) (hyx : ∀ (i : Fin n), φ (x i) = if i < r then y r * y i else y i) (hxm : ∀ (i : Fin n), x i ∈ maximalIdeal R) (hym : ∀ (i : Fin n), y i ∈ maximalIdeal B) (N : ℕ) (F : MvPowerSeries (Fin n) (ResidueField R)) :

          Level N of the identification: modulo 𝔪_B̂ᴺ, φ̂(Φ_R(F)) is the Cohen map of B applied to the chart substitution of F (coefficients moved by e).

          theorem IsLocalRing.completionMap_cohenMap {R : Type u_1} [CommRing R] [IsRegularLocalRing R] [Algebra ℚ R] {n : ℕ} (x : Fin n → R) (r : Fin n) {B : Type u_2} [CommRing B] [IsLocalRing B] [IsNoetherianRing B] (φ : R →+* B) [IsLocalHom φ] [Algebra (ResidueField B) (AdicCompletion (maximalIdeal B) B)] (e : ResidueField R →+* ResidueField B) (he : ∀ (k : ResidueField R), (algebraMap (ResidueField B) (AdicCompletion (maximalIdeal B) B)) (e k) = (completionMap φ) ((coefficientField R) k)) (y : Fin n → B) (hyx : ∀ (i : Fin n), φ (x i) = if i < r then y r * y i else y i) (hxm : ∀ (i : Fin n), x i ∈ maximalIdeal R) (hym : ∀ (i : Fin n), y i ∈ maximalIdeal B) (F : MvPowerSeries (Fin n) (ResidueField R)) :

          The completed chart map for an abstract target: φ̂ ∘ Φ_R = Φ_B ∘ subst ∘ map e.

          @[reducible, inline]

          The transported coefficient field as an algebra structure on (R'_{𝔪'})^.

          Equations
          Instances For
            theorem IsLocalRing.algebraMap_x_atPrime {R : Type u_1} [CommRing R] {n : ℕ} (x : Fin n → R) (r : Fin n) [(chartOrigin x r).IsPrime] (i : Fin n) :
            (algebraMap R (Localization.AtPrime (chartOrigin x r))) (x i) = if i < r then chartY' x r r * chartY' x r i else chartY' x r i

            The chart relations in the local ring: φ(xᵢ) = y_r yᵢ (i < r), φ(xⱼ) = yⱼ.

            theorem IsLocalRing.hasCohenChart {R : Type u_1} [CommRing R] [IsRegularLocalRing R] [Algebra ℚ R] {n : ℕ} (x : Fin n → R) (r : Fin n) (hx : maximalIdeal R = Ideal.span (Set.range x)) (hn : ↑n = ringKrullDim R) [(chartOrigin x r).IsPrime] :
            HasCohenChart x r hx hn

            The completed chart map is the chart substitution ([Kol07, (60.3)]): the map induced on completions by R → R'_{𝔪'} is the chart substitution xᵢ ↦ yᵢ y_r (i < r), xⱼ ↦ yⱼ (j ≥ r) under the Cohen isomorphism of R̂ and the Cohen isomorphism of (R'_{𝔪'})^ built on the transported coefficient field chartCoefficientField and the regular system of parameters y of R'_{𝔪'}, by the level-by-level identification completionMap_cohenMap.