Shear entry data up to and including the incoming unit wall
ProvedBianchiIX.exists_restartShearPartialCore_radial_dataWrite 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. Take , , , and . For universal and sufficiently small , assume . The initial radicand and cutoff height are positive; , exists. is differentiable in the core region, , and either or with . The angle and . One has , , . The derivatives of have absolute value at most times the respective amplitudes.
import Definitions.Def_BianchiIX_Algebra_Flow import Definitions.Def_BianchiIX_Dynamics_Normalized import Definitions.Def_BianchiIX_Algebra_Projective import Definitions.Def_BianchiIX_Algebra_CoreAngle import Definitions.Def_BianchiIX_SectionRestartData import Definitions.Def_BianchiIX_Dynamics_ProjectiveState import Definitions.Def_BianchiIX_RadialTransportData import Definitions.Def_BianchiIX_Dynamics_MaximalFlow import Definitions.Def_BianchiIX_Dynamics_CoreAngle import Definitions.Def_BianchiIX_Dynamics_FlowRegularity import Definitions.Def_BianchiIX_Dynamics_FlowDifferential import Definitions.Def_BianchiIX_Dynamics_CoreEntry import Definitions.Def_BianchiIX_ShearTransportData 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 import Mathlib.Topology.Instances.Real.Lemmas import Mathlib.MeasureTheory.Integral.IntervalIntegral.DistLEIntegral import Mathlib.Analysis.Calculus.Deriv.Slope import Mathlib.Topology.Order.OrderClosed import Mathlib.Analysis.SpecialFunctions.Pow.Continuity import Mathlib.Topology.MetricSpace.Thickening noncomputable section open BianchiIX open Set
theorem BianchiIX.exists_restartShearPartialCore_radial_data :
∃ hstar > (0 : ℝ), ∃ K ≥ (1 : ℝ), ∀ h ∈ Ioc (0 : ℝ) hstar,
∀ q P : ℝ, 3 < q → 4 < P → ∃ astar > (0 : ℝ), ∀ a ∈ Ioc (0 : ℝ) astar,
∀ ε n₂ n₃ : ℝ, (0 ≤ ε ∧ ε ≤ 1 / 64) →
(0 ≤ n₂ ∧ n₂ ≤ 2 * ε * a) → (0 ≤ n₃ ∧ n₃ ≤ 2 * ε * a) →
n₃ ≤ a ^ P → ∀ ρ ∈ Icc a (2 * a),
let s := q / 2 * Real.log (1 / a)
let Y := restartFastShearProjectiveEntry h s 1 n₂ n₃
let k := restartFastShearCoreRadius h s 1 n₂ n₃
let z := restartFastShearCoreAngle h s 1 n₂ n₃
1 ≤ Y ρ 2 →
a ≤ 1 ∧ 0 ≤ s ∧ 0 < restartSectionRadicand h (restartShearCurve 1 n₂ n₃ ρ) ∧
s ∈ normalizedMaxDomain (restartSectionChart h (restartShearCurve 1 n₂ n₃ ρ)) 0 ∧
0 < restartFastShearHeight h s 1 n₂ n₃ ρ ∧ DifferentiableAt ℝ Y ρ ∧
6 ≤ k ρ ∧ coreRegion (k ρ) (Y ρ) ∧
(1 < Y ρ 2 ∨ (Y ρ 2 = 1 ∧ 1 ≤ Y ρ 0)) ∧ z ρ ≤ 0 ∧
Y ρ 1 + Y ρ 2 * Y ρ 3 ≤ 1 / k ρ ∧
2 / (K * a) ≤ k ρ ∧ k ρ ≤ K / a ∧ |deriv k ρ| ≤ K / a ^ 2 ∧
1 / (4096 * a ^ 2) ≤ -deriv k ρ ∧
|deriv (fun r => Y r 1) ρ| ≤ K * Y ρ 1 / a ∧
|deriv (fun r => Y r 2 * Y r 3) ρ| ≤ K * (Y ρ 2 * Y ρ 3) / a ∧
|deriv z ρ| ≤ K / a := by sorry