Equation (5): a rotation of order forces and with nonconstant
ProvedCurveSymmetry.paper_high_order_radial_formLet be a polynomial that is irreducible in , of total degree , and let be its real zero set. Assume that is infinite and is not a circle: for all and all real . Let be written in the coordinates , . Finally, let be a natural number with , and let be a primitive -th root of unity such that the rotation maps into itself.
Then there are a natural number and a polynomial such that
where is obtained from by conjugating its coefficients, and moreover:
- ;
- ;
- ;
- .
This is equation (5) of the note, in the case of the proof of Theorem 1 where the rotation group has order (after the center of rotation has been moved to the origin): the order is even, the sign in equation (4) is , and has the radial form (5) with nonconstant. The inequality then gives .
Formalization Note: the curve is a subset of , and the rotation is only assumed to map into , not onto it.
import Definitions.Def_CurveSymmetry_01_RealLoci import Definitions.Def_CurveSymmetry_02_FamilyBasics import Definitions.Def_CurveSymmetry_05_FamilyFunctionField import Mathlib.Algebra.MvPolynomial.Nilpotent import Mathlib.Algebra.MvPolynomial.NoZeroDivisors import Mathlib.Algebra.Polynomial.FieldDivision import Mathlib.Algebra.Polynomial.Reverse import Mathlib.Analysis.Complex.Isometry import Mathlib.Analysis.Complex.Polynomial.Basic import Mathlib.Analysis.Normed.Affine.MazurUlam import Mathlib.Data.Complex.Basic import Mathlib.RingTheory.MvPolynomial.Homogeneous 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 open CurveSymmetry set_option autoImplicit false open MvPolynomial
theorem CurveSymmetry.paper_high_order_radial_form {f : RPoly} (hf : GeometricallyIrreducible f)
(hd : 2 ≤ f.totalDegree) (hinf : (cartesianLocus f).Infinite)
(hnc : ¬ ∃ c : ℂ, ∃ R : ℝ, 0 < R ∧ cartesianLocus f = Metric.sphere c R)
{N : ℕ} {ζ : ℂ} (hζ : IsPrimitiveRoot ζ N) (hN : f.totalDegree < N)
(hsym : ∀ z ∈ cartesianLocus f, ζ * z ∈ cartesianLocus f) :
∃ m : ℕ, N = 2 * m ∧ rotate ζ (complexifyReal f) = -complexifyReal f ∧
∃ A : Polynomial ℂ,
complexifyReal f = (X 0 : BPoly) ^ m * Polynomial.aeval ((X 0 : BPoly) * X 1) A +
(X 1 : BPoly) ^ m * Polynomial.aeval ((X 0 : BPoly) * X 1) (A.map (starRingEnd ℂ)) ∧
1 ≤ A.natDegree ∧ A.natDegree ≤ (f.totalDegree - m) / 2 ∧ m + 2 ≤ f.totalDegree := by sorryConfirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.