Smooth functions on the cylinder with prescribed asymptotic loops e^{2πiat}, e^{2πibt} and |a − b| zeros in normal form
ProvedCauchyRiemannIndex.exists_antilinear_profileLet . There exist a smooth function , -periodic in (so a function on the cylinder ), finite sets and a radius such that:
- the derivative is bounded on ;
- as and as , uniformly in , and there are and with whenever ;
- , and if and only if for some and ;
- every satisfies , and for with (identifying with )
- if then and ; if then and .
This supplies, for every pair of integers, an antilinear zeroth-order term on the cylinder whose zeros have the normal form required for Cauchy–Riemann operators with a large antilinear perturbation, and whose asymptotic loops are the model loops , ; it is used to build reference operators with prescribed asymptotic Conley–Zehnder indices.
Formalization Note Points of the cylinder are pairs (s, t) : ℝ × ℝ with β (s, t + 1) = β (s, t); the derivative bound is ‖fderiv ℝ β x‖ ≤ C for all x; smoothness is ContDiff ℝ ∞ β; the normal forms are stated as β (ζ.1 + z.re, ζ.2 + z.im) = z (resp. starRingEnd ℂ z) for ‖z‖ < r; the end loops are written Complex.exp (2 * Real.pi * a * t * Complex.I).
import Definitions.Def_CauchyRiemannIndex_Setting import Mathlib.Analysis.Calculus.ContDiff.Basic
namespace CauchyRiemannIndex
open MeasureTheory Matrix Filter Topology
open scoped ENNReal NNReal ContDiff RealInnerProductSpace
/-- For all integers `a` and `b` there is a smooth function `β : ℝ × S¹ → ℂ` with bounded
derivative such that `β(s, t) → e^{2πiat}` as `s → +∞` and `β(s, t) → e^{2πibt}` as `s → -∞`,
uniformly in `t`, with `c ≤ |β| ≤ 1/c` for large `|s|`, whose zeros (mod `t ↦ t + 1`) are the finite
sets `Z⁺ ∪ Z⁻` inside the band `|s| < 1`, and with the normal forms `β(ζ + z) = z` (`ζ ∈ Z⁺`) and
`β(ζ + z) = z̄` (`ζ ∈ Z⁻`) on discs of radius `r`. If `b ≤ a` then `Z⁻ = ∅` and `#Z⁺ = a - b`;
if `a ≤ b` then `Z⁺ = ∅` and `#Z⁻ = b - a`. -/
theorem exists_antilinear_profile (a b : ℤ) :
∃ (β : ℝ × ℝ → ℂ) (Zplus Zminus : Finset (ℝ × ℝ)) (r : ℝ),
ContDiff ℝ ∞ β ∧ (∀ s t, β (s, t + 1) = β (s, t)) ∧
(∃ C : ℝ, ∀ x, ‖fderiv ℝ β x‖ ≤ C) ∧
(∃ (R c : ℝ), 0 < c ∧ ∀ s t, R ≤ |s| → c ≤ ‖β (s, t)‖ ∧ ‖β (s, t)‖ ≤ 1 / c) ∧
(∀ ε > 0, ∃ R : ℝ, ∀ s t,
(R ≤ s → ‖β (s, t) - Complex.exp (2 * Real.pi * a * t * Complex.I)‖ ≤ ε) ∧
(s ≤ -R → ‖β (s, t) - Complex.exp (2 * Real.pi * b * t * Complex.I)‖ ≤ ε)) ∧
(∀ ζ ∈ Zplus ∪ Zminus, 0 ≤ ζ.2 ∧ ζ.2 < 1) ∧ Disjoint Zplus Zminus ∧
(∀ x : ℝ × ℝ, β x = 0 ↔ ∃ ζ ∈ Zplus ∪ Zminus, ∃ m : ℤ, x = (ζ.1, ζ.2 + m)) ∧
0 < r ∧ (∀ ζ ∈ Zplus ∪ Zminus, |ζ.1| + r ≤ 1) ∧
(∀ ζ ∈ Zplus, ∀ z : ℂ, ‖z‖ < r → β (ζ.1 + z.re, ζ.2 + z.im) = z) ∧
(∀ ζ ∈ Zminus, ∀ z : ℂ, ‖z‖ < r → β (ζ.1 + z.re, ζ.2 + z.im) = (starRingEnd ℂ) z) ∧
(b ≤ a → Zminus = ∅ ∧ (Zplus.card : ℤ) = a - b) ∧
(a ≤ b → Zplus = ∅ ∧ (Zminus.card : ℤ) = b - a) := by
sorry
end CauchyRiemannIndex