A finite divisor-class module realizes degree by multilinear intersection forms
OpenPhilipponMultiplicity.closure_action_has_multilinear_degree_modelLet be a commutative algebraic group over a Philippon base field, let be its multiprojective closure, and let be regular automorphisms satisfying and .
There exist a finitely generated abelian group , a representation , and classes indexed by the projective factors with the following property. For every closed subset , put , with the dimension convention of the mission's Hilbert polynomial. There is a -multilinear form
such that, for all and all block degrees ,
Here is the actual factorial-normalized degree form of the multigraded Hilbert polynomial. The same , , and classes serve all closed subsets and degree vectors; depends only on . Torsion in is allowed. Empty and reducible closed subsets are included, and a form with no arguments is interpreted as a constant.
This supplies numerical intersection data for the projective closure in a form that separates geometry from torsion cancellation and finite-presentation arguments.
Formalization Note. This is an auxiliary synthesis of the Theorem of the Base and numerical intersection theory, not a verbatim source theorem. The formal statement requests the indicated finite module, action, and degree formula; it does not define or assert an identification with a pre-existing Neron-Severi object. Construction from the embedded point model, descent of intersection forms, and comparison with the concrete Hilbert degree remain Open. A small carrier type represents the finitely generated group. Neither connectedness nor a jointly regular action is assumed.
import Mathlib.LinearAlgebra.Multilinear.Basic import Mathlib.RingTheory.Finiteness.Cardinality import Definitions.Def_PhilipponMultiplicity_Support import Definitions.Def_PhilipponMultiplicity_SectionThree set_option autoImplicit false open scoped BigOperators Topology
namespace PhilipponMultiplicity
theorem closure_action_has_multilinear_degree_model
(K : Type*) [NontriviallyNormedField K] (hK : IsPhilipponBaseField K)
(G : EmbeddedGroupProduct K)
(τ : G.Point → (groupProjectiveClosure G ≃ groupProjectiveClosure G))
(hzero : τ 0 = Equiv.refl _)
(hadd : ∀ g h, τ (g+h) = (τ h).trans (τ g))
(hregular : ∀ g, G.ambient.IsRegularAlong G.ambient
(fun x : groupProjectiveClosure G => x.val) (fun x => (τ g x).val)) :
∃ (A : Type) (_ : AddCommGroup A) (_ : Module ℤ A)
(_ : Module.Finite ℤ A) (α : Multiplicative G.Point →* (A ≃ₗ[ℤ] A))
(c : G.FactorIndex → A),
∀ (V : Set (groupProjectiveClosure G)),
@IsClosed _ (TopologicalSpace.induced Subtype.val G.ambient.zariskiTopology) V →
∃ I : MultilinearMap ℤ
(fun _ : Fin (SectionThree.locusDimension G.ambient (Subtype.val '' V)) => A) ℚ,
∀ (g : G.Point) (D : G.FactorIndex → ℕ), (∀ i, 1 ≤ D i) →
SectionThree.locusDegreeValue G.ambient (Subtype.val '' (τ g '' V)) D =
I (fun _ => α (Multiplicative.ofAdd (-g)) (∑ i, (D i : ℤ) • c i)) := by sorry
end PhilipponMultiplicity