Complex points with are Zariski dense in the chart curve of at
ProvedCurveSymmetry.reciprocal_chart_complex_closureLet be an integer and let be arbitrary. Let and . For one has , so is the equation of the curve in the chart , around the point of . For let be the maximal ideal of the polynomials vanishing at , a point of , and let be the set of prime ideals containing .
Then, in the Zariski topology of ,
Neither irreducibility nor smoothness of the curve is assumed, and may be real. The points with correspond to the points of the affine curve with , so the whole chart curve lies in the closure of the affine curve. The formalization uses this when the four standard charts are glued, to show that the zero set of the bihomogeneous equation lies in the closure of the curve (6) in .
Formalization Note: points of are elements of PrimeSpectrum (MvPolynomial (Fin 2) ℂ) with Mathlib's Zariski topology, and are the variables X 0 and X 1, and is the kernel of evaluation at .
import Definitions.Def_CurveSymmetry_01_RealLoci import Definitions.Def_CurveSymmetry_02_FamilyBasics import Definitions.Def_CurveSymmetry_03_IsometriesAndCharts import Mathlib.Algebra.MvPolynomial.Nilpotent import Mathlib.Algebra.MvPolynomial.NoZeroDivisors import Mathlib.Algebra.MvPolynomial.PDeriv import Mathlib.Algebra.Polynomial.FieldDivision import Mathlib.Algebra.Polynomial.Reverse import Mathlib.Analysis.Complex.Isometry import Mathlib.Analysis.Complex.OperatorNorm import Mathlib.Analysis.Complex.Polynomial.Basic import Mathlib.Analysis.Normed.Affine.MazurUlam import Mathlib.Data.Complex.Basic import Mathlib.FieldTheory.Separable import Mathlib.RingTheory.MvPolynomial.Homogeneous import Mathlib.RingTheory.MvPolynomial.IrreducibleQuadratic import Mathlib.RingTheory.Nullstellensatz import Mathlib.RingTheory.Polynomial.Eisenstein.Criterion import Mathlib.RingTheory.Polynomial.GaussLemma import Mathlib.RingTheory.RootsOfUnity.Complex import Mathlib.RingTheory.RootsOfUnity.PrimitiveRoots import Mathlib.RingTheory.Spectrum.Prime.Jacobson import Mathlib.RingTheory.Spectrum.Prime.Topology import Mathlib.Tactic open CurveSymmetry set_option autoImplicit false open MvPolynomial
theorem CurveSymmetry.reciprocal_chart_complex_closure {m : ℕ} (hm : 0 < m) (α : ℂ) :
closure (affineSpectrumPoint '' {v : Fin 2 → ℂ |
eval v (familyInfinityPolynomial m α) = 0 ∧ v 0 ≠ 0 ∧ v 1 ≠ 0}) =
PrimeSpectrum.zeroLocus ({familyInfinityPolynomial m α} : Set BPoly) := by sorry