Chart equations of : ordinary -fold points at and , all other zeros simple
ProvedCurveSymmetry.family_ordinary_multiple_pointsLet be an integer and let with (no condition on ). Consider the four complex polynomials in two variables
- ,
- ,
- ,
- ,
which are the equations of the curve in the four standard charts, with and . A polynomial has multiplicity at if , where . It has an ordinary -fold point at the origin if it has multiplicity at and its homogeneous component of degree is a product of pairwise non-proportional nonzero linear forms:
Then:
- has an ordinary -fold point at ;
- has an ordinary -fold point at ;
- every zero of in has multiplicity ;
- every zero of in has multiplicity ;
- every zero of has multiplicity ;
- every zero of has multiplicity .
Lemma 4 of the note states that the only singular points of are and , both ordinary -fold points; this is that clause, expressed through the four chart equations. The note assumes , which is not needed here.
Formalization Note: Each chart equation is a polynomial in two variables over , with the variables in the order written; multiplicities and tangent cones are computed chart by chart at complex points, and invariance under a change of chart is not claimed.
import Definitions.Def_CurveSymmetry_01_RealLoci import Definitions.Def_CurveSymmetry_02_FamilyBasics import Definitions.Def_CurveSymmetry_03_IsometriesAndCharts import Definitions.Def_CurveSymmetry_04_ProjectiveClosure import Definitions.Def_CurveSymmetry_05_FamilyFunctionField import Mathlib.Algebra.MvPolynomial.Funext 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.Calculus.FDeriv.Analytic import Mathlib.Analysis.Calculus.FDeriv.Equiv import Mathlib.Analysis.Calculus.FDeriv.Mul import Mathlib.Analysis.Calculus.FDeriv.Pi 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.KummerExtension import Mathlib.FieldTheory.Separable import Mathlib.RingTheory.MvPolynomial.Homogeneous import Mathlib.RingTheory.MvPolynomial.Ideal import Mathlib.RingTheory.MvPolynomial.IrreducibleQuadratic import Mathlib.RingTheory.Polynomial.Eisenstein.Criterion import Mathlib.RingTheory.Polynomial.GaussLemma import Mathlib.RingTheory.RootsOfUnity.Complex import Mathlib.RingTheory.RootsOfUnity.PrimitiveRoots import Mathlib.Tactic import Mathlib.Topology.Algebra.Module.FiniteDimension import Mathlib.Topology.Compactification.OnePoint.ProjectiveLine open CurveSymmetry set_option autoImplicit false open MvPolynomial
theorem CurveSymmetry.family_ordinary_multiple_points {m : ℕ} (hm : 2 ≤ m) {α : ℂ} (ha : α ≠ star α) :
OrdinaryAtOrigin (familyPolynomial m α) m ∧
OrdinaryAtOrigin (familyInfinityPolynomial m α) m ∧
(∀ x y : ℂ, planeEval x y (familyPolynomial m α) = 0 → ¬ (x = 0 ∧ y = 0) →
HasMultiplicityAt (familyPolynomial m α) x y 1) ∧
(∀ u v : ℂ, planeEval u v (familyInfinityPolynomial m α) = 0 → ¬ (u = 0 ∧ v = 0) →
HasMultiplicityAt (familyInfinityPolynomial m α) u v 1) ∧
(∀ u y : ℂ, planeEval u y (familyMixedPolynomial m α (star α)) = 0 →
HasMultiplicityAt (familyMixedPolynomial m α (star α)) u y 1) ∧
(∀ v x : ℂ, planeEval v x (familyMixedPolynomial m (star α) α) = 0 →
HasMultiplicityAt (familyMixedPolynomial m (star α) α) v x 1) := by sorryConfirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.