Documentation

Hironaka.AnalyticSpace.RegDensity

Density of the simple points of a reduced complex space #

The simple points of a reduced complex analytic space are dense [Fre17, II 5.13]: Hironaka's remark that "if X is a reduced complex-analytic space, then the open subspace V is dense in X" [Hir64, Introduction]. This file proves it (dense_reg_of_isReduced_of_hyps) from two statements of the local parametrization theory of a prime germ, taken as explicit hypotheses h17a, h17c and proved in Hironaka/Analytic/Rueckert/ParametrizationPrimitive.lean (exists_primitive_normalization) and ParametrizationGraph.lean (exists_graph_of_isPrime); the unconditional statement is Manifold.dense_reg_of_isReduced_complex of Hironaka/Manifold/FiniteSuccession/Restrict/LiftRegDense.lean.

The argument (Freitag's, with one change). Let x be a point of a reduced complex space X, not simple; X|U ≅ (localModel V(f))|W near x, z the image of x, and I = (f)_z ⊆ 𝒪_n the ideal of the model at z read through the Taylor isomorphism. Because every stalk of X is reduced, (f)_{z'} is radical at every point z' of W — Freitag spreads radicality from z by Cartan's coherence theorem, which is therefore not needed. I ≠ ⊤, ⊥ (z is a point, and 𝒪_n/⊥ = 𝒪_n is regular). Take a minimal prime P of I (finitely many) and a separating series h₀ in every other minimal prime but not in P (prime avoidance). The local parametrization theorem gives a Noether normalization with a primitive fibre coordinate (h17a: Q, A, B_i, in the coordinates of σ = substEquiv L, i.e. for P' = comap σ P) and the graph structure of V(P') near every point x' off A · Res(Q, Q') (h17c). Rückert's Nullstellensatz gives points x' of V(P') arbitrarily near 0 off g := (A · Res)(X ∘ e) · σ⁻¹ h₀ (frequently_mem_zeroSet_and_ne_zero). At such x': (i) V(I') = V(P') near x' (I' = comap σ I): every F ∈ P' has F · σ⁻¹h₀ ∈ I' (mul_mem_of_mem_minimalPrimes_of_forall_mem), and σ⁻¹h₀ does not vanish near x'; (ii) V(I') is the translated point set of the model (eventually_forall_evalSeries_modelGens_eq_zero_iff, eventually_mem_zeroSet_image_symm_iff), so z' with z'.1.1 = z.1.1 + L⁻¹ x' is a point of the model, in W and in any prescribed neighbourhood of z (eventually_exists_localModel_pt, exists_mem_nhds_of_mem_opens_localModel, exists_mem_nhds_of_mem_nhds_localModel_restrict); (iii) the ideal comap σ (f)_{z'} has, near 0, the zero set of the graph ideal J = (X_j − T_j(X ∘ e))_j of the translated graph (eventually_graph_eq_zero_iff), J is prime because 𝒪_n/J is regular (isRegularLocalRing_quotient_graphIdeal; a regular local ring is a domain), both are radical, so Rückert identifies them (eq_of_isRadical_of_zeroSet_eventuallyEq) and 𝒪_n/(f)_{z'} is regular (isRegularLocalRing_quotient_comap_iff); (iv) the point of X under z' is simple (mem_reg_iff_isRegularLocalRing_quotient) and lies in the prescribed neighbourhood of x (exists_regular_pt_of_hyps, dense_reg_of_isReduced_of_hyps). The parametrization is that of [GR84, Ch. 3–4]. Used by Hironaka/Manifold/FiniteSuccession/Restrict/LiftRegDense.lean.

theorem Analytic.eventually_eventually_add_of_eventually {n : ℕ} {P : (Fin n → ℂ) → Prop} (h : ∀ᶠ (w : Fin n → ℂ) in nhds 0, P w) :
∀ᶠ (x' : Fin n → ℂ) (y' : Fin n → ℂ) in nhds 0, P (x' + y')

Translation of an eventual property at 0: for x' near 0, it holds at x' + y' for y' near 0.

noncomputable def AnalyticSpace.modelGensFinset {n : ℕ} (G : TopologicalSpace.Opens (Kn ℂ n)) {k : ℕ} (f : Fin k → AnalyticFun ℂ n G) (z : ↑↑(localModel ℂ n G f).toPresheafedSpace) :

The finite generating system of (f)_z in Conv ℂ n.

Equations
Instances For

    modelGensFinset generates (f)_z.

    theorem AnalyticSpace.mem_zeroSet_modelGensFinset_iff {n : ℕ} (G : TopologicalSpace.Opens (Kn ℂ n)) {k : ℕ} (f : Fin k → AnalyticFun ℂ n G) (z : ↑↑(localModel ℂ n G f).toPresheafedSpace) (y' : Fin n → ℂ) :
    y' ∈ Analytic.zeroSet (modelGensFinset G f z) ↔ ∀ (j : Fin k), Analytic.evalSeries (↑(modelGens G f z j)) y' = 0

    The zero set of modelGensFinset.

    theorem AnalyticSpace.eventually_regular_pt_of_minimalPrime {n : ℕ} (G : TopologicalSpace.Opens (Kn ℂ n)) {k : ℕ} (f : Fin k → AnalyticFun ℂ n G) (h17a : ∀ {n : ℕ} (P : Ideal ↥(Analytic.Conv ℂ n)) [P.IsPrime], P ≠ ⊥ → ∃ (d : ℕ) (e : Fin d ↪ Fin n) (L : (Fin n → ℂ) ≃L[ℂ] Fin n → ℂ), Function.Injective ⇑(Analytic.normMap ℂ P e L) ∧ (↑(Analytic.normMap ℂ P e L)).Finite ∧ ∃ (i₀ : Fin n) (_ : i₀ ∉ Set.range ⇑e) (Q : Polynomial ↥(Analytic.Conv ℂ d)) (A : ↥(Analytic.Conv ℂ d)), Q.Monic ∧ Irreducible Q ∧ A ≠ 0 ∧ Polynomial.eval (Analytic.convX ℂ i₀) (Polynomial.map (Analytic.convEmbed ℂ e).toRingHom Q) ∈ Ideal.comap (Analytic.substEquiv L) P ∧ ∀ i ∉ Set.range ⇑e, ∃ (B : Polynomial ↥(Analytic.Conv ℂ d)), (Analytic.convEmbed ℂ e) A * Analytic.convX ℂ i - Polynomial.eval (Analytic.convX ℂ i₀) (Polynomial.map (Analytic.convEmbed ℂ e).toRingHom B) ∈ Ideal.comap (Analytic.substEquiv L) P) (h17c : ∀ {n : ℕ} (P : Ideal ↥(Analytic.Conv ℂ n)) [P.IsPrime] {d : ℕ} (e : Fin d ↪ Fin n) (L : (Fin n → ℂ) ≃L[ℂ] Fin n → ℂ), Function.Injective ⇑(Analytic.normMap ℂ P e L) → (↑(Analytic.normMap ℂ P e L)).Finite → ∀ i₀ ∉ Set.range ⇑e, ∀ (Q : Polynomial ↥(Analytic.Conv ℂ d)), Q.Monic → Irreducible Q → Polynomial.eval (Analytic.convX ℂ i₀) (Polynomial.map (Analytic.convEmbed ℂ e).toRingHom Q) ∈ Ideal.comap (Analytic.substEquiv L) P → ∀ (A : ↥(Analytic.Conv ℂ d)), A ≠ 0 → ∀ (B : Fin n → Polynomial ↥(Analytic.Conv ℂ d)), (∀ i ∉ Set.range ⇑e, (Analytic.convEmbed ℂ e) A * Analytic.convX ℂ i - Polynomial.eval (Analytic.convX ℂ i₀) (Polynomial.map (Analytic.convEmbed ℂ e).toRingHom (B i)) ∈ Ideal.comap (Analytic.substEquiv L) P) → ∀ {S : Finset ↥(Analytic.Conv ℂ n)}, Ideal.span ↑S = Ideal.comap (Analytic.substEquiv L) P → ∀ᶠ (x : Fin n → ℂ) in nhds 0, x ∈ Analytic.zeroSet S → Analytic.evalSeries (↑(A * Q.resultant (Polynomial.derivative Q))) (x ∘ ⇑e) ≠ 0 → ∃ (φ : (Fin d → ℂ) → Fin n → ℂ), AnalyticAt ℂ φ (x ∘ ⇑e) ∧ φ (x ∘ ⇑e) = x ∧ (∀ (u : Fin d → ℂ), φ u ∘ ⇑e = u) ∧ ∀ᶠ (y : Fin n → ℂ) in nhds x, y ∈ Analytic.zeroSet S ↔ y = φ (y ∘ ⇑e)) {W : TopologicalSpace.Opens ↑↑(localModel ℂ n G f).toPresheafedSpace} {z : ↑↑(localModel ℂ n G f).toPresheafedSpace} (hzW : z ∈ W) (hrad : ∀ z' ∈ W, (modelIdealAt G f z').IsRadical) {P : Ideal ↥(Analytic.Conv ℂ n)} (hP : P ∈ (modelIdealAt G f z).minimalPrimes) (hPbot : P ≠ ⊥) :
    ∃ (L : (Fin n → ℂ) ≃L[ℂ] Fin n → ℂ) (S : Finset ↥(Analytic.Conv ℂ n)) (g : ↥(Analytic.Conv ℂ n)), Ideal.span ↑S = Ideal.comap (Analytic.substEquiv L) P ∧ g ∉ Ideal.comap (Analytic.substEquiv L) P ∧ ∀ᶠ (x' : Fin n → ℂ) in nhds 0, x' ∈ Analytic.zeroSet S → Analytic.evalSeries (↑g) x' ≠ 0 → ∃ (z' : ↑↑(localModel ℂ n G f).toPresheafedSpace), ↑↑z' = { down := (↑↑z).down + L.symm x' } ∧ z' ∈ W ∧ IsRegularLocalRing (↥(Analytic.Conv ℂ n) ⧸ modelIdealAt G f z')

    The core of [Fre17, II 5.13] on a local model over ℂ, in the form the component clauses use: at a point z of a model whose ideals are radical on an open W ∋ z, every nonzero minimal prime P of (f)_z comes with a normalizing linear change of coordinates L, a generating system S of P' = comap σ P and a series g ∉ P' such that every point x' of V(P') near 0 off g is, in the original coordinates, a simple model point of W — given the local parametrization theorem (the two statements h17a, h17c as hypotheses).

    theorem AnalyticSpace.exists_regular_pt_of_hyps {n : ℕ} (G : TopologicalSpace.Opens (Kn ℂ n)) {k : ℕ} (f : Fin k → AnalyticFun ℂ n G) (h17a : ∀ {n : ℕ} (P : Ideal ↥(Analytic.Conv ℂ n)) [P.IsPrime], P ≠ ⊥ → ∃ (d : ℕ) (e : Fin d ↪ Fin n) (L : (Fin n → ℂ) ≃L[ℂ] Fin n → ℂ), Function.Injective ⇑(Analytic.normMap ℂ P e L) ∧ (↑(Analytic.normMap ℂ P e L)).Finite ∧ ∃ (i₀ : Fin n) (_ : i₀ ∉ Set.range ⇑e) (Q : Polynomial ↥(Analytic.Conv ℂ d)) (A : ↥(Analytic.Conv ℂ d)), Q.Monic ∧ Irreducible Q ∧ A ≠ 0 ∧ Polynomial.eval (Analytic.convX ℂ i₀) (Polynomial.map (Analytic.convEmbed ℂ e).toRingHom Q) ∈ Ideal.comap (Analytic.substEquiv L) P ∧ ∀ i ∉ Set.range ⇑e, ∃ (B : Polynomial ↥(Analytic.Conv ℂ d)), (Analytic.convEmbed ℂ e) A * Analytic.convX ℂ i - Polynomial.eval (Analytic.convX ℂ i₀) (Polynomial.map (Analytic.convEmbed ℂ e).toRingHom B) ∈ Ideal.comap (Analytic.substEquiv L) P) (h17c : ∀ {n : ℕ} (P : Ideal ↥(Analytic.Conv ℂ n)) [P.IsPrime] {d : ℕ} (e : Fin d ↪ Fin n) (L : (Fin n → ℂ) ≃L[ℂ] Fin n → ℂ), Function.Injective ⇑(Analytic.normMap ℂ P e L) → (↑(Analytic.normMap ℂ P e L)).Finite → ∀ i₀ ∉ Set.range ⇑e, ∀ (Q : Polynomial ↥(Analytic.Conv ℂ d)), Q.Monic → Irreducible Q → Polynomial.eval (Analytic.convX ℂ i₀) (Polynomial.map (Analytic.convEmbed ℂ e).toRingHom Q) ∈ Ideal.comap (Analytic.substEquiv L) P → ∀ (A : ↥(Analytic.Conv ℂ d)), A ≠ 0 → ∀ (B : Fin n → Polynomial ↥(Analytic.Conv ℂ d)), (∀ i ∉ Set.range ⇑e, (Analytic.convEmbed ℂ e) A * Analytic.convX ℂ i - Polynomial.eval (Analytic.convX ℂ i₀) (Polynomial.map (Analytic.convEmbed ℂ e).toRingHom (B i)) ∈ Ideal.comap (Analytic.substEquiv L) P) → ∀ {S : Finset ↥(Analytic.Conv ℂ n)}, Ideal.span ↑S = Ideal.comap (Analytic.substEquiv L) P → ∀ᶠ (x : Fin n → ℂ) in nhds 0, x ∈ Analytic.zeroSet S → Analytic.evalSeries (↑(A * Q.resultant (Polynomial.derivative Q))) (x ∘ ⇑e) ≠ 0 → ∃ (φ : (Fin d → ℂ) → Fin n → ℂ), AnalyticAt ℂ φ (x ∘ ⇑e) ∧ φ (x ∘ ⇑e) = x ∧ (∀ (u : Fin d → ℂ), φ u ∘ ⇑e = u) ∧ ∀ᶠ (y : Fin n → ℂ) in nhds x, y ∈ Analytic.zeroSet S ↔ y = φ (y ∘ ⇑e)) {W : TopologicalSpace.Opens ↑↑(localModel ℂ n G f).toPresheafedSpace} {z : ↑↑(localModel ℂ n G f).toPresheafedSpace} (hzW : z ∈ W) (hrad : ∀ z' ∈ W, (modelIdealAt G f z').IsRadical) (hz : ¬IsRegularLocalRing (↥(Analytic.Conv ℂ n) ⧸ modelIdealAt G f z)) {N : Set ↑↑((localModel ℂ n G f).restrictOpen W).toPresheafedSpace} (hN : N ∈ nhds ⟨z, hzW⟩) :
    ∃ (z' : ↑↑(localModel ℂ n G f).toPresheafedSpace) (hz' : z' ∈ W), ⟨z', hz'⟩ ∈ N ∧ IsRegularLocalRing (↥(Analytic.Conv ℂ n) ⧸ modelIdealAt G f z')

    The core of [Fre17, II 5.13] on a local model over ℂ: near a non-simple point z of a model whose ideals are radical on an open W ∋ z, there are points of W with regular 𝒪_n/(f)_{z'} in every neighbourhood of z in (localModel)|W — given the local parametrization theorem (h17a, h17c as hypotheses).

    theorem AnalyticSpace.dense_reg_of_isReduced_of_hyps (X : AnalyticSpace ℂ) (hX : X.IsReduced) (h17a : ∀ {n : ℕ} (P : Ideal ↥(Analytic.Conv ℂ n)) [P.IsPrime], P ≠ ⊥ → ∃ (d : ℕ) (e : Fin d ↪ Fin n) (L : (Fin n → ℂ) ≃L[ℂ] Fin n → ℂ), Function.Injective ⇑(Analytic.normMap ℂ P e L) ∧ (↑(Analytic.normMap ℂ P e L)).Finite ∧ ∃ (i₀ : Fin n) (_ : i₀ ∉ Set.range ⇑e) (Q : Polynomial ↥(Analytic.Conv ℂ d)) (A : ↥(Analytic.Conv ℂ d)), Q.Monic ∧ Irreducible Q ∧ A ≠ 0 ∧ Polynomial.eval (Analytic.convX ℂ i₀) (Polynomial.map (Analytic.convEmbed ℂ e).toRingHom Q) ∈ Ideal.comap (Analytic.substEquiv L) P ∧ ∀ i ∉ Set.range ⇑e, ∃ (B : Polynomial ↥(Analytic.Conv ℂ d)), (Analytic.convEmbed ℂ e) A * Analytic.convX ℂ i - Polynomial.eval (Analytic.convX ℂ i₀) (Polynomial.map (Analytic.convEmbed ℂ e).toRingHom B) ∈ Ideal.comap (Analytic.substEquiv L) P) (h17c : ∀ {n : ℕ} (P : Ideal ↥(Analytic.Conv ℂ n)) [P.IsPrime] {d : ℕ} (e : Fin d ↪ Fin n) (L : (Fin n → ℂ) ≃L[ℂ] Fin n → ℂ), Function.Injective ⇑(Analytic.normMap ℂ P e L) → (↑(Analytic.normMap ℂ P e L)).Finite → ∀ i₀ ∉ Set.range ⇑e, ∀ (Q : Polynomial ↥(Analytic.Conv ℂ d)), Q.Monic → Irreducible Q → Polynomial.eval (Analytic.convX ℂ i₀) (Polynomial.map (Analytic.convEmbed ℂ e).toRingHom Q) ∈ Ideal.comap (Analytic.substEquiv L) P → ∀ (A : ↥(Analytic.Conv ℂ d)), A ≠ 0 → ∀ (B : Fin n → Polynomial ↥(Analytic.Conv ℂ d)), (∀ i ∉ Set.range ⇑e, (Analytic.convEmbed ℂ e) A * Analytic.convX ℂ i - Polynomial.eval (Analytic.convX ℂ i₀) (Polynomial.map (Analytic.convEmbed ℂ e).toRingHom (B i)) ∈ Ideal.comap (Analytic.substEquiv L) P) → ∀ {S : Finset ↥(Analytic.Conv ℂ n)}, Ideal.span ↑S = Ideal.comap (Analytic.substEquiv L) P → ∀ᶠ (x : Fin n → ℂ) in nhds 0, x ∈ Analytic.zeroSet S → Analytic.evalSeries (↑(A * Q.resultant (Polynomial.derivative Q))) (x ∘ ⇑e) ≠ 0 → ∃ (φ : (Fin d → ℂ) → Fin n → ℂ), AnalyticAt ℂ φ (x ∘ ⇑e) ∧ φ (x ∘ ⇑e) = x ∧ (∀ (u : Fin d → ℂ), φ u ∘ ⇑e = u) ∧ ∀ᶠ (y : Fin n → ℂ) in nhds x, y ∈ Analytic.zeroSet S ↔ y = φ (y ∘ ⇑e)) :

    The simple points of a reduced complex analytic space are dense [Fre17, II 5.13], [Hir64, Introduction] — given the local parametrization theorem (h17a, h17c as hypotheses); unconditionally, Manifold.dense_reg_of_isReduced_complex of Hironaka/Manifold/FiniteSuccession/Restrict/LiftRegDense.lean.