OAI.QuarticPowerFree.norm_generic_threshold_uniform: intermediate lemma from OpenAI, Squarefree values of quartics and power-free values of polynomials
ProvedOAI.QuarticPowerFree.norm_generic_threshold_uniformAn intermediate lemma of the split of OpenAI's proof of OAI.QuarticPowerFree.allDegrees, carved from OpenAI's openai/math development for this platform. The statement and its proof are OpenAI's (OpenAI, Squarefree values of quartics and power-free values of polynomials, OpenAI Math Release, September 24, 2026, result family 20, github.com/openai/math, Apache License 2.0); in Lean it is the declaration OAI.QuarticPowerFree.norm_generic_threshold_uniform of lean/OAI/NumberTheory/PowerFree/NormComponents.lean at commit adc7f12, ported to Lean 4.33.1 and Mathlib 0df444a.
The statement, as published (namespace OAI.QuarticPowerFree, with open MvPolynomial):
theorem norm_generic_threshold_uniform {n d h : ℕ} (hd : 5 ≤ d) (hd' : d ≤ 8)
(hh : 2 ≤ h) (hh' : h ≤ d) (E D : ℕ) (hD : 0 < D) :
∃ C : ℝ, 0 ≤ C ∧
∀ (I : Ideal (MvPolynomial (Fin n) ℂ)) [I.IsPrime]
(a b : Fin d → MvPolynomial (Fin n) ℂ) (q : MvPolynomial (Fin n) ℂ)
(θ : Fin d → ℂ), Function.Injective θ →
(∀ i, Ideal.Quotient.mk I (a i) ≠ 0) →
(∀ i, Ideal.Quotient.mk I (a i)^(d-2)*Ideal.Quotient.mk I (b i) =
Ideal.Quotient.mk I q-algebraMap ℂ _ (θ i)) →
Algebra.adjoin ℂ (Set.range a ∪ Set.range b) = ⊤ →
Transcendental ℂ (Ideal.Quotient.mk I q) → affineDimension I = h → affineDegree I ≤ E →
(∀ i, (a i).totalDegree ≤ D) → q.totalDegree ≤ D →
∀ (w : Fin n → ℕ), (∀ i, w i ≠ 0) →
(∀ i, a i ∈ weightedSpace w 5) → (∀ i, b i ∈ weightedSpace w 6) →
∀ (ω : Fin n → ℝ), (∀ i, 0 < ω i) → (∀ i, (w i:ℝ) = 15*ω i) →
∀ T : ℝ, 1 ≤ T →
T^h/((h.factorial:ℝ)*(normBoxEnvelope d h)^h)-C*T^(h-1) ≤ weightedHilbert I ω T
Definitions. The statement is written with OAI.QuarticPowerFree.affineDegree, OAI.QuarticPowerFree.affineDimension, OAI.QuarticPowerFree.normBoxEnvelope, OAI.QuarticPowerFree.weightedHilbert and OAI.QuarticPowerFree.weightedSpace (definitions bundle OAIB3Qp000 of this split).
Used by. The proof of OAI.QuarticPowerFree.medium_degree_dyadic_tail of this split imports it.
import Mathlib import Definitions.Def_OAIB3Qp000
section
set_option linter.all false
set_option linter.unusedVariables false
set_option linter.unusedTactic false
set_option linter.unreachableTactic false
namespace OAI
namespace QuarticPowerFree
section
open MvPolynomial
theorem norm_generic_threshold_uniform {n d h : ℕ} (hd : 5 ≤ d) (hd' : d ≤ 8)
(hh : 2 ≤ h) (hh' : h ≤ d) (E D : ℕ) (hD : 0 < D) :
∃ C : ℝ, 0 ≤ C ∧
∀ (I : Ideal (MvPolynomial (Fin n) ℂ)) [I.IsPrime]
(a b : Fin d → MvPolynomial (Fin n) ℂ) (q : MvPolynomial (Fin n) ℂ)
(θ : Fin d → ℂ), Function.Injective θ →
(∀ i, Ideal.Quotient.mk I (a i) ≠ 0) →
(∀ i, Ideal.Quotient.mk I (a i)^(d-2)*Ideal.Quotient.mk I (b i) =
Ideal.Quotient.mk I q-algebraMap ℂ _ (θ i)) →
Algebra.adjoin ℂ (Set.range a ∪ Set.range b) = ⊤ →
Transcendental ℂ (Ideal.Quotient.mk I q) → affineDimension I = h → affineDegree I ≤ E →
(∀ i, (a i).totalDegree ≤ D) → q.totalDegree ≤ D →
∀ (w : Fin n → ℕ), (∀ i, w i ≠ 0) →
(∀ i, a i ∈ weightedSpace w 5) → (∀ i, b i ∈ weightedSpace w 6) →
∀ (ω : Fin n → ℝ), (∀ i, 0 < ω i) → (∀ i, (w i:ℝ) = 15*ω i) →
∀ T : ℝ, 1 ≤ T →
T^h/((h.factorial:ℝ)*(normBoxEnvelope d h)^h)-C*T^(h-1) ≤ weightedHilbert I ω T := by
sorry
open MvPolynomial
open scoped BigOperators Classical
attribute [instance] NormBoxSystem.field NormBoxSystem.charZero
end
open MvPolynomial
open scoped BigOperators Classical
end QuarticPowerFree
end OAI
end