The corner lies in the Zariski closure of complex points of its chart curve with
ProvedCurveSymmetry.reciprocal_corner_mem_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, with the closure taken in the Zariski topology,
The origin of this chart represents the point of , while at the approximating points both and are finite. So lies in the Zariski closure of points of the affine curve , part of the description of the closure of the curve (6) in ; the gluing of the charts is a separate step.
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_corner_mem_complex_closure {m : ℕ} (hm : 0 < m) (α : ℂ) :
affineSpectrumPoint ![0, 0] ∈
closure (affineSpectrumPoint '' {v : Fin 2 → ℂ |
eval v (familyInfinityPolynomial m α) = 0 ∧ v 0 ≠ 0 ∧ v 1 ≠ 0}) := by sorry