Lange reembedding with local quadratic addition formulas
OpenPhilipponMultiplicity.exists_quadratic_local_addition_reembeddingLet 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 properties.
The pair variety is irreducible. Every pair has a Zariski-open neighborhood and a tuple of bihomogeneous polynomials of common bidegree such that
The first coordinate block is the point being translated; no bound is asserted on . This provides the geometric input for constructing globally compatible quadratic addition laws.
Formalization Note. The accepted sketch proves irreducibility of the algebraic pair variety from connectedness and regular reembedding. It uses the actual induced multiprojective Zariski topology. A general theorem derives pair irreducibility from irreducible factors and continuous coordinate slices; it does not require identifying this topology with a product topology.
The sole Open dependency is Lange's geometric construction of a local quadratic addition cover. It asks for the regular reembedding and the local tuples only. Connectedness transfer and pair irreducibility are proved, including zero-dimensional groups. The geometric construction of the local cover remains Open.
import Definitions.Def_PhilipponMultiplicity_AdditionLaws import Definitions.Def_PhilipponMultiplicity_Support set_option autoImplicit false open scoped BigOperators Topology
namespace PhilipponMultiplicity
theorem exists_quadratic_local_addition_reembedding
(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) ∧
@IsPreirreducible (F.Point × F.Point)
(TopologicalSpace.induced (fun xy => F.additionPair xy.1 xy.2)
(projectiveSquare K F.ambientDimension).zariskiTopology) Set.univ ∧
∀ 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 ∧
∃ D : (projectiveSquare K F.ambientDimension).FactorIndex → ℕ,
∃ P : Fin (F.ambientDimension+1) →
(projectiveSquare K F.ambientDimension).CoordinateRing,
D (0 : Fin 2) ≤ 2 ∧
(∀ j, (projectiveSquare K F.ambientDimension).IsHomogeneous (P j) D) ∧
∀ xy ∈ U, ∃ h :
(fun j => (projectiveSquare K F.ambientDimension).eval (P j)
(F.additionPair xy.1 xy.2)) ≠ 0,
Projectivization.mk K (fun j => (projectiveSquare K F.ambientDimension).eval
(P j) (F.additionPair xy.1 xy.2)) h = (xy.1+xy.2).val := by sorry
end PhilipponMultiplicity