An extremal angle displacement of the fundamental solution equal to 2πk gives an eigenvalue of winding k
ProvedFiniteEnergyPlane.exists_isLoopEigen_hasLoopEigenWind_of_extremal_angleLet be a -periodic loop of symmetric matrices, , , and the fundamental solution of . Identify with . Suppose for , and let be functions, continuous in , with , for all , and continuous. Let and with , and suppose that is the maximum, or the minimum, of over . Then is an eigenvalue of all of whose eigenfunctions have winding number , and it has an eigenfunction with .
The function is the angle swept in one period by the solution of starting at . The statement identifies eigenvalues of a given winding number from extremal values of this displacement.
Formalization Note Eigenfunctions are IsLoopEigen Sinf μ, and "every eigenfunction of has winding " is HasLoopEigenWind Sinf μ k; the identification with is vecToC; the max/min hypothesis is (∀ β, θ β 1 - β ≤ 2 * π * k) ∨ (∀ β, 2 * π * k ≤ θ β 1 - β).
import Definitions.Def_FiniteEnergyPlane_Winding
namespace FiniteEnergyPlane
open Filter Topology
open scoped Real ContDiff
/-- Let `Ψ` be the fundamental solution of `S∞ + μ` and `θ α t` continuous arguments of
`Ψ(t) e^{iα}` with `θ α 0 = α`, continuous in `α` at `t = 1`. If the angle displacement
`θ α₀ 1 - α₀` equals `2πk` and `2πk` is the maximum or the minimum of `β ↦ θ β 1 - β`, then
`μ` is an eigenvalue of winding `k`, with an eigenfunction `e` satisfying `e 0 = e^{iα₀}`. -/
theorem exists_isLoopEigen_hasLoopEigenWind_of_extremal_angle (Sinf : ℝ → CauchyRiemannIndex.Mat 1) (hSinf : CauchyRiemannIndex.IsSymLoop Sinf)
(hSinf' : ∀ i j, ContDiff ℝ ∞ (fun t => Sinf t i j)) (μ : ℝ)
(Ψ : ℝ → CauchyRiemannIndex.Mat 1)
(hΨ : CauchyRiemannIndex.IsFundamentalSolution
(fun t => Sinf t + μ • (1 : CauchyRiemannIndex.Mat 1)) Ψ)
(θ : ℝ → ℝ → ℝ)
(hne : ∀ (t : ℝ) (v : CauchyRiemannIndex.Vec 1), v ≠ 0 → Matrix.toEuclideanLin (Ψ t) v ≠ 0)
(hθc : ∀ α, Continuous (θ α)) (hθ0 : ∀ α, θ α 0 = α)
(hrep : ∀ (α : ℝ) (v : CauchyRiemannIndex.Vec 1), vecToC v = Complex.exp (α * Complex.I) →
∀ t, vecToC (Matrix.toEuclideanLin (Ψ t) v) =
(‖vecToC (Matrix.toEuclideanLin (Ψ t) v)‖ : ℂ) * Complex.exp (θ α t * Complex.I))
(hD : Continuous fun α => θ α 1) (k : ℤ) (α₀ : ℝ) (hα : θ α₀ 1 - α₀ = 2 * π * k)
(hext : (∀ β, θ β 1 - β ≤ 2 * π * k) ∨ (∀ β, 2 * π * k ≤ θ β 1 - β)) :
∃ e, IsLoopEigen Sinf μ e ∧ HasLoopEigenWind Sinf μ k ∧
vecToC (e 0) = Complex.exp (α₀ * Complex.I) := by
sorry
end FiniteEnergyPlane