Uniform finite-loss regional budgets for all nearby profiles at square scales
Provedmme_regional_square_scale_uniform_window_log_budgetFix finite integer regional data , with at least one parent type, positive count for every parent type, and exact split and cell mass identities. Let be their regional entropy rate. For every and every real , there exists such that, for all sufficiently large natural numbers , the following holds uniformly over every exact profile with the scaled cell masses and every reference address for the counts .
If every cell frequency of differs by at most from the corresponding frequency of , set
The full finite-loss logarithmic budget at repair base is at least :
Here , , , and capacity are the canonical scale factor, polynomial factor, scale exponent, and product of the three exact block cardinalities. They are expanded in the formal statement. The bound includes profiles with zero-mass cells and capacity zero. The threshold is independent of the profile and reference address. Support and boundary compatibility are not needed for this scalar inequality; applications to extraction stages retain their separate admissibility and source hypotheses.
import Definitions.Def_mme_regional_tolerance_window_data open BigOperators Filter MME MME.RegionRate MME.RegionRealization MME.RecursiveYZ MME.RecursiveYZ.CWCells MME.CompleteSplit set_option autoImplicit false
theorem mme_regional_square_scale_uniform_window_log_budget
{ell half R : ℕ} (parent : Fin R → Fin 3 → ℕ)
(htotal : ∀ r, parent r 0 + parent r 1 + parent r 2 = 2 * half)
(n : Fin R → ℕ) (hn : ∀ r, 0 < n r) (hR : 0 < R)
(m : ∀ r, RecursiveThinSplit.Split half (parent r) → ℕ)
(hm : ∀ r, ∑ c, m r c = n r)
(mu : Fin 3 → Cell half R parent → CompleteWord ell → ℕ)
(hmass : ∀ i cell, ∑ w, mu i cell w =
m cell.1 cell.2 + m cell.1 (complement (htotal cell.1) cell.2))
(a : ℝ) (ha : 0 < a) (rate : ℝ)
(hrate : rate < regionalRate htotal n m mu) :
∃ delta : ℝ, 0 < delta ∧ ∀ᶠ k : ℕ in atTop,
∀ profile : Fin 3 → Cell half R parent → CompleteWord ell → ℕ,
(∀ i cell, ∑ w, profile i cell w =
k ^ 2 * m cell.1 cell.2 +
k ^ 2 * m cell.1 (complement (htotal cell.1) cell.2)) →
(∀ i cell w, |cellFrequency (profile i) cell w -
cellFrequency (fun cell w => k ^ 2 * mu i cell w) cell w| ≤ delta) →
∀ reference : Address half R parent (fun r => k ^ 2 * n r),
let epsilon := Real.sqrt (a * ((k + 2 : ℕ) : ℝ) / (k : ℝ) ^ 2)
let capacity := ∏ i : Fin 3, Nat.card (Block ell (fullCell htotal reference)
(fun cell i => (cell.2.val i).val) profile i)
let repairExponent := Nat.log k capacity + 1
let energy := regionalRate htotal (fun r => k ^ 2 * n r)
(fun r cell => k ^ 2 * m r cell) profile
let loss := ((∑ r, k ^ 2 * n r : ℕ) : ℝ) *
entropyModulus (Fin 2 → CompleteWord ell) epsilon
let theta := scaleExponent htotal (fun r => k ^ 2 * n r)
(fun r cell => k ^ 2 * m r cell) profile epsilon
let factor := scaleFactor (half := half) (parent := parent)
(fun r => k ^ 2 * n r) k ell
rate * (k : ℝ) ^ 2 ≤ energy - loss -
4 * Real.sqrt (Real.log factor + theta) -
Real.log (64 * polynomialFactor (fun r => k ^ 2 * n r)
(Fintype.card (Cell half R parent)) * factor) -
repairExponent * Real.log 8 := by sorry