Lange reembedding with quadratic rational parameter formulas
OpenPhilipponMultiplicity.exists_quadratic_addition_local_fractionsLet be algebraically closed of characteristic zero and let be a connected commutative algebraic group. There is a projective realization and a group isomorphism regular in both directions with the following property.
Every pair has an open neighborhood and indices such that the corresponding coordinates in the two input blocks are nonzero throughout . Write and for the normalized coordinates. There are finitely many polynomials and , indexed by and , such that each has degree at most two in , each is independent of , and all denominators are nonzero on . Put
Throughout , the tuple is nonzero and
The first block is the point being translated and the second is the translation parameter. There is no homogeneity condition and no bound on degrees in the parameter.
Formalization Note. The denominators are stored in the two-block polynomial ring with first-block degree zero. Nonvanishing is required at every point of the chosen neighborhood, not only at its center. The topology is the induced multiprojective polynomial Zariski topology. This auxiliary affine-chart formulation of the rational coefficients preceding Rovelli Corollary 3.3.4 is not a verbatim numbered theorem. Constructing the regular reembedding, refining the charts, and producing the local rational families remain Open. Zero-dimensional groups are included. The separate checked reduction clears all denominators without increasing the first-block degree.
import Definitions.Def_PhilipponMultiplicity_AdditionLaws import Definitions.Def_PhilipponMultiplicity_Support set_option autoImplicit false open scoped BigOperators Topology
namespace PhilipponMultiplicity
theorem exists_quadratic_addition_local_fractions
(K : Type*) [Field K] [IsAlgClosed K] [CharZero K] :
∀ (E : EmbeddedCommutativeGroup K),
@_root_.IsConnected _ (singleGroupProduct E).zariskiTopology Set.univ →
∃ F : EmbeddedCommutativeGroup K, Nonempty (AlgebraicReembedding E F) ∧
∀ x y : F.Point, ∃ U : Set (F.Point × F.Point),
@IsOpen _ (TopologicalSpace.induced (fun xy => F.additionPair xy.1 xy.2)
(projectiveSquare K F.ambientDimension).zariskiTopology) U ∧
(x,y) ∈ U ∧
∃ c : (projectiveSquare K F.ambientDimension).FactorIndex →
Fin (F.ambientDimension+1),
(∀ xy ∈ U, ∀ i : (projectiveSquare K F.ambientDimension).FactorIndex,
(projectiveSquare K F.ambientDimension).coordinate
(F.additionPair xy.1 xy.2) ⟨i,c i⟩ ≠ 0) ∧
∃ (r : ℕ) (A B : Fin (F.ambientDimension+1) → Fin r →
(projectiveSquare K F.ambientDimension).CoordinateRing),
(∀ t a, ∀ m ∈ (A t a).support,
(∑ k : Fin (F.ambientDimension+1), m ⟨(0 : Fin 2),k⟩) ≤ 2) ∧
(∀ t a, ∀ m ∈ (B t a).support,
(∑ k : Fin (F.ambientDimension+1), m ⟨(0 : Fin 2),k⟩) = 0) ∧
∀ xy ∈ U,
let v : (projectiveSquare K F.ambientDimension).Variable → K :=
fun w =>
(projectiveSquare K F.ambientDimension).coordinate (F.additionPair xy.1 xy.2) w /
(projectiveSquare K F.ambientDimension).coordinate (F.additionPair xy.1 xy.2)
⟨w.1,c w.1⟩
(∀ t a, MvPolynomial.eval v (B t a) ≠ 0) ∧
∃ h : (fun t => ∑ a, MvPolynomial.eval v (A t a) /
MvPolynomial.eval v (B t a)) ≠ 0,
Projectivization.mk K (fun t => ∑ a, MvPolynomial.eval v (A t a) /
MvPolynomial.eval v (B t a)) h = (xy.1+xy.2).val := by sorry
end PhilipponMultiplicity