Symplectic paths with vanishing end derivatives define nondegenerate loops
ProvedCauchyRiemannIndex.symLoop_of_symplecticPath_familyLet be continuous, , such that each is differentiable with derivative , and is continuous. Assume that for every
and that is not an eigenvalue of . Put
where . Then is continuous, every is a continuous -periodic loop of symmetric matrices whose asymptotic operator is nondegenerate, and every fundamental solution of (, on ) coincides with on .
This is the passage from nondegenerate symplectic arcs to asymptotic operators on the trivial bundle (Wendl, Lecture 3, §3.4): a family of arcs that are and flat at the endpoints is realized, continuously in the parameter, as the family of time- fundamental solutions of nondegenerate asymptotic operators.
Formalization Note. is Mat n (real matrices indexed by Fin n ⊕ Fin n) and is Matrix.J. The family is given by φ φ' : unitInterval → ℝ → Mat n with joint continuity of fun p => φ p.1 p.2 and fun p => φ' p.1 p.2, HasDerivAt (φ s) (φ' s t) t for all , IsSymplectic (φ s t) for , φ s 0 = 1, φ' s 0 = 0, φ' s 1 = 0 and (1 - φ s 1).det ≠ 0. The loops are the slices of H : C(unitInterval × ℝ, Mat n) with H (s, t) = J₀ n * φ' s (Int.fract t) * J₀ n * (φ s (Int.fract t))ᵀ * J₀ n; the conclusion asserts IsSymLoop, IsNondegenerate, and Ψ t = φ s t on for every Ψ with IsFundamentalSolution (fun t => H (s, t)) Ψ.
import Definitions.Def_CauchyRiemannIndex_Setting import Mathlib.Analysis.Calculus.ContDiff.Basic
namespace CauchyRiemannIndex
open MeasureTheory Matrix Filter Topology
open scoped ENNReal NNReal ContDiff RealInnerProductSpace
/-- A continuous family of `C¹` paths in `Sp(2n)` on `[0, 1]`, starting at `Id` with vanishing
end derivatives and without eigenvalue `1` at time `1`, defines through
`t ↦ J₀ φ'(fract t) J₀ φ(fract t)ᵀ J₀ = -J₀ φ'(fract t) φ(fract t)⁻¹` a continuous family of
nondegenerate loops of symmetric matrices whose fundamental solutions are the given paths on
`[0, 1]`. -/
theorem symLoop_of_symplecticPath_family (n : ℕ) (φ φ' : unitInterval → ℝ → Mat n)
(hφ : Continuous fun p : unitInterval × ℝ => φ p.1 p.2)
(hφ' : Continuous fun p : unitInterval × ℝ => φ' p.1 p.2)
(hd : ∀ s t, HasDerivAt (φ s) (φ' s t) t)
(hs : ∀ s, ∀ t ∈ Set.Icc (0 : ℝ) 1, IsSymplectic (φ s t))
(h0 : ∀ s, φ s 0 = 1) (hd0 : ∀ s, φ' s 0 = 0) (hd1 : ∀ s, φ' s 1 = 0)
(hn : ∀ s, (1 - φ s 1).det ≠ 0) :
∃ H : C(unitInterval × ℝ, Mat n),
(∀ s t, H (s, t) = J₀ n * φ' s (Int.fract t) * J₀ n * (φ s (Int.fract t))ᵀ * J₀ n) ∧
∀ s, IsSymLoop (fun t => H (s, t)) ∧ IsNondegenerate (fun t => H (s, t)) ∧
∀ Ψ, IsFundamentalSolution (fun t => H (s, t)) Ψ → ∀ t ∈ Set.Icc (0 : ℝ) 1, Ψ t = φ s t := by
sorry
end CauchyRiemannIndex