Connection phase columns preserve the radial wall amplitude budget

Proved

BianchiIX.connection_phase_radial_budget

by trppppp · Nov 5, 2026 · Mathlib 0df444a (Lean v4.33.1)

bianchi-ix-era-statisticsdynamical-systems

Let $r,\mu>0$ , $K,M,A,B,U\geq0$ , $0\leq P\leq1$ , $1/\mu\leq Kr$ , $0\leq u\leq U$ , and $0\leq w\leq P$ . If

|v_0|\leq M/r^2,\qquad r|v_1|\leq AU,\qquad r|v_2|\leq BP,

then

\frac{50000|v_0|(u+w^2)}{\mu^2} +\frac{50000|v_1|}{\mu}+\frac{50000|v_2|(u+w)}{\mu} \leq50000(K^2M+KA+KB)(U+P^2).

Preamble

import Mathlib.Analysis.SpecialFunctions.Trigonometric.ArctanDeriv
import Mathlib.Analysis.SpecialFunctions.Trigonometric.DerivHyp
import Mathlib.Analysis.SpecialFunctions.Log.Basic
import Mathlib.Tactic.FieldSimp
import Mathlib.Tactic.Linarith
import Mathlib.Tactic.Ring
import Mathlib.Analysis.Real.Sqrt
import Mathlib.Analysis.Calculus.Deriv.Pow
import Mathlib.Analysis.Calculus.Deriv.Mul
import Mathlib.Analysis.Calculus.Deriv.Add
import Mathlib.Analysis.Calculus.Deriv.Inv
import Mathlib.Tactic.LinearCombination
import Mathlib.Analysis.SpecialFunctions.Sqrt
import Mathlib.Analysis.Calculus.ImplicitContDiff
import Mathlib.Analysis.Calculus.Deriv.Prod
import Mathlib.Analysis.SpecialFunctions.ExpDeriv
import Mathlib.Tactic.GCongr

namespace BianchiIX
end BianchiIX

noncomputable section
open BianchiIX

Formal statement

theorem BianchiIX.connection_phase_radial_budget {r K M A B μ U P u w v0 v1 v2 : ℝ}
    (hr : 0 < r) (hK : 0 ≤ K) (hM : 0 ≤ M) (hA : 0 ≤ A) (hB : 0 ≤ B)
    (hμ : 0 < μ) (hi : 1 / μ ≤ K * r) (hU : 0 ≤ U) (hP : 0 ≤ P ∧ P ≤ 1)
    (hu : 0 ≤ u ∧ u ≤ U) (hw : 0 ≤ w ∧ w ≤ P)
    (hv0 : |v0| ≤ M / r ^ 2) (hv1 : r * |v1| ≤ A * U) (hv2 : r * |v2| ≤ B * P) :
    |v0| * (50000 * (u + w ^ 2) / μ ^ 2) + |v1| * (50000 / μ) +
      |v2| * (50000 * (u + w) / μ) ≤
        50000 * (K ^ 2 * M + K * A + K * B) * (U + P ^ 2) := by sorry

Source

https://github.com/l46430640-del/ERA-STATISTICS-FORMAL/blob/d74c241819f896ab8d050b21ace80c8e90eabd9e/BianchiIX/Algebra/PartialCoreConnectionBudget.lean#L58-L95

View graph