Finite retained-block certificate for a feasible phi_134 profile
Provedmme_stothers_phi134_finite_power_block_certificateFix positive profile parameters and with and . For every nonnegative strictly below the unoptimized Davie--Stothers profile rate, there exist a positive integral scale , counts , and a retained family of cyclic exact eight-pattern profiles. The three mode projections are injective, and the associated blocks form a direct-sum restriction into the -th power of the literal cyclic constituent. For a common nonnegative block base , every block attains each strict lower tau-value and
This is the finite certificate produced by integral rounding, type-2 progression-free hashing, collision pruning, induced block zeroing, and the eight fine-component estimates in Lemma 5.1(iii). It is the sole source-specific combinatorial frontier after the optimizer and asymptotic closure have been separated out.
import Definitions.Def_mme_stothers_fourth_data import Definitions.Def_mme_stothers_phi134_profile_data import Definitions.Def_mme_stothers_phi134_cyclic_hash_data import Definitions.Def_mme_tau_value open MME BigOperators universe u set_option autoImplicit false
theorem mme_stothers_phi134_finite_power_block_certificate
{K : Type u} [Field K] (tau sigma a c : ℝ)
(htauLower : 2 ≤ 3 * tau) (htauUpper : 3 * tau ≤ 3)
(ha : 0 < a) (hc : 0 < c)
(hcs : c ≤ sigma) (hsa : sigma + a ≤ 1)
(V : ℝ) (hV : 0 ≤ V)
(hVlt :
V <
8 *
((MME.StothersFourth.L 6 tau / sigma) ^ sigma *
(MME.StothersFourth.E 6 tau / (1 - sigma)) ^ (1 - sigma)) *
((1 / a) ^ a *
((MME.StothersFourth.H 6 tau / 2) / c) ^ c *
(MME.StothersFourth.E 6 tau / (1 - a - c)) ^
(1 - a - c))) :
∃ (N alpha beta gamma delta : ℕ),
0 < N ∧ alpha + beta + gamma + delta = N ∧
∃ (kept : Finset
(MME.StothersFourth.Phi134.CyclicExactEdge
N alpha beta gamma delta))
(block : kept → TensorObj K 3) (B : ℝ),
(∀ i : Fin 3,
Function.Injective (fun e : kept ↦
MME.StothersFourth.Phi134.cyclicModeWord e.1 i)) ∧
TensorObj.Restrict
(TensorObj.bigAdd (fun j : Fin kept.card ↦
block (kept.equivFin.symm j)))
((cyclicSymmetrization
(MME.StothersFourth.cwFourthConstituent K 6 1 3 4)).kronPow
(2 * N)) ∧
0 ≤ B ∧
(∀ e : kept, ∀ W : ℝ,
0 ≤ W → W < B → HasTauValueAtLeast (block e) tau W) ∧
V ^ (2 * N) < (kept.card : ℝ) * B := by
sorry