Control of signed shear data and wall-relative derivatives at the fast cutoff
ProvedBianchiIX.exists_restartShearFastEntry_controlWrite for the normalized vacuum Bianchi IX flow and for the constraint-one, negative-first-shear chart with primary wall and center coordinates (second shear and the other two walls). At time , denote its primary wall by and center by . Set . For define , , , and . On a shear annulus take , , , , , and . A signed annulus uses , . Here is sufficiently small and is sufficiently small thereafter. Primes are ordinary radial derivatives with labels and cutoff fixed. There exist , such that for , , and both signed families reach the cutoff on constraint one with positive chart radicand, first shear at most , , , . The strong wall is in , and . The radial tangent is the section differential in direction , has norm at most two, and . Each weak amplitude stays in and .
import Definitions.Def_BianchiIX_Algebra_Flow import Definitions.Def_BianchiIX_Dynamics_Normalized import Definitions.Def_BianchiIX_SectionRestartData import Definitions.Def_BianchiIX_Dynamics_WallEvolution import Definitions.Def_BianchiIX_RadialTransportData import Definitions.Def_BianchiIX_Dynamics_MaximalFlow import Mathlib.Analysis.Calculus.ContDiff.Operations import Mathlib.Analysis.Calculus.MeanValue import Mathlib.Analysis.Calculus.Deriv.Prod import Mathlib.Analysis.Normed.Module.FiniteDimension import Mathlib.Topology.Order.Compact import Mathlib.Tactic.NormNum 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.Data.Fin.VecNotation import Mathlib.Tactic.FinCases import Mathlib.Tactic.FunProp import Mathlib.Analysis.SpecialFunctions.Sqrt import Mathlib.Analysis.Calculus.Deriv.Inv import Mathlib.Tactic.FieldSimp import Mathlib.Analysis.SpecialFunctions.Log.Deriv import Mathlib.Analysis.SpecialFunctions.ExpDeriv import Mathlib.Analysis.Calculus.ContDiff.Comp import Mathlib.Analysis.Calculus.Deriv.Comp import Mathlib.Analysis.SpecialFunctions.Pow.Deriv import Mathlib.Analysis.SpecialFunctions.Integrals.Basic import Mathlib.Analysis.ODE.ExistUnique import Mathlib.Analysis.SpecialFunctions.Arsinh import Mathlib.Tactic.LinearCombination import Mathlib.Analysis.SpecialFunctions.Arcosh import Mathlib.MeasureTheory.Integral.IntervalIntegral.FundThmCalculus import Mathlib.Analysis.Calculus.InverseFunctionTheorem.Deriv import Mathlib.Analysis.Calculus.Deriv.MeanValue import Mathlib.Analysis.Calculus.FDeriv.Partial import Mathlib.Analysis.SpecificLimits.Basic import Mathlib.Analysis.SpecialFunctions.Pow.Real import Mathlib.Analysis.ODE.Gronwall import Mathlib.Topology.Order.IntermediateValue import Mathlib.Analysis.Calculus.FDeriv.Symmetric import Mathlib.Analysis.Calculus.ContDiff.Deriv import Mathlib.Tactic.GCongr import Mathlib.Tactic.Positivity import Mathlib.Analysis.SpecialFunctions.Pow.Asymptotics import Mathlib.Analysis.Calculus.Deriv.Pi import Mathlib.Analysis.Calculus.ParametricIntervalIntegral import Mathlib.MeasureTheory.Integral.DominatedConvergence noncomputable section open BianchiIX open Set Filter open scoped Topology
theorem BianchiIX.exists_restartShearFastEntry_control :
∃ C ≥ (32 : ℝ), ∃ hstar > (0 : ℝ), ∀ h ∈ Ioc (0 : ℝ) hstar,
∀ q : ℝ, 2 < q → ∃ astar > (0 : ℝ), ∀ a ∈ Ioc (0 : ℝ) astar,
∀ ε σ n₂ n₃ : ℝ, (0 ≤ ε ∧ ε ≤ 1 / 64) → |σ| = 1 →
(0 ≤ n₂ ∧ n₂ ≤ 2 * ε * a) → (0 ≤ n₃ ∧ n₃ ≤ 2 * ε * a) → ∀ ρ ∈ Icc a (2 * a),
let T := q / 2 * Real.log (1 / a)
let Z := restartShearCurve σ n₂ n₃ ρ
let x := normalizedMaxCurve (restartSectionChart h Z) 0 T
let p := restartSectionRadialState h T Z
let v := fderiv ℝ (restartSectionRadialState h T) Z (restartShearDirection σ)
a ≤ 1 ∧ 8 * a ≤ 1 / 16 ∧ 0 ≤ T ∧ 0 < restartSectionRadicand h Z ∧
T ∈ normalizedMaxDomain (restartSectionChart h Z) 0 ∧ stateConstraint x = 1 ∧ x 0 ≤ -(15 / 16) ∧
HasDerivAt (fun y => restartSectionRadialState h T (restartShearCurve σ n₂ n₃ y)) v ρ ∧
0 < p.1 ∧ p.1 ≤ h * a ^ q ∧
(3 * a / 4 ≤ σ * p.2 0 ∧ σ * p.2 0 ≤ 9 * a / 4) ∧ ‖p.2‖ ≤ 8 * a ∧
‖v‖ ≤ 2 ∧ |v.1| ≤ 2 * p.1 / a ∧
∀ i : Fin 2, Z i.succ / 2 ≤ p.2 i.succ ∧ p.2 i.succ ≤ 2 * Z i.succ ∧
|v.2 i.succ| ≤ 8 * C * p.2 i.succ / a := by sorry