Documentation

LeanPool.AnomalousDiffusion.AVenhance.Infra.Section5.Contracts.TermSourcesTinyScale

Abstract-real scale arithmetic for the tiny source contract #

Pure real lemmas (no project definitions). The smallness x^{δ N_*} of the last increment (x = ε_{m-1}) beats the polynomial losses r² L² of the coefficient jets and of the analytic radius, and the loss √κ_{m-1}/√κ_m ≲ ε_m^{-β} coming from the lower bound ε_m^{2β} ≤ K κ_m κ_{m-1} (a_m² ε_m⁴/κ_m ≤ K κ_{m-1}).

theorem AVenhance.Infra.Section5.Contracts.sc_Z_core {x εm κm κp K Y δ q β E : ℝ} (hx0 : 0 < x) (hx1 : x ≤ 1) (hεm : 0 < εm) (hκm : 0 < κm) (hκp : 0 < κp) (hK : 1 ≤ K) (hκpK : κp ≤ K) (hβ : 0 < β) (hpow : x ^ q ≤ 2 * εm) (hε : εm ^ (2 * β) ≤ K * κp * κm) (hE : δ + q * β ≤ E) (hY : 0 ≤ Y) :
√κp * (Y * x ^ E) ≤ Y * 2 ^ β * K * √K * x ^ δ * √κm

√κ_{m-1} · Y x^E ≤ C x^δ √κ_m, from E ≥ δ + q β, x^q ≤ 2 ε_m, ε_m^{2β} ≤ K κ_{m-1} κ_m and κ_{m-1} ≤ K.

theorem AVenhance.Infra.Section5.Contracts.sc_rpow_sq {x : ℝ} (hx0 : 0 < x) (y : ℝ) :
(x ^ y) ^ 2 = x ^ (2 * y)
theorem AVenhance.Infra.Section5.Contracts.sc_Z_chain {x δ γ Cs Cs' F N : ℝ} (hx0 : 0 < x) (hCs : 0 ≤ Cs) :
(2 * (2 ^ 10 / x / x ^ (2 * δ))) ^ 2 * (Cs ^ 3 * x ^ (2 * δ)) ^ (N / 2) * F * (Cs' * x ^ (-(1 + γ / 2))) ^ 2 = 2 ^ 22 * Cs' ^ 2 * F * (Cs ^ 3) ^ (N / 2) * x ^ (δ * N - 4 - 4 * δ - γ)

The product of the polynomial losses and the smallness (C x^{2δ})^{N/2} is a single power of x.

theorem AVenhance.Infra.Section5.Contracts.sc_c_le {b K r : ℝ} (hr : 1 ≤ r) :
16 * b ^ 2 + 2 * (2 * Real.pi)⁻¹ ^ 2 * (5184 * K ^ 2 * (14336 * b ^ 2 * r ^ 4)) ≤ (16 + 2 * (2 * Real.pi)⁻¹ ^ 2 * (5184 * K ^ 2 * 14336)) * (b ^ 2 * r ^ 4)

The coefficient constant: c ≤ C_c (κ_{m-1} C_B)² r⁴ for r ≥ 1.

theorem AVenhance.Infra.Section5.Contracts.sc_sqrt7_le {c Cc b r : ℝ} (hb : 0 ≤ b) (_hr : 0 ≤ r) (h : c ≤ Cc * (b ^ 2 * r ^ 4)) :
√(7 * c) ≤ √(7 * Cc) * b * r ^ 2

√(7 c) ≤ √(7 C_c) b r² from c ≤ C_c b² r⁴.

theorem AVenhance.Infra.Section5.Contracts.sc_final_chain {x κp B CB CZ Y Cc c G A F L' r S E δ sk : ℝ} (hκp : 0 < κp) (hCB : 0 ≤ CB) (hB : 0 ≤ B) (hG0 : 0 ≤ G) (hr : 0 ≤ r) (hcle : c ≤ Cc * ((κp * CB) ^ 2 * r ^ 4)) (hsum : √(c * S) ≤ √(7 * c) * (G / √κp)) (hG : G = B * A * F * L' ^ 2) (hchain : r ^ 2 * A * F * L' ^ 2 = Y * E) (hZ : √κp * (Y * E) ≤ CZ * x ^ δ * sk) :
√(c * S) ≤ √(7 * Cc) * CB * B * (CZ * x ^ δ * sk)

The final scalar chain for the nondivergence energy.