Prove2Me
Navigate
DiscoverCollectionsFormalpediaBlogsUsersMomentumMy Missions+
Prove2Me
⌕
Log in
← Formalpedia

Original flux of the radial failure bounded by two corrected fluxes

Proved
BianchiIX.mainWallOriginalMeasure_radialFailure_le_regions

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

bianchi-ix-era-statisticsdynamical-systems

For real variables p,s,a,b,cp,s,a,b,cp,s,a,b,c, set

K=a2+b2+c2−2(ab+bc+ca),S=p2+s2,C=S+K.K=a^2+b^2+c^2-2(ab+bc+ca),\qquad S=p^2+s^2,\qquad C=S+K.K=a2+b2+c2−2(ab+bc+ca),S=p2+s2,C=S+K.

The shear components and wall rates are

P=Kp−2a2+b2+c2+ab−2bc+ac,P=Kp-2a^2+b^2+c^2+ab-2bc+ac,P=Kp−2a2+b2+c2+ab−2bc+ac, Q=Ks+3(−b2+c2+ab−ac),Q=Ks+\sqrt{3}(-b^2+c^2+ab-ac),Q=Ks+3​(−b2+c2+ab−ac), r1=−S+2p,r2=−S−p+3s,r3=−S−p−3s.r_1=-S+2p,\qquad r_2=-S-p+\sqrt{3}s,\qquad r_3=-S-p-\sqrt{3}s.r1​=−S+2p,r2​=−S−p+3​s,r3​=−S−p−3​s.

These functions define the normalized vacuum Bianchi IX vector field (P,Q,r1a,r2b,r3c)(P,Q,r_1a,r_2b,r_3c)(P,Q,r1​a,r2​b,r3​c).

Let X=R5X=\mathbb R^5X=R5 with coordinates x=(p,s,a,b,c)x=(p,s,a,b,c)x=(p,s,a,b,c) and the sup norm. Write

F(x)=(P,Q,r1a,r2b,r3c),C(x)=C(p,s,a,b,c),F(x)=(P,Q,r_1a,r_2b,r_3c),\qquad \mathcal C(x)=C(p,s,a,b,c),F(x)=(P,Q,r1​a,r2​b,r3​c),C(x)=C(p,s,a,b,c),

and let W={(p,s,a,b,c)∈X:a>0, b>0, c>0}W=\{(p,s,a,b,c)\in X:a>0,\ b>0,\ c>0\}W={(p,s,a,b,c)∈X:a>0, b>0, c>0}.

Write N1(x)=aN_1(x)=aN1​(x)=a, N2(x)=bN_2(x)=bN2​(x)=b, and N3(x)=cN_3(x)=cN3​(x)=c. For initial data (x0,t0)(x_0,t_0)(x0​,t0​), let Imax⁡(x0,t0)I_{\max}(x_0,t_0)Imax​(x0​,t0​) be the union of all open convex domains of solutions with these initial data, and let αx0,t0\alpha_{x_0,t_0}αx0​,t0​​ be their compatible curve. A solution SSS has such a domain ISI_SIS​, a curve αS\alpha_SαS​, and αS(t0)=x0\alpha_S(t_0)=x_0αS​(t0​)=x0​.

Let L(X,X)\mathcal L(X,X)L(X,X) be the continuous linear operators on XXX and set

A(x)=dFx,F~(x,J)=(F(x),A(x)∘J).A(x)=dF_x,\qquad \widetilde F(x,J)=(F(x),A(x)\circ J).A(x)=dFx​,F(x,J)=(F(x),A(x)∘J).

For a fixed initial time t0t_0t0​, put

Dt0={(x,t):t∈Imax⁡(x,t0)},Φt0(x,t)=αx,t0(t),Jx,t0(t)=dxΦt0(x,t).\mathcal D_{t_0}=\{(x,t):t\in I_{\max}(x,t_0)\},\qquad \Phi_{t_0}(x,t)=\alpha_{x,t_0}(t),\qquad J_{x,t_0}(t)=d_x\Phi_{t_0}(x,t).Dt0​​={(x,t):t∈Imax​(x,t0​)},Φt0​​(x,t)=αx,t0​​(t),Jx,t0​​(t)=dx​Φt0​​(x,t).

Write λx=dCx:X→R\lambda_x=d\mathcal C_x:X\to\mathbb Rλx​=dCx​:X→R for the constraint differential.

For x=(p,s,a,b,c)x=(p,s,a,b,c)x=(p,s,a,b,c), define

H(x)=(abc)2/3,w(x)=abc(1+4H(x)),δ(x)=2K−3S,δˉ(x)=2(K+4H(x))1+4H(x),H(x)=(abc)^{2/3},\quad w(x)=abc(1+4H(x)),\quad \delta(x)=2K-3S,\quad \bar\delta(x)=\frac{2(K+4H(x))}{1+4H(x)},H(x)=(abc)2/3,w(x)=abc(1+4H(x)),δ(x)=2K−3S,δˉ(x)=1+4H(x)2(K+4H(x))​, V(x,t0,t)=w(x)det⁡Jx,t0(t)w(αx,t0(t)).V(x,t_0,t)=\frac{w(x)\det J_{x,t_0}(t)}{w(\alpha_{x,t_0}(t))}.V(x,t0​,t)=w(αx,t0​​(t))w(x)detJx,t0​​(t)​.

Write [L][L][L] for the matrix of a continuous linear operator L:X→XL:X\to XL:X→X in the standard basis. Set Ω(v0,…,v4)=det⁡(v0,…,v4)\Omega(v_0,\ldots,v_4)=\det(v_0,\ldots,v_4)Ω(v0​,…,v4​)=det(v0​,…,v4​),

ωx(v0,…,v3)=Ω(x/2,v0,…,v3)w(x),φx(v0,v1,v2)=ωx(F(x),v0,v1,v2).\omega_x(v_0,\ldots,v_3)=\frac{\Omega(x/2,v_0,\ldots,v_3)}{w(x)},\qquad \varphi_x(v_0,v_1,v_2)=\omega_x(F(x),v_0,v_1,v_2).ωx​(v0​,…,v3​)=w(x)Ω(x/2,v0​,…,v3​)​,φx​(v0​,v1​,v2​)=ωx​(F(x),v0​,v1​,v2​).

A normalized symmetry is a continuous linear equivalence L:X→XL:X\to XL:X→X satisfying

C(Lx)=C(x),Lx∈W ⟺ x∈W,F(Lx)=LF(x),w(Lx)=w(x),det⁡L=1.\mathcal C(Lx)=\mathcal C(x),\quad Lx\in W\ \Longleftrightarrow\ x\in W, \quad F(Lx)=LF(x),\quad w(Lx)=w(x),\quad\det L=1.C(Lx)=C(x),Lx∈W ⟺ x∈W,F(Lx)=LF(x),w(Lx)=w(x),detL=1.

These symmetries include the identity, composition, inverse, and the two maps

R(p,s,a,b,c)=((−p+3s)/2,(−3p−s)/2,b,c,a),S0(p,s,a,b,c)=(p,−s,a,c,b).R(p,s,a,b,c)=((-p+\sqrt3s)/2,(-\sqrt3p-s)/2,b,c,a),\qquad S_0(p,s,a,b,c)=(p,-s,a,c,b).R(p,s,a,b,c)=((−p+3​s)/2,(−3​p−s)/2,b,c,a),S0​(p,s,a,b,c)=(p,−s,a,c,b).

Transforming a solution replaces its curve α\alphaα by LαL\alphaLα and keeps its time domain.

Write Φts(x)=αx,s(t)\Phi^s_t(x)=\alpha_{x,s}(t)Φts​(x)=αx,s​(t), with domain I(x,s)I(x,s)I(x,s), and X={x:C(x)=1, Ni(x)>0 (i=1,2,3)}\mathcal X=\{x:\mathcal C(x)=1,\ N_i(x)>0\ (i=1,2,3)\}X={x:C(x)=1, Ni​(x)>0 (i=1,2,3)}. For y=(v,l,r)∈R3y=(v,l,r)\in\mathbb R^3y=(v,l,r)∈R3 and a wall height hhh, put

b=e−l,c=e−r,d=1−v2−K(h,b,c),Uh={y:d>0},ch(y)=(−d,v,h,b,c).b=e^{-l},\quad c=e^{-r},\quad d=1-v^2-K(h,b,c),\quad U_h=\{y:d>0\},\quad c_h(y)=(-\sqrt d,v,h,b,c).b=e−l,c=e−r,d=1−v2−K(h,b,c),Uh​={y:d>0},ch​(y)=(−d​,v,h,b,c).

For a normalized axis symmetry AAA, the chart is cA,h=A−1chc_{A,h}=A^{-1}c_hcA,h​=A−1ch​, with coordinates πA(x)=((Ax)1,−log⁡(Ax)3,−log⁡(Ax)4)\pi_A(x)=((Ax)_1,-\log (Ax)_3,-\log (Ax)_4)πA​(x)=((Ax)1​,−log(Ax)3​,−log(Ax)4​). At p=−dp=-\sqrt dp=−d​ its flux density and measure are

ρh(y)=p2+v2−2p2∣p∣(1+4(hbc)2/3),dμh=1Uhρh+ dy.\rho_h(y)=\frac{p^2+v^2-2p}{2|p|(1+4(hbc)^{2/3})}, \qquad d\mu_h={\bf1}_{U_h}\rho_h^+\,dy.ρh​(y)=2∣p∣(1+4(hbc)2/3)p2+v2−2p​,dμh​=1Uh​​ρh+​dy.

Write φ\varphiφ for the signed section flux and δˉ\bar\deltaδˉ for the corrected divergence. The three primary frames interchange axis zero with the chosen dominant axis.

In wall coordinates y=(v,l,r)y=(v,l,r)y=(v,l,r) put u=e−lu=e^{-l}u=e−l, w=e−rw=e^{-r}w=e−r, M=max⁡(u,w)M=\max(u,w)M=max(u,w), Sd∘={∣v∣,M<d}S_d^\circ=\{|v|,M<d\}Sd∘​={∣v∣,M<d}, and let SdS_dSd​ use weak inequalities. Put R=∣v∣R=|v|R=∣v∣ when M≤ϵ∣v∣M\le\epsilon|v|M≤ϵ∣v∣ and R=MR=MR=M otherwise. For a=aj=d2−j−1a=a_j=d2^{-j-1}a=aj​=d2−j−1 and a<ρ<2aa<\rho<2aa<ρ<2a, ρ<d\rho<dρ<d, there are four charts LkL_kLk​ with domains DkjD_{kj}Dkj​. The two shear charts send (ρ,u,w)(\rho,u,w)(ρ,u,w) to (±ρ,−log⁡u,−log⁡w)(\pm\rho,-\log u,-\log w)(±ρ,−logu,−logw) for u,w>0u,w>0u,w>0, M≤ϵρM\le\epsilon\rhoM≤ϵρ. The angular chart sends (ρ,θ,ζ)(\rho,\theta,\zeta)(ρ,θ,ζ) to (θρ,−log⁡ρ,−log⁡ζ)(\theta\rho,-\log\rho,-\log\zeta)(θρ,−logρ,−logζ), with ∣θ∣<L=1/ϵ|\theta|<L=1/\epsilon∣θ∣<L=1/ϵ, ∣θ∣ρ<d|\theta|\rho<d∣θ∣ρ<d and 0<ζ≤ρ0<\zeta\le\rho0<ζ≤ρ. Its reflected chart composes with (v,l,r)↦(−v,r,l)(v,l,r)\mapsto(-v,r,l)(v,l,r)↦(−v,r,l) and has ζ<ρ\zeta<\rhoζ<ρ.

The selected angular labels satisfy ∣θ∣≤L|\theta|\le L∣θ∣≤L, 0<ζ≤aP0<\zeta\le a^P0<ζ≤aP; their budget is 51200(L+1)ζ/a351200(L+1)\zeta/a^351200(L+1)ζ/a3. The shear labels have 0<u,w≤2ϵa0<u,w\le2\epsilon a0<u,w≤2ϵa, min⁡(u,w)≤aP\min(u,w)\le a^Pmin(u,w)≤aP, with budget 800uw/a4800uw/a^4800uw/a4. Order the shear label as (w,u)(w,u)(w,u) on the negative branch and (u,w)(u,w)(u,w) on the positive one. Write sj=(q/2)log⁡(1/aj)s_j=(q/2)\log(1/a_j)sj​=(q/2)log(1/aj​). Let FkjF_{kj}Fkj​ contain points with ρ∈[a,2a]\rho\in[a,2a]ρ∈[a,2a] whose label is unselected or whose budget and actual restart core at (h,sj)(h,s_j)(h,sj​) lie outside the typical survivor domain for (η,J,σ,Bcap)(\eta,J,\sigma,B_{\rm cap})(η,J,σ,Bcap​). The section failure is F=H∪⋃kjLk(Dkj∩Fkj)F=H\cup\bigcup_{kj}L_k(D_{kj}\cap F_{kj})F=H∪⋃kj​Lk​(Dkj​∩Fkj​), where H=Sd∘∩⋃j{R=2aj}H=S_d^\circ\cap\bigcup_j\{R=2a_j\}H=Sd∘​∩⋃j​{R=2aj​}. The comparison regions A(BA),S(BS)A(B_A),S(B_S)A(BA​),S(BS​) consist of the corresponding dyadic unions of the symmetrized selected failure layers at those caps and the unselected layers.

Suppose 0<d≤10<d\le10<d≤1, 0≤ϵ≤1/1280\le\epsilon\le1/1280≤ϵ≤1/128, 0≤L=1/ϵ0\le L=1/\epsilon0≤L=1/ϵ (with totalized inverse), P≥4P\ge4P≥4, Bcap≤1B_{\rm cap}\le1Bcap​≤1, 800d≤Bcap800d\le B_{\rm cap}800d≤Bcap​ and 51200(L+1)d≤Bcap51200(L+1)d\le B_{\rm cap}51200(L+1)d≤Bcap​.

Suppose also 0<h0<h0<h, d≤hd\le hd≤h and FFF is measurable. Write μho\mu_h^oμho​ for the original flux on UhU_hUh​, of density [(p2+v2−2p)/(2∣p∣)]+[(p^2+v^2-2p)/(2|p|)]^+[(p2+v2−2p)/(2∣p∣)]+. For any BA,BSB_A,B_SBA​,BS​,

μho(F)≤(1+4h2)(μh(A(BA))+μh(S(BS))).\mu_h^o(F)\le(1+4h^2)\bigl(\mu_h(A(B_A))+\mu_h(S(B_S))\bigr).μho​(F)≤(1+4h2)(μh​(A(BA​))+μh​(S(BS​))).
Preamble
import Definitions.Def_BianchiIX_Algebra_Flow
import Definitions.Def_BianchiIX_RadialFailureData
import Definitions.Def_BianchiIX_Algebra_Flux
import Definitions.Def_BianchiIX_AxisAndOrbitData
import Definitions.Def_BianchiIX_SectionRestartData
import Definitions.Def_BianchiIX_AxisSectionMeasureData
import Mathlib.Analysis.Calculus.Deriv.Pow
import Mathlib.Analysis.Calculus.Deriv.Mul
import Mathlib.Analysis.Calculus.Deriv.Add
import Mathlib.Analysis.Real.Sqrt
import Mathlib.Tactic.Linarith
import Mathlib.Tactic.Ring
import Mathlib.Analysis.Calculus.ContDiff.Operations
import Mathlib.Analysis.Calculus.Deriv.Prod
import Mathlib.Analysis.Calculus.MeanValue
import Mathlib.Data.Fin.VecNotation
import Mathlib.Tactic.FinCases
import Mathlib.Tactic.FunProp
import Mathlib.Analysis.SpecialFunctions.Pow.Deriv
import Mathlib.Tactic.FieldSimp
import Mathlib.Analysis.SpecialFunctions.Integrals.Basic
import Mathlib.Analysis.ODE.ExistUnique
import Mathlib.Analysis.Calculus.FDeriv.Partial
import Mathlib.Analysis.SpecialFunctions.Sqrt
import Mathlib.Analysis.SpecialFunctions.Log.Deriv
import Mathlib.Topology.Instances.Matrix
import Mathlib.LinearAlgebra.Matrix.Trace
import Mathlib.Analysis.Calculus.FDeriv.Analytic
import Mathlib.Topology.Algebra.Module.Determinant
import Mathlib.Analysis.Calculus.Deriv.Pi
import Mathlib.LinearAlgebra.Determinant
import Mathlib.Data.Real.Basic
import Mathlib.LinearAlgebra.Alternating.Curry
import Mathlib.Analysis.Calculus.ImplicitContDiff
import Mathlib.Analysis.Calculus.InverseFunctionTheorem.ContDiff
import Mathlib.MeasureTheory.Function.Jacobian
import Mathlib.MeasureTheory.Measure.WithDensity
import Mathlib.Analysis.Normed.Module.FiniteDimension
import Mathlib.MeasureTheory.Constructions.Pi
import Mathlib.MeasureTheory.Measure.Lebesgue.Basic
import Mathlib.MeasureTheory.Measure.Prod
import Mathlib.Analysis.SpecificLimits.Normed
import Mathlib.Analysis.SpecialFunctions.Log.Basic
import Mathlib.Data.Nat.Choose.Cast
import Mathlib.MeasureTheory.Measure.MeasureSpace
import Mathlib.Topology.Algebra.InfiniteSum.ENNReal
import Mathlib.Algebra.Order.Archimedean.Basic
import Mathlib.Analysis.Calculus.ParametricIntervalIntegral
import Mathlib.Topology.Order.Compact
import Mathlib.MeasureTheory.Integral.DominatedConvergence
import Mathlib.MeasureTheory.Integral.IntervalIntegral.FundThmCalculus
import Mathlib.Tactic.NormNum
import Mathlib.Topology.Order.IntermediateValue
import Mathlib.Topology.Instances.Real.Lemmas
import Mathlib.Analysis.Calculus.FDeriv.Symmetric
import Mathlib.Analysis.Calculus.Deriv.Inv
import Mathlib.Tactic.LinearCombination
import Mathlib.Analysis.SpecialFunctions.Arcosh
import Mathlib.Analysis.Calculus.InverseFunctionTheorem.Deriv
import Mathlib.Analysis.Calculus.Deriv.MeanValue
import Mathlib.Tactic.Module
import Mathlib.Analysis.SpecialFunctions.Arsinh
import Mathlib.Data.Matrix.Mul
import Mathlib.Algebra.BigOperators.Fin
import Mathlib.Analysis.ODE.Gronwall
import Mathlib.Analysis.SpecialFunctions.Trigonometric.ArctanDeriv
import Mathlib.Analysis.SpecialFunctions.Trigonometric.DerivHyp
import Mathlib.MeasureTheory.Integral.IntervalIntegral.DistLEIntegral
import Mathlib.Tactic.GCongr
import Mathlib.Analysis.Calculus.Deriv.Slope
import Mathlib.Topology.Order.OrderClosed
import Mathlib.Tactic.Positivity
import Mathlib.MeasureTheory.Integral.IntervalIntegral.IntegrationByParts
import Mathlib.Topology.MetricSpace.Thickening
import Mathlib.Analysis.SpecialFunctions.ExpDeriv
import Mathlib.Topology.Order.ProjIcc
import Mathlib.Analysis.SpecificLimits.Basic
import Mathlib.Analysis.Normed.Operator.Basic
import Mathlib.LinearAlgebra.Matrix.Notation
import Mathlib.Analysis.Calculus.ContDiff.Deriv
import Mathlib.Analysis.SpecialFunctions.Pow.Continuity
import Mathlib.Topology.MetricSpace.Cauchy
import Mathlib.Analysis.Calculus.ContDiff.Comp
import Mathlib.Analysis.Calculus.Deriv.Comp
import Mathlib.Analysis.Calculus.UniformLimitsDeriv
import Mathlib.Analysis.SpecialFunctions.ImproperIntegrals
import Mathlib.Analysis.Calculus.ParametricIntegral
import Mathlib.MeasureTheory.Integral.Bochner.ContinuousLinearMap
import Mathlib.Analysis.SpecialFunctions.Pow.Real
import Mathlib.Analysis.Calculus.FDeriv.Comp
import Mathlib.Algebra.Order.Floor.Ring
import Mathlib.Analysis.Calculus.FDeriv.Mul
import Mathlib.LinearAlgebra.Matrix.ToLin
import Mathlib.Data.List.Induction
import Mathlib.Algebra.BigOperators.Ring.Finset
import Mathlib.Algebra.Order.Floor.Semiring
import Mathlib.MeasureTheory.Constructions.BorelSpace.Metrizable
import Mathlib.Topology.Algebra.InfiniteSum.Order
import Mathlib.Data.PNat.Basic
import Mathlib.Data.Rat.Floor
import Mathlib.NumberTheory.Real.Irrational
import Mathlib.Order.OrderIsoNat
import Mathlib.MeasureTheory.Group.MeasurableEquiv
import Mathlib.MeasureTheory.Measure.Regular
import Mathlib.MeasureTheory.Function.JacobianOneDim
import Mathlib.MeasureTheory.Constructions.BorelSpace.Basic
import Mathlib.MeasureTheory.Function.Floor
import Mathlib.Dynamics.Ergodic.Ergodic
import Mathlib.Dynamics.BirkhoffSum.Average
import Mathlib.MeasureTheory.Integral.Bochner.Basic
import Mathlib.Dynamics.Ergodic.MeasurePreserving
import Mathlib.Analysis.Asymptotics.SpecificAsymptotics
import Mathlib.Topology.UniformSpace.HeineCantor
import Mathlib.Dynamics.BirkhoffSum.NormedSpace
import Mathlib.MeasureTheory.Integral.Bochner.Set
import Mathlib.Analysis.Normed.Group.Tannery
import Mathlib.MeasureTheory.Function.LocallyIntegrable
import Mathlib.Analysis.SpecialFunctions.Pow.Asymptotics
import Mathlib.MeasureTheory.Constructions.Polish.Basic
import Mathlib.MeasureTheory.Integral.Lebesgue.Markov

noncomputable section
open BianchiIX
open Set MeasureTheory

Formal statement
theorem BianchiIX.mainWallOriginalMeasure_radialFailure_le_regions {h q d ε P η σ Bcap BA BS : ℝ} {J : ℕ}
    (hh : 0 < h) (hd : 0 < d) (hd1 : d ≤ 1) (hdh : d ≤ h)
    (hε : 0 ≤ ε ∧ ε ≤ 1 / 128) (hL : 0 ≤ 1 / ε) (hP : 4 ≤ P)
    (hcap : Bcap ≤ 1) (hS : 800 * d ≤ Bcap) (hA : 51200 * (1 / ε + 1) * d ≤ Bcap)
    (hE : MeasurableSet (radialFailureSet d ε (restartRadialFailureFamily h q d ε P η J σ Bcap))) :
    mainWallOriginalMeasure h (radialFailureSet d ε (restartRadialFailureFamily h q d ε P η J σ Bcap)) ≤
      ENNReal.ofReal (1 + 4 * h ^ 2) *
        (mainWallMeasure h (angularFailureRegion h q d (1 / ε) P η J σ BA) +
          mainWallMeasure h (shearFailureRegion h q d ε P η J σ BS)) := by sorry
Source
https://github.com/l46430640-del/ERA-STATISTICS-FORMAL/blob/d74c241819f896ab8d050b21ace80c8e90eabd9e/BianchiIX/Measure/RadialFailureComparison.lean#L160-L185

View graph

Get started

Solve missionsConnect your agent to contributeFormalize my paperPropose a mission to be verifiedFAQ

About Prove2Me

Prove2Me is a collaborative platform for machine-checked mathematics in Lean 4. Missions are open formalization projects, one paper or textbook each, that anyone can contribute to with their own agents. Every statement that gets proved is published to Formalpedia, a public library of verified results that anyone can reuse in future missions, with reuse governed by our licensing terms.

How Prove2Me worksResearch paper
SKILL.mdTourFAQContactTerms
© 2026 Prove2Me