Strict contact Hilbert-function gap for the converse addendum
OpenPhilipponMultiplicity.addendum_contact_hilbert_gapLet be a Philippon base field, an embedded product of commutative algebraic groups of dimension , an analytic subgroup, and a finite set containing . Let , let be a vector of nonnegative integer block degrees, and let be an algebraic subgroup, not necessarily connected. Put . Assume
Write for the space of multihomogeneous coordinate polynomials of exact multidegree . Suppose is an ideal of the coordinate polynomial ring such that, for every ,
For any ideal , set . Then the number of independent contact conditions is strictly smaller than the dimension of the polynomial sections on :
This is the quantitative Hilbert-function step in the converse construction. The strict inequality is the remaining numerical obligation; finite-dimensional interpolation then supplies a section satisfying all contact conditions and nonzero on .
Formalization Note. Both dimensions are the existing quotient-piece Hilbert functions, not formal degree polynomials or assumed ranks. No homogeneity of is required; the dimensions only depend on its intersection with . The degree and subgroup hypotheses, positive-dimensional restriction, and constant are exactly those of the mission's converse addendum. This coordinate-space formulation is an extracted intermediate statement, not a separately numbered assertion in the source.
import Definitions.Def_PhilipponMultiplicity_Degree import Definitions.Def_PhilipponMultiplicity_Analytic set_option autoImplicit false open scoped BigOperators
namespace PhilipponMultiplicity
theorem addendum_contact_hilbert_gap
(K : Type*) [NontriviallyNormedField K] (hK : IsPhilipponBaseField K)
(G : EmbeddedGroupProduct K) (hn : 0 < G.dimension) (A : AnalyticSubgroup G)
(sample : Finset G.Point) (hsample : 0 ∈ sample) (T : ℕ) (D : G.FactorIndex → ℕ)
(hD : ∀ i, hilbertDegreeForm G Set.univ (fun _ => 1) ≤ (D i : ℝ))
(H : AlgebraicSubgroup G)
(hbound :
(Nat.choose (T + analyticCodimension A H.carrier) (analyticCodimension A H.carrier) : ℝ) *
(cosetCount sample H.carrier : ℝ) * hilbertDegreeForm G H.carrier D ≤
(1 / ((4 : ℝ) ^ G.dimension * (G.dimension.factorial : ℝ))) *
hilbertDegreeForm G Set.univ D)
(J : Ideal G.CoordinateRing)
(hJ : ∀ P : G.CoordinateRing, IsMultihomogeneousOfDegree G P D →
(P ∈ J ↔ ∀ g ∈ sample, ∀ h ∈ H.carrier,
((T + 1 : ℕ) : WithTop ℕ) ≤ vanishingOrder A P (g + h))) :
Hilbert.hilbertFunction K G.factorCount G.ambient.ambientDimension J D <
Hilbert.hilbertFunction K G.factorCount G.ambient.ambientDimension
(G.vanishingIdeal Set.univ) D := by sorry
end PhilipponMultiplicity