Tube coordinates near a periodic Reeb orbit for maps converging up to a drifting phase
ProvedFiniteEnergyPlane.exists_reebTube_coords_of_driftLet be a strictly star-shaped level with contact planes , a periodic Reeb orbit on and . Let be smooth on , take values in for , be -periodic in , and suppose that for every and there is such that for every some satisfies for all and all . Then there are functions , and constants , such that
- is smooth for large , and each of its derivatives of order tends to as , uniformly in ;
- in , uniformly in ;
- for all and all : , , , and .
These are tube coordinates (position along the orbit, normal component) for a map that approaches the orbit only up to an -dependent phase, as happens for an end of a finite-energy curve before one knows that the phase converges.
Formalization Note proj H is the radial projection onto , IsInXi H x v means , derivatives are iteratedFDeriv ℝ on , is the map , and convergence is TendstoZeroCInfty (smooth on some , every derivative tends to uniformly in ). Norms on are sup norms.
import Definitions.Def_FiniteEnergyPlane_Asymptotics
namespace FiniteEnergyPlane
open MeasureTheory Metric Filter Topology
open scoped ContDiff ENNReal Real
/-- Tube coordinates around a periodic Reeb orbit `P = (x, T)` on a strictly star-shaped level `S`,
for maps that approach the orbit up to an `s`-dependent phase. Let `w(s, t) ∈ S` (for `s > s₀`) be
smooth on `(s₀, ∞) × ℝ` and `1`-periodic in `t`, and suppose that for every `m` and `η > 0`, for
all large `s` there is a phase `c'` with the derivatives of order `≤ m` of `w - x(εTt + c')` at
`(s, t)` at most `η` for all `t`. Then for `s ≥ s₁` the map `w` is written as
`w = proj H (x(τ) + h)` with `h ∈ ξ_{x(τ)}`, where `τ(s, t + 1) = τ(s, t) + εT`, `h` is
`1`-periodic, `τ - εTt` is smooth for large `s` with every derivative of order `≥ 1` tending to `0`
uniformly in `t`, `h → 0` in `C^∞`, and `‖w - x(τ)‖ ≤ K ‖h‖`. -/
theorem exists_reebTube_coords_of_drift {n : ℕ} (H : V n → ℝ) (hH : IsStrictlyStarShapedLevel H)
(P : ReebOrbit H) (ε : ℝ) (hε : ε = 1 ∨ ε = -1) (w : ℝ × ℝ → V n) (s₀ : ℝ)
(hwsm : ContDiffOn ℝ ∞ w (Set.Ioi s₀ ×ˢ Set.univ))
(hwS : ∀ s > s₀, ∀ t : ℝ, H (w (s, t)) = 1)
(hwper : ∀ s t : ℝ, w (s, t + 1) = w (s, t))
(hw : ∀ m : ℕ, ∀ η > 0, ∃ s₁ : ℝ, ∀ s ≥ s₁, ∃ c' : ℝ, ∀ j ≤ m, ∀ t : ℝ,
‖iteratedFDeriv ℝ j (fun p : ℝ × ℝ => w p - P.x (ε * P.T * p.2 + c')) (s, t)‖ ≤ η) :
∃ (τ : ℝ × ℝ → ℝ) (h : ℝ × ℝ → V n) (s₁ K : ℝ),
(∃ s₂ : ℝ, ContDiffOn ℝ ∞ (fun p : ℝ × ℝ => τ p - ε * P.T * p.2) (Set.Ioi s₂ ×ˢ Set.univ)) ∧
(∀ m : ℕ, 1 ≤ m → ∀ η > 0, ∃ s₂ : ℝ, ∀ s ≥ s₂, ∀ t : ℝ,
‖iteratedFDeriv ℝ m (fun p : ℝ × ℝ => τ p - ε * P.T * p.2) (s, t)‖ ≤ η) ∧
TendstoZeroCInfty h ∧
∀ s ≥ s₁, ∀ t : ℝ,
τ (s, t + 1) = τ (s, t) + ε * P.T ∧ h (s, t + 1) = h (s, t) ∧
IsInXi H (P.x (τ (s, t))) (h (s, t)) ∧ w (s, t) = proj H (P.x (τ (s, t)) + h (s, t)) ∧
‖w (s, t) - P.x (τ (s, t))‖ ≤ K * ‖h (s, t)‖ := by
sorry
end FiniteEnergyPlane