Reference phase and radial slope on both signed shear annuli
ProvedBianchiIX.exists_restartFastShearProjectionPhase_approximationbianchi-ix-era-statisticsdynamical-systems
Write 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. For small fix before choosing . If , , , the cutoff exists with positive height for either shear sign. Let be the projected reciprocal core phase there. The phase is differentiable, with , , and .
Preamble
import Definitions.Def_BianchiIX_Algebra_Flow import Definitions.Def_BianchiIX_Dynamics_Normalized import Definitions.Def_BianchiIX_Algebra_Projective import Definitions.Def_BianchiIX_SectionRestartData import Definitions.Def_BianchiIX_Algebra_Coordinates import Definitions.Def_BianchiIX_Algebra_CoreAngle import Definitions.Def_BianchiIX_Dynamics_ProjectiveState import Definitions.Def_BianchiIX_Algebra_MatchingPhase import Definitions.Def_BianchiIX_Dynamics_MaximalFlow import Definitions.Def_BianchiIX_Dynamics_FlowRegularity import Definitions.Def_BianchiIX_Dynamics_FlowDifferential import Definitions.Def_BianchiIX_RadialTransportData 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.Analysis.SpecialFunctions.Pow.Asymptotics import Mathlib.Tactic.Positivity import Mathlib.Topology.MetricSpace.Thickening 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
Formal statement
theorem BianchiIX.exists_restartFastShearProjectionPhase_approximation :
∃ hstar > (0 : ℝ), ∀ h ∈ Ioc (0 : ℝ) hstar,
∃ K > (0 : ℝ), ∀ q P : ℝ, 2 < q → 2 < P →
∃ astar > (0 : ℝ), ∀ a ∈ Ioc (0 : ℝ) astar,
∀ ε σ n₂ n₃ : ℝ, (0 ≤ ε ∧ ε ≤ 1 / 64) → |σ| = 1 →
(0 ≤ n₂ ∧ n₂ ≤ 2 * ε * a) → (0 ≤ n₃ ∧ n₃ ≤ 2 * ε * a) → n₃ ≤ a ^ P →
∀ ρ ∈ Icc a (2 * a),
let T := q / 2 * Real.log (1 / a)
T ∈ normalizedMaxDomain (restartSectionChart h (restartShearCurve σ n₂ n₃ ρ)) 0 ∧
0 < restartFastShearHeight h T σ n₂ n₃ ρ ∧
DifferentiableAt ℝ (restartFastShearProjectionPhase h T σ n₂ n₃) ρ ∧
|restartFastShearProjectionPhase h T σ n₂ n₃ ρ -
restartReferenceRadialPhase h (restartShearCurve σ n₂ n₃ ρ)| ≤ K * a ^ 2 ∧
|deriv (restartFastShearProjectionPhase h T σ n₂ n₃) ρ -
deriv (fun t => restartReferenceRadialPhase h (restartShearCurve σ n₂ n₃ t)) ρ| ≤ K * a ∧
1 / (4 * Real.sqrt 3) ≤ deriv (restartFastShearProjectionPhase h T σ n₂ n₃) ρ ∧
deriv (restartFastShearProjectionPhase h T σ n₂ n₃) ρ ≤ 2 / Real.sqrt 3 + 1 := by sorry
Source