The Hamiltonian flow on a star-shaped level is a time change of the Reeb flow, also on the contact structure
ProvedFiniteEnergyPlane.hamiltonianFlow_reeb_timeChangeLet have a strictly star-shaped level , with Liouville form , Hamiltonian vector field , Reeb field of and contact structure . Let be a trajectory of , and let be the linearized flow of along (, ). Let be a periodic Reeb orbit with , let be the linearized Reeb flow along , and put
Then for every :
- ;
- for every , , where is the projection onto along the Reeb field.
So the trajectory of is the Reeb orbit traversed with the time change , and on the two linearized flows agree after this time change. This lets the Conley–Zehnder index of an orbit, computed from the linearized Hamiltonian flow on , be compared with quantities defined from the Reeb flow, such as the asymptotic operator.
Formalization Note The setting is FiniteEnergyPlane on V n. is hamVF H, is liouville y w, is reeb H, is piXi H, and is IsInXi H y v. The trajectory is given by HasDerivAt x (hamVF H (x t)) t and x t ∈ energySurface H; by Y 0 = id and HasDerivAt Y ((fderiv ℝ (hamVF H) (x t)).comp (Y t)) t; by IsLinReebFlow Q Φ.
import Definitions.Def_FiniteEnergyPlane_Winding open FiniteEnergyPlane
/-- On a strictly star-shaped level `S = H⁻¹(1)`, let `x` be a trajectory of `X_H` in `S`, `Y` the
linearized flow of `X_H` along `x`, `Q` a periodic Reeb orbit with `Q(0) = x(0)` and `Φ` the
linearized Reeb flow along `Q`. With `σ(t) = ∫₀ᵗ λ₀(X_H(x(s))) ds`, for all `t`: `Q(σ(t)) = x(t)`,
and for `v ∈ ξ_{x(0)}` the projection of `Y(t) v` to `ξ_{x(t)}` along the Reeb field is
`Φ(σ(t)) v`. -/
theorem FiniteEnergyPlane.hamiltonianFlow_reeb_timeChange {n : ℕ} (H : V n → ℝ)
(hH : IsStrictlyStarShapedLevel H) (x : ℝ → V n)
(hx : ∀ t, HasDerivAt x (hamVF H (x t)) t) (hxS : ∀ t, x t ∈ energySurface H)
(Q : ReebOrbit H) (h0 : Q.x 0 = x 0)
(Y : ℝ → V n →L[ℝ] V n) (hY0 : Y 0 = ContinuousLinearMap.id ℝ (V n))
(hY : ∀ t, HasDerivAt Y ((fderiv ℝ (hamVF H) (x t)).comp (Y t)) t)
(Φ : ℝ → V n →L[ℝ] V n) (hΦ : IsLinReebFlow Q Φ) :
let σ : ℝ → ℝ := fun t => ∫ s in (0 : ℝ)..t, liouville (x s) (hamVF H (x s))
∀ t : ℝ, Q.x (σ t) = x t ∧
∀ v : V n, IsInXi H (x 0) v → piXi H (x t) (Y t v) = Φ (σ t) v := by sorry