Source corrections — dimension-zero and zero-degree obstructions
ProvedPhilipponMultiplicity.source_boundary_counterexamplesRequire actual complex embedded groups witnessing three failures: the converse at the trivial group, the strengthened forward statement at a two-point group, and Corollary 2.2 with degree (1,0) on two additive factors. These are explicit correction targets, not assumptions supplied to the source theorems.
import Definitions.Def_PhilipponMultiplicity_Support set_option autoImplicit false open scoped BigOperators
namespace PhilipponMultiplicity
theorem source_boundary_counterexamples :
(∃ (G : EmbeddedGroupProduct ℂ) (A : AnalyticSubgroup G)
(H : AlgebraicSubgroup G),
Subsingleton G.Point ∧ G.dimension = 0 ∧ H.carrier = Set.univ ∧
A.carrier = {0} ∧ analyticCodimension A H.carrier = 0 ∧
hilbertDegreeForm G Set.univ (fun _ => 1) = 1 ∧
hilbertDegreeForm G H.carrier (fun _ => 1) = 1 ∧
(Nat.choose (0 + analyticCodimension A H.carrier)
(analyticCodimension A H.carrier) : ℝ) *
(cosetCount {0} H.carrier : ℝ) * hilbertDegreeForm G H.carrier (fun _ => 1) ≤
(1 / ((4 : ℝ) ^ G.dimension * (G.dimension.factorial : ℝ))) *
hilbertDegreeForm G Set.univ (fun _ => 1) ∧
¬ ∃ P : G.CoordinateRing,
(∀ h ∈ H.carrier, (1 : WithTop ℕ) ≤ vanishingOrder A P h) ∧
(∃ x : G.Point, x ∉ zeroLocusOnGroup G P)) ∧
(∃ (G : EmbeddedGroupProduct ℂ) (A : AnalyticSubgroup G)
(sample : Finset G.Point) (P : G.CoordinateRing),
G.dimension = 0 ∧ sample.card = 2 ∧ 0 ∈ sample ∧ A.carrier = {0} ∧
P ≠ 0 ∧ IsMultihomogeneousOfDegree G P (fun _ => 1) ∧
(∀ g ∈ sumset sample G.dimension, vanishingOrder A P g = ⊤) ∧
¬ ∃ H : AlgebraicSubgroup G,
∀ g ∈ sample, translate g H.carrier ⊆ zeroLocusOnGroup G P) ∧
(∃ (G : EmbeddedGroupProduct ℂ) (A : AnalyticSubgroup G)
(P : G.CoordinateRing),
G.factorCount = 2 ∧ (∀ i, (G.factor i).dimension = 1) ∧
A.dimension = 1 ∧ P ≠ 0 ∧
IsMultihomogeneousOfDegree G P (fun i => if i.val = 0 then 1 else 0) ∧
vanishingOrder A P 0 = 1 ∧
(∀ c : ℝ, 0 < c → ∀ H : AlgebraicSubgroup G,
H.IsConnected → ¬ A.carrier ⊆ H.carrier →
∃ r : SourceMixedCodimensionIndex G H,
c * r.degreeMonomial (fun i => if i.val = 0 then 1 else 0) ≤
(cosetCount {0} H.carrier : ℝ) *
(mixedDegree G H.carrier r.complementIndex : ℝ)) ∧
¬ ∃ g : G.Point, translate g A.carrier ⊆ zeroLocusOnGroup G P) := by sorry
end PhilipponMultiplicityRead-back
What the Lean code literally says, in plain math · gpt-6
Set . An embedded group product consists of a positive finite number of commutative groups , each carried by a locally closed subset of , with addition and negation locally represented by nonsimultaneously-zero homogeneous polynomial tuples of a common multidegree; its points are the tuples of factor points, with componentwise addition, embedded in . Write for the block coordinate ring, evaluate polynomials at the chosen homogeneous representatives of embedded points, and use the induced Zariski topology, where the ambient topology is generated by nonvanishing sets of block-homogeneous polynomials. A polynomial is homogeneous of multidegree when every supported monomial has degree in block ; zero is allowed at every multidegree. An algebraic subgroup means an additive subgroup closed in this topology, and . For , let be the ideal spanned by all homogeneous polynomials vanishing on its embedded points, and let be the rational polynomial whose values, for all coordinatewise sufficiently large natural multidegrees, are the dimensions of the images of those homogeneous pieces in , chosen if it exists and set to zero if none exists. Write (zero for the zero polynomial), , and if , with otherwise. Here are natural multidegrees and is the top total-homogeneous component. For each factor, is the same Hilbert-polynomial total degree computed for its carrier in its single projective space, and is the defined dimension of . An analytic subgroup datum has a positive natural parameter dimension , a positive real radius , the open ball , and a map with and whenever lie in that ball. It also supplies functions for every : every coordinate is analytic at zero, the coordinates of have convergent power series on the whole ball and give nonsimultaneously-zero projective representatives of there, and, as germs at zero, the nonzero block tuples of represent . No injectivity of is required. The carrier is the additive subgroup generated by , not a topological closure. For , put and , using natural subtraction; the defined dimension of is . Write in , where derivatives are full iterated Fréchet derivatives, order zero is included, and the infimum of an empty set is . A mixed-codimension index for is a vector with and ; its complementary vector is , using natural subtraction, and its degree monomial is . For a finite subset , let be the set of sums of exactly members of , with repetition allowed, so ; let count distinct translated sets. Write . The theorem is the conjunction of three independent existence assertions. First, there exist such that any two points of are equal, , , , , , and , but there does not exist any coordinate polynomial for which for every and there is an . The displayed numerical inequality has both sides equal to one under the specified equalities. Second, there exist , a finite subset , and a polynomial such that , , , , , is homogeneous of multidegree , and for every , yet there is no algebraic subgroup for which for every . Since , that contact condition concerns exactly the point zero, rather than all two sample points. Third, there exist for which , , the defined analytic dimension is one, is homogeneous of multidegree , and , such that for every real and every connected algebraic subgroup with there exists a mixed-codimension index for satisfying , while there is no with . The index may depend on both and ; , and the zero degree entry uses the convention and for positive natural . Each existence assertion may use different data, analytic parametrizations always have positive parameter dimension even when their generated image is trivial, and all Hilbert-polynomial and derivative-infimum fallback conventions stated above remain part of these formulas.