Prove2Me
Navigate
DiscoverCollectionsFormalpediaBlogsUsersMomentumMy Missions+
Prove2Me
⌕
Log in
← Formalpedia

Physical axis charts, core flight times and the Brehm attractor input

Definition
BianchiIX_AxisAndOrbitData

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.

Let T\mathcal TT be the union, over primary frames, of the subspaces where the transverse shear and the difference of the other two walls both vanish. Set Δij(x)=2∣Ni(x)Nj(x)∣\Delta_{ij}(x)=2\sqrt{|N_i(x)N_j(x)|}Δij​(x)=2∣Ni​(x)Nj​(x)∣​. The Brehm attractor input used here is the following proposition: for each x∈X∖Tx\in\mathcal X\setminus\mathcal Tx∈X∖T and i≠ji\ne ji=j,

Δij(Φt0(x))⟶0(t→+∞).\Delta_{ij}(\Phi^0_t(x))\longrightarrow0\qquad(t\to+\infty).Δij​(Φt0​(x))⟶0(t→+∞).

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). For y=(m,u,v,w)∈R4y=(m,u,v,w)\in\mathbb R^4y=(m,u,v,w)∈R4, define

K(u,v,w)=u2+v2+w2−2(uv+vw+wu),κ=u(v+w−u),K(u,v,w)=u^2+v^2+w^2-2(uv+vw+wu),\qquad \kappa=u(v+w-u),K(u,v,w)=u2+v2+w2−2(uv+vw+wu),κ=u(v+w−u), Fm=−v2+w2+u(v−w)−mκ,Fu=12(1−m2−(v−w)2+u2)u,F_m=-v^2+w^2+u(v-w)-m\kappa,\qquad F_u=\tfrac12(1-m^2-(v-w)^2+u^2)u,Fm​=−v2+w2+u(v−w)−mκ,Fu​=21​(1−m2−(v−w)2+u2)u, Fv=(m−1−κ)v,Fw=(−m−1−κ)w,F=(Fm,Fu,Fv,Fw),F_v=(m-1-\kappa)v,\qquad F_w=(-m-1-\kappa)w,\qquad F=(F_m,F_u,F_v,F_w),Fv​=(m−1−κ)v,Fw​=(−m−1−κ)w,F=(Fm​,Fu​,Fv​,Fw​),

and E(m,v)=(m−1)2+v2E(m,v)=(m-1)^2+v^2E(m,v)=(m−1)2+v2.

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

ψ(p,z)=3 z1+p,Π(x)=(ψ(p,s),ψ(p,a),ψ(p,b),ψ(p,c)).\psi(p,z)=\frac{\sqrt3\,z}{1+p},\qquad \Pi(x)=(\psi(p,s),\psi(p,a),\psi(p,b),\psi(p,c)).ψ(p,z)=1+p3​z​,Π(x)=(ψ(p,s),ψ(p,a),ψ(p,b),ψ(p,c)).

For y=(m,u,v,w)y=(m,u,v,w)y=(m,u,v,w), set D(y)=3+m2+K(u,v,w)D(y)=3+m^2+K(u,v,w)D(y)=3+m2+K(u,v,w) and

ΞA(y)=(A−1,Am3,Au3,Av3,Aw3),Ξ(y)=Ξ6/D(y)(y).\Xi_A(y)=\left(A-1,\frac{Am}{\sqrt3},\frac{Au}{\sqrt3}, \frac{Av}{\sqrt3},\frac{Aw}{\sqrt3}\right),\qquad \Xi(y)=\Xi_{6/D(y)}(y).ΞA​(y)=(A−1,3​Am​,3​Au​,3​Av​,3​Aw​),Ξ(y)=Ξ6/D(y)​(y).

Write N(x)=(P,Q,r1a,r2b,r3c)N(x)=(P,Q,r_1a,r_2b,r_3c)N(x)=(P,Q,r1​a,r2​b,r3​c) for the normalized vector field and C(x)=C(p,s,a,b,c)\mathcal C(x)=C(p,s,a,b,c)C(x)=C(p,s,a,b,c) for its constraint.

The normalized and projective state spaces are R5\mathbb R^5R5 and R4\mathbb R^4R4 with their finite-product norms. The maps Π,Ξ,D,F\Pi,\Xi,D,FΠ,Ξ,D,F act on these state spaces.

Define the core radius, angle, and clock factor by

r(m,v)=(m−1)2+v2,θ(m,v)=arsinh⁡1−mv,d(r,u,w)=1−(u−w)2r2.r(m,v)=\sqrt{(m-1)^2+v^2},\qquad \theta(m,v)=\operatorname{arsinh}\frac{1-m}{v},\qquad d(r,u,w)=1-\frac{(u-w)^2}{r^2}.r(m,v)=(m−1)2+v2​,θ(m,v)=arsinhv1−m​,d(r,u,w)=1−r2(u−w)2​.

For y=(m,u,v,w)y=(m,u,v,w)y=(m,u,v,w), write ry=r(m,v)r_y=r(m,v)ry​=r(m,v), θy=θ(m,v)\theta_y=\theta(m,v)θy​=θ(m,v), and dy=d(ry,u,w)d_y=d(r_y,u,w)dy​=d(ry​,u,w). All quotients use the total convention x/0=0x/0=0x/0=0.

The core state space is R3\mathbb R^3R3 with coordinates Y=(r,u,p)Y=(r,u,p)Y=(r,u,p). Define

η(m,u,v,w)=(r(m,v),u,vw),ιz(r,u,p)=(1−rtanh⁡z,u,rcosh⁡z,pr/cosh⁡z).\eta(m,u,v,w)=(r(m,v),u,vw),\qquad \iota_z(r,u,p)=\left(1-r\tanh z,u,\frac r{\cosh z}, \frac p{r/\cosh z}\right).η(m,u,v,w)=(r(m,v),u,vw),ιz​(r,u,p)=(1−rtanhz,u,coshzr​,r/coshzp​).

For fixed (z,Y)(z,Y)(z,Y) put v=r/cosh⁡zv=r/\cosh zv=r/coshz, w=p/vw=p/vw=p/v, d=d(r,u,w)d=d(r,u,w)d=d(r,u,w), and define

V(z,Y)=(−κ(u,v,w)−tanh⁡z (u−w)2/rd,u[−r/2+tanh⁡z+w/cosh⁡z+(u2−w2)/(2r)]d,−2p(1+κ(u,v,w))rd).\mathcal V(z,Y)=\left( \frac{-\kappa(u,v,w)-\tanh z\,(u-w)^2/r}{d},\quad \frac{u[-r/2+\tanh z+w/\cosh z+(u^2-w^2)/(2r)]}{d},\quad \frac{-2p(1+\kappa(u,v,w))}{rd}\right).V(z,Y)=(d−κ(u,v,w)−tanhz(u−w)2/r​,du[−r/2+tanhz+w/coshz+(u2−w2)/(2r)]​,rd−2p(1+κ(u,v,w))​).

For real kkk, put εk=1/(10000k)\varepsilon_k=1/(10000k)εk​=1/(10000k) and define

Kk={(m,u,v,w):∣E(m,v)−k2∣≤1/8,v≥1,0≤u≤εk,0≤vw≤εk}.\mathcal K_k=\{(m,u,v,w): |E(m,v)-k^2|\leq1/8,\quad v\geq1, \quad0\leq u\leq\varepsilon_k,\quad0\leq vw\leq\varepsilon_k\}.Kk​={(m,u,v,w):∣E(m,v)−k2∣≤1/8,v≥1,0≤u≤εk​,0≤vw≤εk​}.

Write X=R5X=\mathbb R^5X=R5, Y=R4Y=\mathbb R^4Y=R4, and let αx,t0\alpha_{x,t_0}αx,t0​​ be the maximal solution of α′=N(α)\alpha'=N(\alpha)α′=N(α) with initial value xxx at t0t_0t0​ and domain Imax⁡(x,t0)I_{\max}(x,t_0)Imax​(x,t0​). Put

Jx,t0(t)=dxαx,t0(t),Ψt0(y,t)=Π(αΞ(y),t0(t)),J_{x,t_0}(t)=d_x\alpha_{x,t_0}(t),\qquad \Psi_{t_0}(y,t)=\Pi(\alpha_{\Xi(y),t_0}(t)),Jx,t0​​(t)=dx​αx,t0​​(t),Ψt0​​(y,t)=Π(αΞ(y),t0​​(t)), Jy,t0(t)=dΠαΞ(y),t0(t)∘JΞ(y),t0(t)∘dΞy.\mathcal J_{y,t_0}(t)=d\Pi_{\alpha_{\Xi(y),t_0}(t)} \circ J_{\Xi(y),t_0}(t)\circ d\Xi_y.Jy,t0​​(t)=dΠαΞ(y),t0​​(t)​∘JΞ(y),t0​​(t)∘dΞy​.

Write G(y)=6F(y)/D(y)G(y)=6F(y)/D(y)G(y)=6F(y)/D(y), λ(y)=6rydy/D(y)\lambda(y)=6r_yd_y/D(y)λ(y)=6ry​dy​/D(y), and Sk(R,U,P)=(R,kU,P)S_k(R,U,P)=(R,kU,P)Sk​(R,U,P)=(R,kU,P). Define

Pyξ=dηyξ−dθyξ V(θy,η(y)),Wy,t0,w(t)=PΨt0(y,t)(Jy,t0(t)w).\mathcal P_y\xi=d\eta_y\xi-d\theta_y\xi\,\mathcal V(\theta_y,\eta(y)), \qquad \mathcal W_{y,t_0,w}(t)= \mathcal P_{\Psi_{t_0}(y,t)}(\mathcal J_{y,t_0}(t)w).Py​ξ=dηy​ξ−dθy​ξV(θy​,η(y)),Wy,t0​,w​(t)=PΨt0​​(y,t)​(Jy,t0​​(t)w).

The entrance parametrization and radial exit factor are

e(k,u,w)=(1+k2−1,u,1,w),e(k,u,w)=(1+\sqrt{k^2-1},u,1,w),e(k,u,w)=(1+k2−1​,u,1,w), fy=V(θy,η(y))0,cy=−tanh⁡θy,hy=cy+fy/ry,ρy=cy/hy.f_y=\mathcal V(\theta_y,\eta(y))_0,\qquad c_y=-\tanh\theta_y, \qquad h_y=c_y+f_y/r_y,\qquad \rho_y=c_y/h_y.fy​=V(θy​,η(y))0​,cy​=−tanhθy​,hy​=cy​+fy​/ry​,ρy​=cy​/hy​.

For projective initial data yyy, put

Ay,t0(t)=1+(αΞ(y),t0(t))0.A_{y,t_0}(t)=1+(\alpha_{\Xi(y),t_0}(t))_0.Ay,t0​​(t)=1+(αΞ(y),t0​​(t))0​.

Coordinates of three-vectors are indexed by 0,1,20,1,20,1,2; projective coordinates are indexed by m,u,v,wm,u,v,wm,u,v,w.

For Y∈R3Y\in\mathbb R^3Y∈R3, put xY=Ξ(e(Y))x_Y=\Xi(e(Y))xY​=Ξ(e(Y)), βY(t)=Ψ0(e(Y),t)\beta_Y(t)=\Psi_0(e(Y),t)βY​(t)=Ψ0​(e(Y),t), and

HY={t>0:t∈Imax⁡(xY,0), (βY(t))v=1},T(Y)=inf⁡HY,F(Y)=η(βY(T(Y))).H_Y=\{t>0:t\in I_{\max}(x_Y,0),\ (\beta_Y(t))_v=1\}, \qquad T(Y)=\inf H_Y,\qquad F(Y)=\eta(\beta_Y(T(Y))).HY​={t>0:t∈Imax​(xY​,0), (βY​(t))v​=1},T(Y)=infHY​,F(Y)=η(βY​(T(Y))).

The infimum uses the total real-order convention. Write Valid⁡(Y)\operatorname{Valid}(Y)Valid(Y) when T(Y)T(Y)T(Y) is the least element of HYH_YHY​, every t∈[0,T(Y)]t\in[0,T(Y)]t∈[0,T(Y)] lies in Imax⁡(xY,0)I_{\max}(x_Y,0)Imax​(xY​,0) with Ae(Y),0(t)>0A_{e(Y),0}(t)>0Ae(Y),0​(t)>0, the active wall is strictly above one for 0<t<T(Y)0<t<T(Y)0<t<T(Y), and

dgαxY,0(T(Y))N(αxY,0(T(Y)))<0,g(x)=(Π(x))v.dg_{\alpha_{x_Y,0}(T(Y))}N(\alpha_{x_Y,0}(T(Y)))<0, \qquad g(x)=(\Pi(x))_v.dgαxY​,0​(T(Y))​N(αxY​,0​(T(Y)))<0,g(x)=(Π(x))v​.

All vector and operator norms below use the finite-product supremum norm. 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). For y=(m,u,v,w)∈R4y=(m,u,v,w)\in\mathbb R^4y=(m,u,v,w)∈R4, define

K(u,v,w)=u2+v2+w2−2(uv+vw+wu),κ=u(v+w−u),K(u,v,w)=u^2+v^2+w^2-2(uv+vw+wu),\qquad \kappa=u(v+w-u),K(u,v,w)=u2+v2+w2−2(uv+vw+wu),κ=u(v+w−u), Fm=−v2+w2+u(v−w)−mκ,Fu=12(1−m2−(v−w)2+u2)u,F_m=-v^2+w^2+u(v-w)-m\kappa,\qquad F_u=\tfrac12(1-m^2-(v-w)^2+u^2)u,Fm​=−v2+w2+u(v−w)−mκ,Fu​=21​(1−m2−(v−w)2+u2)u, Fv=(m−1−κ)v,Fw=(−m−1−κ)w,F=(Fm,Fu,Fv,Fw),F_v=(m-1-\kappa)v,\qquad F_w=(-m-1-\kappa)w,\qquad F=(F_m,F_u,F_v,F_w),Fv​=(m−1−κ)v,Fw​=(−m−1−κ)w,F=(Fm​,Fu​,Fv​,Fw​),

and E(m,v)=(m−1)2+v2E(m,v)=(m-1)^2+v^2E(m,v)=(m−1)2+v2.

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

ψ(p,z)=3 z1+p,Π(x)=(ψ(p,s),ψ(p,a),ψ(p,b),ψ(p,c)).\psi(p,z)=\frac{\sqrt3\,z}{1+p},\qquad \Pi(x)=(\psi(p,s),\psi(p,a),\psi(p,b),\psi(p,c)).ψ(p,z)=1+p3​z​,Π(x)=(ψ(p,s),ψ(p,a),ψ(p,b),ψ(p,c)).

For y=(m,u,v,w)y=(m,u,v,w)y=(m,u,v,w), set D(y)=3+m2+K(u,v,w)D(y)=3+m^2+K(u,v,w)D(y)=3+m2+K(u,v,w) and

ΞA(y)=(A−1,Am3,Au3,Av3,Aw3),Ξ(y)=Ξ6/D(y)(y).\Xi_A(y)=\left(A-1,\frac{Am}{\sqrt3},\frac{Au}{\sqrt3}, \frac{Av}{\sqrt3},\frac{Aw}{\sqrt3}\right),\qquad \Xi(y)=\Xi_{6/D(y)}(y).ΞA​(y)=(A−1,3​Am​,3​Au​,3​Av​,3​Aw​),Ξ(y)=Ξ6/D(y)​(y).

Write N(x)=(P,Q,r1a,r2b,r3c)N(x)=(P,Q,r_1a,r_2b,r_3c)N(x)=(P,Q,r1​a,r2​b,r3​c) for the normalized vector field and C(x)=C(p,s,a,b,c)\mathcal C(x)=C(p,s,a,b,c)C(x)=C(p,s,a,b,c) for its constraint.

The normalized and projective state spaces are R5\mathbb R^5R5 and R4\mathbb R^4R4 with their finite-product norms. The maps Π,Ξ,D,F\Pi,\Xi,D,FΠ,Ξ,D,F act on these state spaces.

The projective vector field in normalized time is

G(y)=6D(y)F(y).G(y)=\frac6{D(y)}F(y).G(y)=D(y)6​F(y).

Write X=R5X=\mathbb R^5X=R5, Y=R4Y=\mathbb R^4Y=R4, and let αx,t0\alpha_{x,t_0}αx,t0​​ be the maximal solution of α′=N(α)\alpha'=N(\alpha)α′=N(α) with initial value xxx at t0t_0t0​ and domain Imax⁡(x,t0)I_{\max}(x,t_0)Imax​(x,t0​). Put

Jx,t0(t)=dxαx,t0(t),Ψt0(y,t)=Π(αΞ(y),t0(t)),J_{x,t_0}(t)=d_x\alpha_{x,t_0}(t),\qquad \Psi_{t_0}(y,t)=\Pi(\alpha_{\Xi(y),t_0}(t)),Jx,t0​​(t)=dx​αx,t0​​(t),Ψt0​​(y,t)=Π(αΞ(y),t0​​(t)), Jy,t0(t)=dΠαΞ(y),t0(t)∘JΞ(y),t0(t)∘dΞy.\mathcal J_{y,t_0}(t)=d\Pi_{\alpha_{\Xi(y),t_0}(t)} \circ J_{\Xi(y),t_0}(t)\circ d\Xi_y.Jy,t0​​(t)=dΠαΞ(y),t0​​(t)​∘JΞ(y),t0​​(t)∘dΞy​.

Put c=u(v+w−u)c=u(v+w-u)c=u(v+w−u), s(m,u,v,w)=m−1−cs(m,u,v,w)=m-1-cs(m,u,v,w)=m−1−c, b(m,u,v,w)=(1−m2−(v−w)2+u2)/2b(m,u,v,w)=(1-m^2-(v-w)^2+u^2)/2b(m,u,v,w)=(1−m2−(v−w)2+u2)/2, D(m,u,v,w)=3+m2+K(u,v,w)D(m,u,v,w)=3+m^2+K(u,v,w)D(m,u,v,w)=3+m2+K(u,v,w), and r(m,v)=(m−1)2+v2r(m,v)=\sqrt{(m-1)^2+v^2}r(m,v)=(m−1)2+v2​.

Define

Cμ={(m,u,v,w):∣−m−μ∣≤1/2, 0≤u≤1/10000, 0≤v,w≤1},\mathcal C_\mu=\{(m,u,v,w):|-m-\mu|\leq1/2, \ 0\leq u\leq1/10000,\ 0\leq v,w\leq1\},Cμ​={(m,u,v,w):∣−m−μ∣≤1/2, 0≤u≤1/10000, 0≤v,w≤1}, ω−(y)=s(−ym,yu,yv,yw),H(y)=F(y)/ω−(y).\omega_-(y)=s(-y_m,y_u,y_v,y_w),\qquad H(y)=F(y)/\omega_-(y).ω−​(y)=s(−ym​,yu​,yv​,yw​),H(y)=F(y)/ω−​(y).

For a normalized trajectory write

β(t)=Π(αx,t0(t)),A(t)=1+(αx,t0(t))0,I=Imax⁡(x,t0).\beta(t)=\Pi(\alpha_{x,t_0}(t)),\quad A(t)=1+(\alpha_{x,t_0}(t))_0, \quad I=I_{\max}(x,t_0).β(t)=Π(αx,t0​​(t)),A(t)=1+(αx,t0​​(t))0​,I=Imax​(x,t0​).

For p=(μ,u,w)∈R3p=(\mu,u,w)\in\mathbb R^3p=(μ,u,w)∈R3, set e(p)=(−μ,u,1,w)e(p)=(-\mu,u,1,w)e(p)=(−μ,u,1,w), xp=Ξ(e(p))x_p=\Xi(e(p))xp​=Ξ(e(p)), and

T−(p)=inf⁡{t>0:t∈Imax⁡(xp,0), (Ψ0(e(p),t))w=1},P−(p)=Ψ0(e(p),T−(p)).T_-(p)=\inf\{t>0:t\in I_{\max}(x_p,0),\ (\Psi_0(e(p),t))_w=1\}, \qquad P_-(p)=\Psi_0(e(p),T_-(p)).T−​(p)=inf{t>0:t∈Imax​(xp​,0), (Ψ0​(e(p),t))w​=1},P−​(p)=Ψ0​(e(p),T−​(p)).

Let V−(p)V_-(p)V−​(p) mean that this infimum is a least element, the full interval [0,T−(p)][0,T_-(p)][0,T−​(p)] lies in the maximal domain with positive AAA, the growing wall is below one before the endpoint, and its normalized-time derivative is strictly positive at the endpoint. The infimum has its total real-order meaning.

Write e+(R,u,w)=(1+R2−1,u,1,w)e_+(R,u,w)=(1+\sqrt{R^2-1},u,1,w)e+​(R,u,w)=(1+R2−1​,u,1,w), e−(R,u,w)=(1−R2−1,u,1,w)e_-(R,u,w)=(1-\sqrt{R^2-1},u,1,w)e−​(R,u,w)=(1−R2−1​,u,1,w), p−(R,u,w)=(R2−1−1,u,w)p_-(R,u,w)=(\sqrt{R^2-1}-1,u,w)p−​(R,u,w)=(R2−1​−1,u,w), and R(m,u,v,w)=(−m,u,w,v)\mathcal R(m,u,v,w)=(-m,u,w,v)R(m,u,v,w)=(−m,u,w,v). The physical connection coordinates are

C(p)=((−P−(p)0−1)2+1,P−(p)1,P−(p)2).\mathscr C(p)=\left(\sqrt{(-P_-(p)_0-1)^2+1},P_-(p)_1,P_-(p)_2\right).C(p)=((−P−​(p)0​−1)2+1​,P−​(p)1​,P−​(p)2​).

Below TTT denotes the canonical core return time from e+e_+e+​ and F(Y)=η(Ψ0(e+(Y),T(Y)))F(Y)=\eta(\Psi_0(e_+(Y),T(Y)))F(Y)=η(Ψ0​(e+​(Y),T(Y))) its radial and wall coordinates. Let R(Y)=C(p−(Y))\mathscr R(Y)=\mathscr C(p_-(Y))R(Y)=C(p−​(Y)), tr(Y)=T−(p−(Y))t_r(Y)=T_-(p_-(Y))tr​(Y)=T−​(p−​(Y)), G=R∘FG=\mathscr R\circ FG=R∘F, and tG(Y)=T(Y)+tr(F(Y))t_G(Y)=T(Y)+t_r(F(Y))tG​(Y)=T(Y)+tr​(F(Y)). A cone direction at YYY has d0=1d_0=1d0​=1, ∣d1∣≤Y1|d_1|\leq\sqrt{Y_1}∣d1​∣≤Y1​​, ∣d2∣≤Y2|d_2|\leq\sqrt{Y_2}∣d2​∣≤Y2​​. For a map HHH with positive output walls, its positive cone property means dH(Y)ddH(Y)ddH(Y)d has positive radial component and ∣(dH(Y)d)i∣≤H(Y)i(dH(Y)d)0|(dH(Y)d)_i|\leq\sqrt{H(Y)_i}(dH(Y)d)_0∣(dH(Y)d)i​∣≤H(Y)i​​(dH(Y)d)0​ for i=1,2i=1,2i=1,2. 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). For y=(m,u,v,w)∈R4y=(m,u,v,w)\in\mathbb R^4y=(m,u,v,w)∈R4, define

K(u,v,w)=u2+v2+w2−2(uv+vw+wu),κ=u(v+w−u),K(u,v,w)=u^2+v^2+w^2-2(uv+vw+wu),\qquad \kappa=u(v+w-u),K(u,v,w)=u2+v2+w2−2(uv+vw+wu),κ=u(v+w−u), Fm=−v2+w2+u(v−w)−mκ,Fu=12(1−m2−(v−w)2+u2)u,F_m=-v^2+w^2+u(v-w)-m\kappa,\qquad F_u=\tfrac12(1-m^2-(v-w)^2+u^2)u,Fm​=−v2+w2+u(v−w)−mκ,Fu​=21​(1−m2−(v−w)2+u2)u, Fv=(m−1−κ)v,Fw=(−m−1−κ)w,F=(Fm,Fu,Fv,Fw),F_v=(m-1-\kappa)v,\qquad F_w=(-m-1-\kappa)w,\qquad F=(F_m,F_u,F_v,F_w),Fv​=(m−1−κ)v,Fw​=(−m−1−κ)w,F=(Fm​,Fu​,Fv​,Fw​),

and E(m,v)=(m−1)2+v2E(m,v)=(m-1)^2+v^2E(m,v)=(m−1)2+v2.

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

ψ(p,z)=3 z1+p,Π(x)=(ψ(p,s),ψ(p,a),ψ(p,b),ψ(p,c)).\psi(p,z)=\frac{\sqrt3\,z}{1+p},\qquad \Pi(x)=(\psi(p,s),\psi(p,a),\psi(p,b),\psi(p,c)).ψ(p,z)=1+p3​z​,Π(x)=(ψ(p,s),ψ(p,a),ψ(p,b),ψ(p,c)).

For y=(m,u,v,w)y=(m,u,v,w)y=(m,u,v,w), set D(y)=3+m2+K(u,v,w)D(y)=3+m^2+K(u,v,w)D(y)=3+m2+K(u,v,w) and

ΞA(y)=(A−1,Am3,Au3,Av3,Aw3),Ξ(y)=Ξ6/D(y)(y).\Xi_A(y)=\left(A-1,\frac{Am}{\sqrt3},\frac{Au}{\sqrt3}, \frac{Av}{\sqrt3},\frac{Aw}{\sqrt3}\right),\qquad \Xi(y)=\Xi_{6/D(y)}(y).ΞA​(y)=(A−1,3​Am​,3​Au​,3​Av​,3​Aw​),Ξ(y)=Ξ6/D(y)​(y).

Write N(x)=(P,Q,r1a,r2b,r3c)N(x)=(P,Q,r_1a,r_2b,r_3c)N(x)=(P,Q,r1​a,r2​b,r3​c) for the normalized vector field and C(x)=C(p,s,a,b,c)\mathcal C(x)=C(p,s,a,b,c)C(x)=C(p,s,a,b,c) for its constraint.

The normalized and projective state spaces are R5\mathbb R^5R5 and R4\mathbb R^4R4 with their finite-product norms. The maps Π,Ξ,D,F\Pi,\Xi,D,FΠ,Ξ,D,F act on these state spaces.

The projective vector field in normalized time is

G(y)=6D(y)F(y).G(y)=\frac6{D(y)}F(y).G(y)=D(y)6​F(y).

Write X=R5X=\mathbb R^5X=R5, Y=R4Y=\mathbb R^4Y=R4, and let αx,t0\alpha_{x,t_0}αx,t0​​ be the maximal solution of α′=N(α)\alpha'=N(\alpha)α′=N(α) with initial value xxx at t0t_0t0​ and domain Imax⁡(x,t0)I_{\max}(x,t_0)Imax​(x,t0​). Put

Jx,t0(t)=dxαx,t0(t),Ψt0(y,t)=Π(αΞ(y),t0(t)),J_{x,t_0}(t)=d_x\alpha_{x,t_0}(t),\qquad \Psi_{t_0}(y,t)=\Pi(\alpha_{\Xi(y),t_0}(t)),Jx,t0​​(t)=dx​αx,t0​​(t),Ψt0​​(y,t)=Π(αΞ(y),t0​​(t)), Jy,t0(t)=dΠαΞ(y),t0(t)∘JΞ(y),t0(t)∘dΞy.\mathcal J_{y,t_0}(t)=d\Pi_{\alpha_{\Xi(y),t_0}(t)} \circ J_{\Xi(y),t_0}(t)\circ d\Xi_y.Jy,t0​​(t)=dΠαΞ(y),t0​​(t)​∘JΞ(y),t0​​(t)∘dΞy​.

For Y=(k,u,w)∈R3Y=(k,u,w)\in\mathbb R^3Y=(k,u,w)∈R3, define

e−(Y)=(1−k2−1,u,1,w),xY=Ξ(e−(Y)),βY(t)=Ψ0(e−(Y),t),g(x)=(Π(x))v.e_-(Y)=(1-\sqrt{k^2-1},u,1,w),\quad x_Y=\Xi(e_-(Y)),\quad \beta_Y(t)=\Psi_0(e_-(Y),t),\quad g(x)=(\Pi(x))_v.e−​(Y)=(1−k2−1​,u,1,w),xY​=Ξ(e−​(Y)),βY​(t)=Ψ0​(e−​(Y),t),g(x)=(Π(x))v​.

For any real height η\etaη, put

Hη,Y={t>0:t∈Imax⁡(xY,0), g(αxY,0(t))=η},H_{\eta,Y}=\{t>0:t\in I_{\max}(x_Y,0),\ g(\alpha_{x_Y,0}(t))=\eta\},Hη,Y​={t>0:t∈Imax​(xY​,0), g(αxY​,0​(t))=η}, Tη(Y)=inf⁡Hη,Y,Pη(Y)=βY(Tη(Y)).T_\eta(Y)=\inf H_{\eta,Y},\qquad P_\eta(Y)=\beta_Y(T_\eta(Y)).Tη​(Y)=infHη,Y​,Pη​(Y)=βY​(Tη​(Y)).

The infimum uses the total real-order convention. Let TailValid⁡η(Y)\operatorname{TailValid}_\eta(Y)TailValidη​(Y) mean that Tη(Y)T_\eta(Y)Tη​(Y) is the least element of Hη,YH_{\eta,Y}Hη,Y​, and, writing T=Tη(Y)T=T_\eta(Y)T=Tη​(Y), that

t∈Imax⁡(xY,0),1+(αxY,0(t))0>0(0≤t≤T),t\in I_{\max}(x_Y,0),\quad 1+(\alpha_{x_Y,0}(t))_0>0 \quad(0\leq t\leq T),t∈Imax​(xY​,0),1+(αxY​,0​(t))0​>0(0≤t≤T), g(αxY,0(t))>η(0≤t<T),g(\alpha_{x_Y,0}(t))>\eta\quad(0\leq t<T),g(αxY​,0​(t))>η(0≤t<T), dgαxY,0(t)N(αxY,0(t))<0,∣(Π(αxY,0(t)))w∣<1/2(0≤t≤T).dg_{\alpha_{x_Y,0}(t)}N(\alpha_{x_Y,0}(t))<0,\quad |(\Pi(\alpha_{x_Y,0}(t)))_w|<1/2\quad(0\leq t\leq T).dgαxY​,0​(t)​N(αxY​,0​(t))<0,∣(Π(αxY​,0​(t)))w​∣<1/2(0≤t≤T).

All vector and operator norms use the finite-product supremum norms.

For y∈R4y\in\mathbb R^4y∈R4, put xy=Ξ(y)x_y=\Xi(y)xy​=Ξ(y),

T+(y)=inf⁡{t>0:t∈Imax⁡(xy,0), (Ψ0(y,t))v=1},P+(y)=Ψ0(y,T+(y)).T_+(y)=\inf\{t>0:t\in I_{\max}(x_y,0),\ (\Psi_0(y,t))_v=1\}, \qquad P_+(y)=\Psi_0(y,T_+(y)).T+​(y)=inf{t>0:t∈Imax​(xy​,0), (Ψ0​(y,t))v​=1},P+​(y)=Ψ0​(y,T+​(y)).

Let V+(y)V_+(y)V+​(y) mean that this infimum is a least element, the full interval [0,T+(y)][0,T_+(y)][0,T+​(y)] lies in the maximal domain with 1+(αxy,0(t))0>01+(\alpha_{x_y,0}(t))_0>01+(αxy​,0​(t))0​>0, the active wall is below one before the endpoint, and its normalized-time derivative is strictly positive throughout the interval. The infimum has its total real-order meaning.

For y=(m,u,v,w)y=(m,u,v,w)y=(m,u,v,w) define the cyclic chart by

H(y)=(m+1)2+K(u,v,w),A(y)=(1−4(m+1)/H,4v/H,4w/H,4u/H).H(y)=(m+1)^2+K(u,v,w),\qquad \mathcal A(y)=(1-4(m+1)/H,4v/H,4w/H,4u/H).H(y)=(m+1)2+K(u,v,w),A(y)=(1−4(m+1)/H,4v/H,4w/H,4u/H).

Its normalized symmetry is

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

Put zh(Y)=A(Ph(Y))z_h(Y)=\mathcal A(P_h(Y))zh​(Y)=A(Ph​(Y)) and

T(h,Y)=Th(Y)+T+(zh(Y)),P(h,Y)=P+(zh(Y)),xYc=AΞ(e−(Y)).\mathcal T(h,Y)=T_h(Y)+T_+(z_h(Y)),\qquad \mathcal P(h,Y)=P_+(z_h(Y)),\qquad x_Y^c=A\Xi(e_-(Y)).T(h,Y)=Th​(Y)+T+​(zh​(Y)),P(h,Y)=P+​(zh​(Y)),xYc​=AΞ(e−​(Y)).

Write r(m,v)=(m−1)2+v2r(m,v)=\sqrt{(m-1)^2+v^2}r(m,v)=(m−1)2+v2​ and g∗(x)=(Π(x))vg_*(x)=(\Pi(x))_vg∗​(x)=(Π(x))v​.

In the era formulas below, FFF denotes the core return map and G=R∘FG=\mathscr R\circ FG=R∘F its composition with reflection. For Z=(R,u,w)Z=(R,u,w)Z=(R,u,w) use the natural height h∗(Z)=η((R−2)/2)Jh_*(Z)=\eta((R-2)/2)^Jh∗​(Z)=η((R−2)/2)J and define S∗(Z)=P(h∗(Z),Z)S_*(Z)=\mathcal P(h_*(Z),Z)S∗​(Z)=P(h∗​(Z),Z), R∗(Z)=r(S∗(Z)0,S∗(Z)2)R_*(Z)=r(S_*(Z)_0,S_*(Z)_2)R∗​(Z)=r(S∗​(Z)0​,S∗​(Z)2​), Q∗(Z)=2/R∗(Z)Q_*(Z)=2/R_*(Z)Q∗​(Z)=2/R∗​(Z) and t∗(Z)=T(h∗(Z),Z)t_*(Z)=\mathcal T(h_*(Z),Z)t∗​(Z)=T(h∗​(Z),Z). The complete era maps are

Zm=F∘Gm,Sm=S∗∘Zm,Rm=R∗∘Zm,Pm=2/Rm.Z_m=F\circ G^m,\qquad S_m=S_*\circ Z_m,\qquad R_m=R_*\circ Z_m,\qquad P_m=2/R_m.Zm​=F∘Gm,Sm​=S∗​∘Zm​,Rm​=R∗​∘Zm​,Pm​=2/Rm​.

For a graph Γ=(U,W)\Gamma=(U,W)Γ=(U,W) write Γ[r]=(r,U(r),W(r))\Gamma[r]=(r,U(r),W(r))Γ[r]=(r,U(r),W(r)), ϕm(r)=Pm(Γ[r])\phi_m(r)=P_m(\Gamma[r])ϕm​(r)=Pm​(Γ[r]), km(r)=Rm(Γ[r])k_m(r)=R_m(\Gamma[r])km​(r)=Rm​(Γ[r]), um(r)=Sm(Γ[r])1u_m(r)=S_m(\Gamma[r])_1um​(r)=Sm​(Γ[r])1​, wm(r)=Sm(Γ[r])3w_m(r)=S_m(\Gamma[r])_3wm​(r)=Sm​(Γ[r])3​. Let Inv⁡a,b(f)\operatorname{Inv}_{a,b}(f)Inva,b​(f) denote Lean's total choice inverse invFunOn⁡f [a,b]\operatorname{invFunOn}f\,[a,b]invFunOnf[a,b]. For a=2(m+1+β)a=2(m+1+\beta)a=2(m+1+β), b=2(m+2−β)b=2(m+2-\beta)b=2(m+2−β), define

gm=Inv⁡a,b(ϕm),hm(y)=2/gm(y).g_m=\operatorname{Inv}_{a,b}(\phi_m),\qquad h_m(y)=2/g_m(y).gm​=Inva,b​(ϕm​),hm​(y)=2/gm​(y).

Write γn(y)=1/(n+y)\gamma_n(y)=1/(n+y)γn​(y)=1/(n+y) for the Gauss inverse branch. The retained phase set is HN=⋃m<N(hm(1−2β),hm(2β))\mathcal H_N=\bigcup_{m<N}(h_m(1-2\beta),h_m(2\beta))HN​=⋃m<N​(hm​(1−2β),hm​(2β)).

Write x(Y)=Ξ(e+(Y))x(Y)=\Xi(e_+(Y))x(Y)=Ξ(e+​(Y)), Φts(x)=αx,s(t)\Phi^s_t(x)=\alpha_{x,s}(t)Φts​(x)=αx,s​(t) and I(x,s)I(x,s)I(x,s) for its maximal domain. Set Yj=GjXY_j=G^jXYj​=GjX, Z=F(Ym)Z=F(Y_m)Z=F(Ym​), Nm(X)=(Rm(X),Sm(X)1,Sm(X)3)N_m(X)=(R_m(X),S_m(X)_1,S_m(X)_3)Nm​(X)=(Rm​(X),Sm​(X)1​,Sm​(X)3​), and

dm(X)=∑j<mtG(Yj)+T(Ym)+t∗(Z).d_m(X)=\sum_{j<m}t_G(Y_j)+T(Y_m)+t_*(Z).dm​(X)=j<m∑​tG​(Yj​)+T(Ym​)+t∗​(Z).

The six axis frames realize all permutations of the normalized walls and diagonal shears. Write LmL_mLm​ for the frame obtained by mmm swaps followed by the cyclic permutation. The event itinerary Im(X)\mathcal I_m(X)Im​(X) has the following meaning. For j≤mj\le mj≤m, the radius of YjY_jYj​ exceeds two, the entry is an upward unit-wall crossing, its core first return is valid, and its endpoint is e−(F(Yj))e_-(F(Y_j))e−​(F(Yj​)). For j<mj<mj<m the exit radius exceeds four, and the first positive unit-wall hit in the swapped chart reaches e+(Yj+1)e_+(Y_{j+1})e+​(Yj+1​), the reflection of the endpoint at time tG(Yj)t_G(Y_j)tG​(Yj​). The final exit has radius strictly between two and four. In the cycled exit chart its first positive unit-wall hit occurs at t∗(Z)t_*(Z)t∗​(Z), has state S∗(Z)S_*(Z)S∗​(Z) and positive event rate. Finally ⌊X0/2⌋=m+1\lfloor X_0/2\rfloor=m+1⌊X0​/2⌋=m+1.

These data include the positive constraint phase space, the Euclidean distances to the three Taub points, their invariant subspaces, and the pairwise wall products. In the primary frame the squared transverse radius is s2+(b−c)2s^2+(b-c)^2s2+(b−c)2; its weighted form multiplies this by e−8ae^{-8a}e−8a. Orbit saturation is the union of the existing flow images at all times. The frame changes, wall charts, actual arrival branches and core flight times specify the events of each finite era.

Definition code
import Definitions.Def_BianchiIX_Algebra_Flow
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.Tactic.LinearCombination
import Definitions.Def_BianchiIX_Algebra_Flux
import Mathlib.Analysis.SpecialFunctions.Pow.Deriv
import Mathlib.Tactic.FieldSimp
import Definitions.Def_BianchiIX_Dynamics_Normalized
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.ExpDeriv
import Mathlib.Analysis.Calculus.Deriv.MeanValue
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 Definitions.Def_BianchiIX_Dynamics_MaximalFlow
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 Definitions.Def_BianchiIX_Dynamics_AxisSymmetry
import Mathlib.Analysis.Normed.Module.FiniteDimension
import Mathlib.Analysis.Calculus.Deriv.Slope
import Mathlib.Topology.Compactness.Compact
import Mathlib.Analysis.Calculus.ImplicitContDiff
import Mathlib.Analysis.Calculus.InverseFunctionTheorem.ContDiff
import Mathlib.Topology.Compactness.Lindelof
import Mathlib.MeasureTheory.Function.Jacobian
import Mathlib.MeasureTheory.Measure.WithDensity
import Mathlib.Analysis.Calculus.FDeriv.Symmetric
import Mathlib.Tactic.NormNum
import Mathlib.Tactic.Module
import Mathlib.Analysis.SpecialFunctions.Arsinh
import Mathlib.Analysis.Calculus.Deriv.Inv
import Mathlib.Analysis.SpecialFunctions.Arcosh
import Mathlib.MeasureTheory.Integral.IntervalIntegral.FundThmCalculus
import Mathlib.Analysis.Calculus.InverseFunctionTheorem.Deriv
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.Analysis.SpecialFunctions.Log.Basic
import Mathlib.Topology.Instances.Real.Lemmas
import Mathlib.MeasureTheory.Integral.IntervalIntegral.DistLEIntegral
import Mathlib.Tactic.GCongr
import Mathlib.Topology.Order.OrderClosed
import Mathlib.Topology.Order.IntermediateValue
import Mathlib.Analysis.InnerProductSpace.PiL2
import Mathlib.MeasureTheory.Constructions.BorelSpace.Basic
import Mathlib.Analysis.Calculus.ParametricIntervalIntegral
import Mathlib.Topology.Order.Compact
import Mathlib.MeasureTheory.Integral.DominatedConvergence
import Mathlib.Tactic.Positivity
import Mathlib.MeasureTheory.Integral.IntervalIntegral.IntegrationByParts
import Mathlib.Topology.MetricSpace.Thickening
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.Topology.Order.MonotoneConvergence
import Definitions.Def_BianchiIX_Dynamics_AxisMaps
import Definitions.Def_BianchiIX_Dynamics_CoreAngle
import Definitions.Def_BianchiIX_Dynamics_CompactCoreReturn
import Definitions.Def_BianchiIX_EraReturnData
import Mathlib.Analysis.Calculus.FDeriv.Comp
import Mathlib.Algebra.Order.Floor.Ring
import Mathlib.Analysis.Calculus.FDeriv.Mul
import Mathlib.LinearAlgebra.Matrix.ToLin
import Definitions.Def_BianchiIX_Dynamics_ProjectiveState
import Definitions.Def_BianchiIX_Dynamics_ProjectiveRegularity
import Definitions.Def_BianchiIX_Dynamics_Events
import Definitions.Def_BianchiIX_Dynamics_ProjectiveFlowVariation
import Definitions.Def_BianchiIX_Dynamics_ProjectiveReflection
import Definitions.Def_BianchiIX_Dynamics_CoreEntryDifferential
import Definitions.Def_BianchiIX_Dynamics_CoreTail
import Definitions.Def_BianchiIX_Dynamics_CoreReturnDifferential
import Definitions.Def_BianchiIX_TerminalConeData
import Mathlib.Data.List.Induction
import Mathlib.Algebra.BigOperators.Ring.Finset
import Mathlib.MeasureTheory.Measure.Lebesgue.Basic
import Mathlib.Algebra.Order.Floor.Semiring
import Mathlib.MeasureTheory.Constructions.BorelSpace.Metrizable
import Mathlib.MeasureTheory.Function.Floor
import Definitions.Def_BianchiIX_Dynamics_WallEvolution
import Mathlib.Topology.Order.Basic
import Mathlib.Topology.ContinuousOn
import Mathlib.Tactic.ByContra
import Mathlib.Topology.Order.Lattice

section

noncomputable section

namespace BianchiIX

def taubRadiusSq (s b c : ℝ) : ℝ := s ^ 2 + (b - c) ^ 2

def taubRadiusHalfRate (p s n b c : ℝ) : ℝ :=
  s * shearMinus s n b c + (b - c) * (rateTwo p s * b - rateThree p s * c)









end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX









def sectionFluxDensity (p s : ℝ) : ℝ := (shearSq p s - 2 * p) / (2 * |p|)

def correctedSectionFluxDensity (p s a b c : ℝ) : ℝ :=
  sectionFluxDensity p s / (1 + 4 * wallAmplitude a b c)







end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX

open Set

def normalizedTaubRadiusSq (x : NormalizedState) : ℝ := taubRadiusSq (x 1) (x 3) (x 4)

def weightedTaubRadiusSq (x : NormalizedState) : ℝ :=
  normalizedTaubRadiusSq x * Real.exp (-8 * x 2)









end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX

open Set Filter
open scoped Topology

abbrev SectionCoordinates := Fin 3 → ℝ

def mainWallRadicand (h : ℝ) (y : SectionCoordinates) : ℝ :=
  1 - y 0 ^ 2 - curvature h (Real.exp (-y 1)) (Real.exp (-y 2))

def mainWallChartDomain (h : ℝ) : Set SectionCoordinates := {y | 0 < mainWallRadicand h y}

def mainWallChart (h : ℝ) (y : SectionCoordinates) : NormalizedState :=
  ![-Real.sqrt (mainWallRadicand h y), y 0, h, Real.exp (-y 1), Real.exp (-y 2)]

def mainWallCoordinates (x : NormalizedState) : SectionCoordinates :=
  ![x 1, -Real.log (x 3), -Real.log (x 4)]





















def mainWallChartDifferential (h : ℝ) (y : SectionCoordinates) : SectionCoordinates →L[ℝ] NormalizedState :=
  fderiv ℝ (mainWallChart h) y







end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX

open Set

def normalizedOrbitSaturation (S : Set NormalizedState) : Set NormalizedState :=
  {x | ∃ z ∈ S, ∃ t ∈ normalizedMaxDomain z 0, normalizedMaxCurve z 0 t = x}









end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX





def mainWallChartFrame (h : ℝ) (y : SectionCoordinates) : Fin 3 → NormalizedState :=
  fun i => mainWallChartDifferential h y (Pi.single i 1)

def mainWallChartDensity (h : ℝ) (y : SectionCoordinates) : ℝ :=
  correctedSectionFluxDensity (mainWallChart h y 0) (y 0) h (Real.exp (-y 1)) (Real.exp (-y 2))











end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX

def normalizedShears (x : NormalizedState) : Fin 3 → ℝ :=
  ![-2 * x 0, x 0 - Real.sqrt 3 * x 1, x 0 + Real.sqrt 3 * x 1]

def normalizedWalls (x : NormalizedState) : Fin 3 → ℝ := ![x 2, x 3, x 4]





open NormalizedSymmetry in
def axisFrame (i : Fin 6) : NormalizedSymmetry :=
  ![refl, cycle, cycle.trans cycle, swap, cycle.trans swap, (cycle.trans cycle).trans swap] i

def axisOrder (i : Fin 6) : Fin 3 → Fin 3 :=
  ![![0, 1, 2], ![1, 2, 0], ![2, 0, 1], ![0, 2, 1], ![1, 0, 2], ![2, 1, 0]] i



theorem axisOrder_covers : ∀ σ : Equiv.Perm (Fin 3), ∃ i, ∀ j, axisOrder i j = σ j := by decide







/-- Each permutation acts on walls and diagonal shear by exactly the same permutation. -/
def axisPermutation (σ : Equiv.Perm (Fin 3)) : NormalizedSymmetry :=
  axisFrame (axisOrder_covers σ).choose











end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX

open Set Filter
open scoped Topology

def axisWallChart (A : NormalizedSymmetry) (h : ℝ) (y : SectionCoordinates) : NormalizedState :=
  A.map.symm (mainWallChart h y)

def axisWallCoordinates (A : NormalizedSymmetry) (x : NormalizedState) : SectionCoordinates :=
  mainWallCoordinates (A.map x)















def axisWallChartDifferential (A : NormalizedSymmetry) (h : ℝ) (y : SectionCoordinates) :
    SectionCoordinates →L[ℝ] NormalizedState := fderiv ℝ (axisWallChart A h) y







def axisWallChartFrame (A : NormalizedSymmetry) (h : ℝ) (y : SectionCoordinates) : Fin 3 → NormalizedState :=
  fun i => axisWallChartDifferential A h y (Pi.single i 1)





end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX

open Set

def axisSectionTimes (A : NormalizedSymmetry) (h ε : ℝ) (x : NormalizedState) (t₀ T : ℝ) : Set ℝ :=
  {t ∈ Icc t₀ T | A.map (normalizedMaxCurve x t₀ t) 2 = h ∧
    A.map (normalizedMaxCurve x t₀ t) 0 ≤ -ε}





end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX

open Set Filter
open scoped Topology

def axisWallFlowDomain (A : NormalizedSymmetry) (h : ℝ) : Set (SectionCoordinates × ℝ) :=
  {p | p.1 ∈ mainWallChartDomain h ∧ p.2 ∈ normalizedMaxDomain (axisWallChart A h p.1) 0}

def axisWallFlowMap (A : NormalizedSymmetry) (h : ℝ) (p : SectionCoordinates × ℝ) : NormalizedState :=
  normalizedMaxCurve (axisWallChart A h p.1) 0 p.2







end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX

open Set Filter
open scoped Topology

/-- An injective local arrival of the exact flow between two independently chosen axis charts. -/
structure AxisWallArrival (A B : NormalizedSymmetry) (h k t₀ : ℝ) where
  source : Set SectionCoordinates
  time : NormalizedState → ℝ
  map : SectionCoordinates → SectionCoordinates
  isOpen_source : IsOpen source
  source_chart : source ⊆ mainWallChartDomain h
  target_chart : MapsTo map source (mainWallChartDomain k)
  time_mem : ∀ y ∈ source, time (axisWallChart A h y) ∈ normalizedMaxDomain (axisWallChart A h y) t₀
  time_regular : ∀ y ∈ source, ContDiffAt ℝ 1 time (axisWallChart A h y)
  map_regular : ∀ y ∈ source, ContDiffAt ℝ 1 map y
  arrival : ∀ y ∈ source,
    axisWallChart B k (map y) = normalizedMaxCurve (axisWallChart A h y) t₀ (time (axisWallChart A h y))
  injOn : InjOn map source



namespace AxisWallArrival

variable {A B : NormalizedSymmetry} {h k t₀ : ℝ} (P : AxisWallArrival A B h k t₀)



def jacobian (y : SectionCoordinates) : ℝ :=
  mainWallChartDensity k (P.map y) * |(fderiv ℝ P.map y).det| / mainWallChartDensity h y











end AxisWallArrival



end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX

open Set Filter
open scoped Topology

def axisWallArrivalRelation (A B : NormalizedSymmetry) (h k t₀ : ℝ) : Set (SectionCoordinates × ℝ) :=
  {z | z.1 ∈ mainWallChartDomain h ∧ z.2 ∈ normalizedMaxDomain (axisWallChart A h z.1) t₀ ∧
    B.map (normalizedMaxCurve (axisWallChart A h z.1) t₀ z.2) 2 = k ∧
    B.map (normalizedMaxCurve (axisWallChart A h z.1) t₀ z.2) 0 < 0}

def AxisWallArrival.empty (A B : NormalizedSymmetry) (h k t₀ : ℝ) : AxisWallArrival A B h k t₀ where
  source := ∅
  time := fun _ => t₀
  map := id
  isOpen_source := isOpen_empty
  source_chart := empty_subset _
  target_chart := fun _ hy => hy.elim
  time_mem := fun _ hy => hy.elim
  time_regular := fun _ hy => hy.elim
  map_regular := fun _ hy => hy.elim
  arrival := fun _ hy => hy.elim
  injOn := injOn_empty _

/-- The countable branches cover the actual crossing relation, including every admissible time. -/
structure AxisWallArrivalAtlas (A B : NormalizedSymmetry) (h k t₀ : ℝ) where
  branch : ℕ → AxisWallArrival A B h k t₀
  covers : ∀ z ∈ axisWallArrivalRelation A B h k t₀,
    ∃ n, z.1 ∈ (branch n).source ∧ (branch n).time (axisWallChart A h z.1) = z.2



namespace AxisWallArrival

variable {A B : NormalizedSymmetry} {h k t₀ : ℝ} (P : AxisWallArrival A B h k t₀)

def coordinateTime (y : SectionCoordinates) : ℝ := P.time (axisWallChart A h y)







end AxisWallArrival



abbrev AxisWallAtlasFamily {ι : Type*} (A : NormalizedSymmetry) (B : ι → NormalizedSymmetry)
    (h : ℝ) (k : ι → ℝ) (t₀ : ℝ) := ∀ i, AxisWallArrivalAtlas A (B i) h (k i) t₀



end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX

open Set MeasureTheory

def axisFamilyChart {ι : Type*} (B : ι → NormalizedSymmetry) (k : ι → ℝ)
    (z : ι × SectionCoordinates) : NormalizedState := axisWallChart (B z.1) (k z.1) z.2

def axisFamilySection {ι : Type*} (E : ι → Set SectionCoordinates) : Set (ι × SectionCoordinates) :=
  {z | z.2 ∈ E z.1}



def dominantWallChartDomain (h : ℝ) : Set SectionCoordinates :=
  {y | y ∈ mainWallChartDomain h ∧ Real.exp (-y 1) < h ∧ Real.exp (-y 2) < h}









/-- One verified frame for each possible dominant physical axis. -/
def primaryAxisFrame (i : Fin 3) : NormalizedSymmetry := axisPermutation (Equiv.swap 0 i)









end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX

/-- The physical Euclidean distance, distinct from the sup norm on `NormalizedState`. -/
def normalizedEuclideanDistance (x y : NormalizedState) : ℝ :=
  dist (WithLp.toLp 2 x : EuclideanSpace ℝ (Fin 5)) (WithLp.toLp 2 y)

def taubPoint (i : Fin 3) : NormalizedState :=
  ![![-1, 0, 0, 0, 0], ![1 / 2, -Real.sqrt 3 / 2, 0, 0, 0],
    ![1 / 2, Real.sqrt 3 / 2, 0, 0, 0]] i





























end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX

open Set Filter MeasureTheory
open scoped Topology

def physicalPhaseSpace : Set NormalizedState :=
  {x | positiveWalls x ∧ stateConstraint x = 1}







def taubSubspaces : Set NormalizedState :=
  {x | ∃ i : Fin 3, normalizedTaubRadiusSq ((primaryAxisFrame i).map x) = 0}







end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX

/-- The entire forward exact orbit stays at least `ε` from all three Taub points. -/
def normalizedTaubAvoidance (ε : ℝ) (x : NormalizedState) : Prop :=
  ∀ t, 0 ≤ t → t ∈ normalizedMaxDomain x 0 →
    ∀ i, ε ≤ normalizedEuclideanDistance (normalizedMaxCurve x 0 t) (taubPoint i)











end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX

open Set Filter
open scoped Topology

def normalizedWallProduct (x : NormalizedState) : ℝ := x 2 * x 3 * x 4







end BianchiIX

end
end

section

section
noncomputable section
open BianchiIX

private theorem BianchiIX.axisCycle_shears (x : NormalizedState) :
    normalizedShears (axisCycle x) = ![normalizedShears x 1, normalizedShears x 2, normalizedShears x 0] := by
  have hs : (Real.sqrt 3) ^ 2 = 3 := Real.sq_sqrt (by norm_num)
  ext i
  fin_cases i <;> dsimp [normalizedShears, axisCycle] <;> ring_nf <;> norm_num [hs] <;> ring

end
end

section
noncomputable section
open BianchiIX

private theorem BianchiIX.axisSwap_shears (x : NormalizedState) :
    normalizedShears (axisSwap x) = ![normalizedShears x 0, normalizedShears x 2, normalizedShears x 1] := by
  ext i
  fin_cases i <;> dsimp [normalizedShears, axisSwap] <;> ring

end
end

section
noncomputable section
open BianchiIX

private theorem BianchiIX.axisOrder_bijective : ∀ i, Function.Bijective (axisOrder i) := by decide

end
end

section
noncomputable section
open BianchiIX

private theorem BianchiIX.axisFrame_apply (i : Fin 6) (x : NormalizedState) :
    (axisFrame i).map x =
      ![x, axisCycle x, axisCycle (axisCycle x), axisSwap x,
        axisSwap (axisCycle x), axisSwap (axisCycle (axisCycle x))] i := by
  fin_cases i <;> rfl

end
end

section
noncomputable section
open BianchiIX

private theorem BianchiIX.axisFrame_walls (i : Fin 6) (x : NormalizedState) :
    normalizedWalls ((axisFrame i).map x) = fun j => normalizedWalls x (axisOrder i j) := by
  rw [axisFrame_apply]
  fin_cases i <;> ext j <;> fin_cases j <;> rfl

end
end

section
noncomputable section
open BianchiIX

private theorem BianchiIX.axisFrame_shears (i : Fin 6) (x : NormalizedState) :
    normalizedShears ((axisFrame i).map x) = fun j => normalizedShears x (axisOrder i j) := by
  rw [axisFrame_apply]
  fin_cases i
  · ext j
    fin_cases j <;> rfl
  · change normalizedShears (axisCycle x) = _
    rw [axisCycle_shears]
    ext j
    fin_cases j <;> rfl
  · change normalizedShears (axisCycle (axisCycle x)) = _
    simp only [axisCycle_shears]
    ext j
    fin_cases j <;> rfl
  · change normalizedShears (axisSwap x) = _
    rw [axisSwap_shears]
    ext j
    fin_cases j <;> rfl
  · change normalizedShears (axisSwap (axisCycle x)) = _
    simp only [axisSwap_shears, axisCycle_shears]
    ext j
    fin_cases j <;> rfl
  · change normalizedShears (axisSwap (axisCycle (axisCycle x))) = _
    simp only [axisSwap_shears, axisCycle_shears]
    ext j
    fin_cases j <;> rfl

end
end

section
noncomputable section
open BianchiIX

private theorem BianchiIX.normalizedState_ext_shears_walls {x y : NormalizedState}
    (hs : normalizedShears x = normalizedShears y) (hw : normalizedWalls x = normalizedWalls y) : x = y := by
  have h₀ := congrFun hs 0
  have h₁ := congrFun hs 1
  change -2 * x 0 = -2 * y 0 at h₀
  change x 0 - Real.sqrt 3 * x 1 = y 0 - Real.sqrt 3 * y 1 at h₁
  have hx₀ : x 0 = y 0 := by linarith
  have hx₁ : x 1 = y 1 := mul_left_cancel₀ (Real.sqrt_ne_zero'.mpr (by norm_num : (0 : ℝ) < 3))
    (by linarith : Real.sqrt 3 * x 1 = Real.sqrt 3 * y 1)
  ext i
  fin_cases i
  · exact hx₀
  · exact hx₁
  · exact congrFun hw 0
  · exact congrFun hw 1
  · exact congrFun hw 2

end
end

section
noncomputable section
open BianchiIX

private theorem BianchiIX.axisFrame_comp (i j : Fin 6) :
    ∃ k : Fin 6, ∀ x : NormalizedState,
      (axisFrame i).map ((axisFrame j).map x) = (axisFrame k).map x := by
  let σ : Equiv.Perm (Fin 3) := Equiv.ofBijective (axisOrder i) (axisOrder_bijective i)
  let τ : Equiv.Perm (Fin 3) := Equiv.ofBijective (axisOrder j) (axisOrder_bijective j)
  obtain ⟨k, hk⟩ := axisOrder_covers (σ.trans τ)
  refine ⟨k, fun x => normalizedState_ext_shears_walls ?_ ?_⟩
  · ext l
    simp only [axisFrame_shears, hk]
    rfl
  · ext l
    simp only [axisFrame_walls, hk]
    rfl

end
end


noncomputable section

namespace BianchiIX

/-- Original time spent in the first `m` nonterminal core-reflection passages. -/
def corePrefixTime (m : ℕ) (X : CoreAngleState) : ℝ :=
  ∑ j ∈ Finset.range m, coreReflectionTime ((coreReflectionState coreRadiusReturnTime)^[j] X)

def corePrefixFrame : ℕ → Fin 6
  | 0 => 0
  | m + 1 => (axisFrame_comp 3 (corePrefixFrame m)).choose







end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX

/-- The full original time includes every reflection, the last downward core, and the terminal connection. -/
def eraReturnTime (η : ℝ) (J m : ℕ) (X : CoreAngleState) : ℝ :=
  terminalNaturalTime η J (eraCoreExit m X) +
    (coreRadiusReturnTime ((coreReflectionState coreRadiusReturnTime)^[m] X) + corePrefixTime m X)

def eraReturnFrame (m : ℕ) : Fin 6 := (axisFrame_comp 1 (corePrefixFrame m)).choose





end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX

open Set

/-- A finite block of actual first core returns, followed by its first terminal connection. -/
structure EraEventItinerary (η : ℝ) (J m : ℕ) (X : CoreAngleState) : Prop where
  core : ∀ j ≤ m,
    let Y := (coreReflectionState coreRadiusReturnTime)^[j] X
    2 < Y 0 ∧
      (projectiveActiveWall (fromProjectiveState (coreRadiusEntry Y)) = 1 ∧
        0 < normalizedEventRate projectiveActiveWall (fromProjectiveState (coreRadiusEntry Y)) 0 0) ∧
      coreRadiusReturnValid Y ∧
      coreTailEntry (coreReturnState coreRadiusReturnTime Y) =
        projectiveOriginalFlow (coreRadiusEntry Y) 0 (coreRadiusReturnTime Y)
  reflection : ∀ j < m,
    let Y := (coreReflectionState coreRadiusReturnTime)^[j] X
    let Z := coreReturnState coreRadiusReturnTime Y
    let x := axisSwap (fromProjectiveState (coreTailEntry Z))
    4 < Z 0 ∧
      IsLeast {t : ℝ | 0 < t ∧ t ∈ normalizedMaxDomain x 0 ∧
        projectiveActiveWall (normalizedMaxCurve x 0 t) = 1} (reflectionReturnTime Z) ∧
      toProjectiveState (normalizedMaxCurve x 0 (reflectionReturnTime Z)) =
        coreRadiusEntry ((coreReflectionState coreRadiusReturnTime)^[j + 1] X) ∧
      coreRadiusEntry ((coreReflectionState coreRadiusReturnTime)^[j + 1] X) =
        projectiveReflection (projectiveOriginalFlow (coreRadiusEntry Y) 0 (coreReflectionTime Y))
  terminal :
    let Z := eraCoreExit m X
    let x := axisCycle (fromProjectiveState (coreTailEntry Z))
    let T := terminalNaturalTime η J Z
    (2 < Z 0 ∧ Z 0 < 4) ∧
      IsLeast {t : ℝ | 0 < t ∧ t ∈ normalizedMaxDomain x 0 ∧
        projectiveActiveWall (normalizedMaxCurve x 0 t) = 1} T ∧
      toProjectiveState (normalizedMaxCurve x 0 T) = terminalNaturalState η J Z ∧
      terminalNaturalState η J Z 2 = 1 ∧
      0 < normalizedEventRate projectiveActiveWall x 0 T
  count : Nat.floor (X 0 / 2) = m + 1







end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX

open Set Filter
open scoped Topology

def WallProductDecay (x : NormalizedState) : Prop :=
  ∀ i j : Fin 3, i ≠ j → Tendsto
    (fun t => wallValue i (normalizedMaxCurve x 0 t) * wallValue j (normalizedMaxCurve x 0 t))
      atTop (𝓝 0)





end BianchiIX

end
end

section

noncomputable section

namespace BianchiIX

open Filter
open scoped Topology

/-- Brehm's delta for the complementary wall pair. -/
def brehmPairDelta (x : NormalizedState) (i j : Fin 3) : ℝ :=
  2 * Real.sqrt |wallValue i x * wallValue j x|



/-- The delta-decay consequence of Brehm's Section 6 local and Bianchi IX global
attractor theorems (2016, arXiv:1606.08058). The source uses the same coordinates
and singularity-directed time as `normalizedField`; see its unpacked
Wainwright-Hsu equations and the definitions of the Taub spaces in Section 2.
For positive walls, the excluded spaces are exactly `taubSubspaces`.
This proposition is an explicit literature parameter, not a project axiom.
It asserts no era coding, statistical conclusion, or transverse nullity. -/
def Literature.BrehmIXAttractorInput : Prop :=
  ∀ x : NormalizedState, x ∈ physicalPhaseSpace → x ∉ taubSubspaces →
    ∀ i j : Fin 3, i ≠ j → Tendsto
      (fun t => brehmPairDelta (normalizedMaxCurve x 0 t) i j) atTop (𝓝 0)



end BianchiIX

end
end
Source
https://github.com/l46430640-del/ERA-STATISTICS-FORMAL/tree/d74c241819f896ab8d050b21ace80c8e90eabd9e/BianchiIX

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