The chart change maps the affine curve with onto the punctured mixed chart curve
ProvedCurveSymmetry.other_mixed_affine_points_imagealgebraic-geometrycurve-symmetry-leaneuclidean-geometry
Let be an integer and let be arbitrary. Let and . For one has , so is the equation of the curve in the chart , around the boundary point of .
Then the map sends the points of the affine curve with exactly onto the points of the chart curve with :
This is the explicit correspondence, in both directions, between the affine curve off the axis and the second mixed chart curve off its axis . The formalization uses it 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 .
Preamble
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
Formal statement
theorem CurveSymmetry.other_mixed_affine_points_image (m : ℕ) (α : ℂ) :
(fun z : Fin 2 → ℂ => ![(z 1)⁻¹, z 0]) ''
{z | eval z (familyPolynomial m α) = 0 ∧ z 1 ≠ 0} =
{w : Fin 2 → ℂ | eval w (familyMixedPolynomial m (star α) α) = 0 ∧
w 0 ≠ 0} := by sorrySource
C. Perassi, Sharp symmetry bounds for real algebraic curves (note): lemma of the formalization, for Section 3, closure of equation (6), p. 3, https://github.com/carlok/curve-symmetry-lean/blob/d99bc17a1c397956c05d7417de50f9beed56580f/sharp_symmetry_bounds.pdf. Lean: https://github.com/carlok/curve-symmetry-lean/blob/d99bc17a1c397956c05d7417de50f9beed56580f/lean/OtherMixedCornerClosure.lean (C. Perassi)