Monotone energy ratio for maps with close to a complex structure
ProvedFiniteEnergyPlane.monotoneOn_energy_ratioLet be a real inner product space and a continuous linear map with and , where . Put and . Let and with , let , open and of class on . Assume that at every with one has and , and that the sets are compact for every .
Let be , nonincreasing, with on , on and bounded. For set
Then each is integrable and nonnegative, and with the function
is nondecreasing on .
Role. This is the monotone quantity behind the monotonicity lemma for pseudoholomorphic curves, stated for a model map into a vector space, where the almost complex structure along is only close to the constant structure .
Formalization Note. , ; the integrals are Bochner integrals over for Lebesgue measure; the function is written out with Set.indicator and the inner product.
import Mathlib.Analysis.InnerProductSpace.LinearMap import Mathlib.Analysis.Normed.Operator.Bilinear import Mathlib.Analysis.Calculus.ParametricIntegral import Mathlib.Analysis.SpecialFunctions.ExpDeriv
namespace FiniteEnergyPlane
open MeasureTheory Metric Filter Topology Set
open scoped ContDiff ENNReal
/-- Monotone energy ratio near a complex structure. Let `J₀` be a complex structure on a real inner
product space with `‖J₀‖ ≤ b`, `1 ≤ b`, `γ = 1 + b²`, and `g(v, v') = ⟪v, v'⟫ + ⟪J₀ v, J₀ v'⟫`. Let
`Λ ≥ 0`, `S > 0` with `Λ S ≤ 1 / (4 γ² b)`, `U ⊆ ℂ` open, `u` a `C²` map on `U` with
`∂ₜu = A(z) ∂ₛu` and `‖A(z) - J₀‖ ≤ Λ ‖u z - q‖` wherever `‖u z - q‖ < S`, and with compact sets
`{z ∈ U | ‖u z - q‖ ≤ ρ}` for `ρ < S`. Let `φ` be a nonincreasing `C¹` cutoff in `[0, 1]`
vanishing on `[3/4, ∞)` with bounded derivative vanishing on `(3/4, ∞)`. Put
`Φ_s(z) = 1_U(z) φ(g(u z - q, u z - q) / s²) g(J₀ ∂ₛu, ∂ₜu)`. Then for `0 < s < S`, `Φ_s` is
integrable and nonnegative, and `s ↦ e^{2 C s} ∫ Φ_s / s²` is nondecreasing on `(0, S)`, where
`C = (γ b + 2 γ² b) Λ`. -/
theorem monotoneOn_energy_ratio {F : Type*} [NormedAddCommGroup F] [InnerProductSpace ℝ F]
(J₀ : F →L[ℝ] F) (hJ : J₀.comp J₀ = -ContinuousLinearMap.id ℝ F) {b : ℝ} (hb1 : 1 ≤ b)
(hJb : ‖J₀‖ ≤ b) {Λ S : ℝ} (hΛ : 0 ≤ Λ) (hS : 0 < S)
(hΛS : Λ * S ≤ 1 / (4 * (1 + b ^ 2) ^ 2 * b)) (q : F) {U : Set ℂ} {u : ℂ → F}
(A : ℂ → F →L[ℝ] F) (hU : IsOpen U) (hu : ContDiffOn ℝ 2 u U)
(hhol : ∀ z ∈ U, ‖u z - q‖ < S → fderiv ℝ u z Complex.I = A z (fderiv ℝ u z 1) ∧
‖A z - J₀‖ ≤ Λ * ‖u z - q‖)
(hprop : ∀ ρ, ρ < S → IsCompact {z | z ∈ U ∧ ‖u z - q‖ ≤ ρ})
{φ : ℝ → ℝ} (hφc : ContDiff ℝ 1 φ) (hφ0 : ∀ t, 3 / 4 ≤ t → φ t = 0)
(hφb : ∀ t, 0 ≤ φ t ∧ φ t ≤ 1) (hφd : ∀ t, deriv φ t ≤ 0)
(hφd0 : ∀ t, 3 / 4 < t → deriv φ t = 0) {Mφ : ℝ} (hMφ : ∀ t, |deriv φ t| ≤ Mφ) :
(∀ s ∈ Ioo 0 S, Integrable (fun z => U.indicator (fun z => φ ((s ^ 2)⁻¹ * (inner ℝ (u z - q) (u z - q) + inner ℝ (J₀ (u z - q)) (J₀ (u z - q))))) z *
(inner ℝ (J₀ (fderiv ℝ u z 1)) (fderiv ℝ u z Complex.I) +
inner ℝ (J₀ (J₀ (fderiv ℝ u z 1))) (J₀ (fderiv ℝ u z Complex.I)))) ∧ ∀ z, 0 ≤ U.indicator (fun z => φ ((s ^ 2)⁻¹ * (inner ℝ (u z - q) (u z - q) + inner ℝ (J₀ (u z - q)) (J₀ (u z - q))))) z *
(inner ℝ (J₀ (fderiv ℝ u z 1)) (fderiv ℝ u z Complex.I) +
inner ℝ (J₀ (J₀ (fderiv ℝ u z 1))) (J₀ (fderiv ℝ u z Complex.I)))) ∧
MonotoneOn (fun s => Real.exp (2 * (((1 + b ^ 2) * b + 2 * (1 + b ^ 2) ^ 2 * b) * Λ) * s) *
(∫ z, U.indicator (fun z => φ ((s ^ 2)⁻¹ * (inner ℝ (u z - q) (u z - q) + inner ℝ (J₀ (u z - q)) (J₀ (u z - q))))) z *
(inner ℝ (J₀ (fderiv ℝ u z 1)) (fderiv ℝ u z Complex.I) +
inner ℝ (J₀ (J₀ (fderiv ℝ u z 1))) (J₀ (fderiv ℝ u z Complex.I)))) / s ^ 2) (Ioo 0 S) := by
sorry
end FiniteEnergyPlane