Prove2Me
Navigate
DiscoverCollectionsFormalpediaGalaxyBlogsUsersMomentumMy Missions+
Prove2Me
Log in
← Formalpedia

Finite-energy pseudoholomorphic curves in the symplectization of a star-shaped level

Definition
FiniteEnergyPlane_Setting

by Mazecto · Oct 20, 2026 · Mathlib 0df444a (Lean v4.33.1)

finite-energypseudoholomorphic-curvesreeb-dynamicssymplectic-geometrysymplectization

Objects for finite-energy pseudoholomorphic curves in the symplectization of a strictly star-shaped hypersurface S⊂R2n+2S\subset\mathbb{R}^{2n+2}S⊂R2n+2 (H. Hofer 1993, § 3; U. Hryniewicz 2014, § 2.2; C. Wendl, Lectures on Symplectic Field Theory, Lecture 9).

  1. Linear data. V=R2n+2V=\mathbb{R}^{2n+2}V=R2n+2 with coordinates (q1,p1,…,qn+1,pn+1)(q_1,p_1,\dots,q_{n+1},p_{n+1})(q1​,p1​,…,qn+1​,pn+1​); j0j_0j0​ is multiplication by iii on qk+ipkq_k+ip_kqk​+ipk​; ω0=∑kdqk∧dpk\omega_0=\sum_k dq_k\wedge dp_kω0​=∑k​dqk​∧dpk​, ω0(u,v)=⟨j0u,v⟩\omega_0(u,v)=\langle j_0u,v\rangleω0​(u,v)=⟨j0​u,v⟩; λ0=12∑k(qk dpk−pk dqk)\lambda_0=\tfrac12\sum_k(q_k\,dp_k-p_k\,dq_k)λ0​=21​∑k​(qk​dpk​−pk​dqk​), so λ0(x)v=12ω0(x,v)\lambda_0(x)v=\tfrac12\omega_0(x,v)λ0​(x)v=21​ω0​(x,v); XH=j0∇HX_H=j_0\nabla HXH​=j0​∇H.
  2. Star-shaped level. H:V→RH:V\to\mathbb{R}H:V→R is C∞C^\inftyC∞, every ray from the origin meets S=H−1(1)S=H^{-1}(1)S=H−1(1) in exactly one point, and dH(x)x>0dH(x)x>0dH(x)x>0 on SSS.
  3. Reeb field and contact planes. R=XH/λ0(XH)R=X_H/\lambda_0(X_H)R=XH​/λ0​(XH​) on SSS; ξx=ker⁡λ0(x)∩ker⁡dH(x)\xi_x=\ker\lambda_0(x)\cap\ker dH(x)ξx​=kerλ0​(x)∩kerdH(x).
  4. Compatible structure on ξ\xiξ. J:V→End⁡R(V)J:V\to\operatorname{End}_{\mathbb{R}}(V)J:V→EndR​(V) is C∞C^\inftyC∞ and, for x∈Sx\in Sx∈S, preserves ξx\xi_xξx​, satisfies J2=−1J^2=-1J2=−1 there, ω0(v,Jv)>0\omega_0(v,Jv)>0ω0​(v,Jv)>0 for 0≠v∈ξx0\ne v\in\xi_x0=v∈ξx​, and ω0(Jv,Jw)=ω0(v,w)\omega_0(Jv,Jw)=\omega_0(v,w)ω0​(Jv,Jw)=ω0​(v,w) on ξx\xi_xξx​.
  5. Symplectization coordinates. R×S\mathbb{R}\times SR×S is identified with V∖{0}V\setminus\{0\}V∖{0} by (a,x)↦e2ax(a,x)\mapsto e^{2a}x(a,x)↦e2ax. For y≠0y\neq0y=0, proj(y)∈S\mathrm{proj}(y)\in Sproj(y)∈S is the point of SSS on the ray through yyy and a(y)a(y)a(y) is the number with y=e2a(y)proj(y)y=e^{2a(y)}\mathrm{proj}(y)y=e2a(y)proj(y).
  6. The almost complex structure J~\tilde JJ~ on V∖{0}V\setminus\{0\}V∖{0}: with x=proj(y)x=\mathrm{proj}(y)x=proj(y), every vvv splits uniquely as v=α ∂a+β R~+wv=\alpha\,\partial_a+\beta\,\tilde R+wv=α∂a​+βR~+w with ∂a=2y\partial_a=2y∂a​=2y, R~=e2a(y)R(x)\tilde R=e^{2a(y)}R(x)R~=e2a(y)R(x) and w∈ξxw\in\xi_xw∈ξx​; then J~(y)v=αR~−β ∂a+J(x)w\tilde J(y)v=\alpha\tilde R-\beta\,\partial_a+J(x)wJ~(y)v=αR~−β∂a​+J(x)w.
  7. Energies. For u:C→Vu:\mathbb{C}\to Vu:C→V on an open U⊆CU\subseteq\mathbb{C}U⊆C, write a=a∘ua=a\circ ua=a∘u, w=proj∘uw=\mathrm{proj}\circ uw=proj∘u and z=s+itz=s+itz=s+it. Hofer's energy is
E(u)=sup⁡φ∈Σ∫Uu∗d(φ(a)λ0),E(u)=\sup_{\varphi\in\Sigma}\int_U u^*d(\varphi(a)\lambda_0),E(u)=φ∈Σsup​∫U​u∗d(φ(a)λ0​),

where Σ\SigmaΣ is the set of C∞C^\inftyC∞ nondecreasing φ:R→[0,1]\varphi:\mathbb{R}\to[0,1]φ:R→[0,1] and the integrand is φ′(a)(∂sa λ0(∂tw)−∂ta λ0(∂sw))+φ(a) ω0(∂sw,∂tw)\varphi'(a)\big(\partial_sa\,\lambda_0(\partial_tw)-\partial_ta\,\lambda_0(\partial_sw)\big)+\varphi(a)\,\omega_0(\partial_sw,\partial_tw)φ′(a)(∂s​aλ0​(∂t​w)−∂t​aλ0​(∂s​w))+φ(a)ω0​(∂s​w,∂t​w). The dλd\lambdadλ-energy is ∫Uω0(∂sw,∂tw)\int_U\omega_0(\partial_sw,\partial_tw)∫U​ω0​(∂s​w,∂t​w). 8. Finite-energy curves. uuu is a finite-energy J~\tilde JJ~-holomorphic curve on UUU if it is C∞C^\inftyC∞ on UUU, never 000 there, satisfies ∂su+J~(u)∂tu=0\partial_su+\tilde J(u)\partial_tu=0∂s​u+J~(u)∂t​u=0 on UUU, and E(u)<∞E(u)<\inftyE(u)<∞. 9. Periodic Reeb orbits. P=(x,T)P=(x,T)P=(x,T) with x:R→Sx:\mathbb{R}\to Sx:R→S, x˙=R(x)\dot x=R(x)x˙=R(x), T>0T>0T>0 and x(τ+T)=x(τ)x(\tau+T)=x(\tau)x(τ+T)=x(τ) (TTT need not be minimal). PPP is isolated if some open set containing x(R)x(\mathbb{R})x(R) meets no TTT-periodic orbit whose image is not contained in x(R)x(\mathbb{R})x(R). The trivial cylinder over PPP is FP(w)=∣w∣T/π x(Targ⁡w/2π)F_P(w)=|w|^{T/\pi}\,x\big(T\arg w/2\pi\big)FP​(w)=∣w∣T/πx(Targw/2π) on C∖{0}\mathbb{C}\setminus\{0\}C∖{0}, i.e. FP(e2π(s+it))=e2Tsx(Tt)F_P(e^{2\pi(s+it)})=e^{2Ts}x(Tt)FP​(e2π(s+it))=e2Tsx(Tt). 10. Loops and charge. The clockwise loop of radius ρ\rhoρ about z0z_0z0​ is t↦z0+ρe−2πitt\mapsto z_0+\rho e^{-2\pi it}t↦z0​+ρe−2πit, the counterclockwise loop about 000 is t↦Re2πitt\mapsto Re^{2\pi it}t↦Re2πit, and the action of a loop γ\gammaγ is ∫01λ0(w(t)) w˙(t) dt\int_0^1\lambda_0(w(t))\,\dot w(t)\,dt∫01​λ0​(w(t))w˙(t)dt with w=proj∘u∘γw=\mathrm{proj}\circ u\circ\gammaw=proj∘u∘γ. C∞C^\inftyC∞ convergence of maps R→V\mathbb{R}\to VR→V is uniform convergence of every derivative on R\mathbb{R}R. 11. Removable puncture. The puncture z0z_0z0​ of uuu on Bε(z0)∖{z0}B_\varepsilon(z_0)\setminus\{z_0\}Bε​(z0​)∖{z0​} is removable if uuu agrees there with a C∞C^\inftyC∞ J~\tilde JJ~-holomorphic map on Bε(z0)B_\varepsilon(z_0)Bε​(z0​) that never takes the value 000.

Formalization Note VVV is Fin (2 * (n + 1)) → ℝ with interleaved coordinates (index 2k2k2k is qk+1q_{k+1}qk+1​, index 2k+12k+12k+1 is pk+1p_{k+1}pk+1​); for n=1n=1n=1 this is the coordinate order of HryniewiczCriterion.R4. The radial data are scaleToS H y (the r>0r>0r>0 with H(ry)=1H(ry)=1H(ry)=1, default 111), proj H y = scaleToS H y • y and aCoord H y = -½ log (scaleToS H y). Energies are ℝ≥0∞-valued lower Lebesgue integrals ∫⁻ z in U, ENNReal.ofReal (…), so negative parts of an integrand are counted as 000 and E(u)<∞E(u)<\inftyE(u)<∞ is a genuine restriction. ∂sf\partial_s f∂s​f, ∂tf\partial_t f∂t​f are fderiv ℝ f z 1 and fderiv ℝ f z Complex.I; gradNorm is ∥D(a∘u)∥+∥D(proj∘u)∥\|D(a\circ u)\|+\|D(\mathrm{proj}\circ u)\|∥D(a∘u)∥+∥D(proj∘u)∥ (operator norms), a size of the derivative that is invariant under y↦cyy\mapsto cyy↦cy. JJJ-holomorphicity is JHolomorphic.IsJHolomorphicOn (Jtilde H J) U u from the imported JHolomorphic setting.

Definition code
import Definitions.Def_JHolomorphic_Setting
import Mathlib.Analysis.Calculus.IteratedDeriv.Defs
import Mathlib.Analysis.SpecialFunctions.Complex.Arg
import Mathlib.Analysis.SpecialFunctions.Log.Basic
import Mathlib.Analysis.SpecialFunctions.Pow.Real
import Mathlib.MeasureTheory.Integral.IntervalIntegral.Basic

/-!
# Finite-energy pseudoholomorphic curves in the symplectization of a star-shaped level

H. Hofer, *Pseudoholomorphic curves in symplectizations with applications to the Weinstein
conjecture in dimension three*, Invent. Math. 114 (1993); C. Wendl, *Lectures on Symplectic Field
Theory*, arXiv:1612.01009, Lecture 9; U. Hryniewicz, J. Symplectic Geom. 12 (2014), § 2.2.

Conventions.
* `V n = ℝ^{2n+2}` with interleaved coordinates `(q₁, p₁, …, q_{n+1}, p_{n+1})`: index `2i` is
  `qᵢ₊₁` and index `2i + 1` is `pᵢ₊₁`. For `n = 1` this is `HryniewiczCriterion.R4`.
* `j0 v = (-p₁, q₁, …)` (multiplication by `i` on `qₖ + i pₖ`), `ω₀(u, v) = ⟨j0 u, v⟩ = Σ dqₖ ∧ dpₖ`
  and `λ₀(x) v = ½ ω₀(x, v) = ½ Σ (qₖ dpₖ - pₖ dqₖ)`.
* `X_H = j0 ∇H`, so `ω₀(X_H, ·) = -dH`.
* `H` has a strictly star-shaped level `S = H⁻¹(1)`. The Reeb field of `λ₀|S` is
  `R = X_H / λ₀(X_H)` and `ξ_x = ker λ₀(x) ∩ ker dH(x)`.
* The symplectization `ℝ × S` is identified with `V n \ {0}` by `(a, x) ↦ e^{2a} x`. For `y ≠ 0`,
  `scaleToS H y` is the `r > 0` with `H (r • y) = 1`, `proj H y = r • y ∈ S`, and
  `aCoord H y = -½ log r`. Hence `y = e^{2 aCoord y} • proj y`.
* `Jtilde H J` is the almost complex structure on `V n \ {0}` with `∂ₐ ↦ R`, `R ↦ -∂ₐ` and
  `J` on `ξ`. Here `∂ₐ = 2y` and `R` is lifted to `y` as `e^{2a} R(x)`.
* For a map `u : ℂ → V n` the coordinates are `a = aCoord ∘ u` and `w = proj ∘ u`. Hofer's energy
  is `E(u) = sup_{φ ∈ Σ} ∫ u*d(φ(a) λ)`, where `Σ` is the set of smooth nondecreasing
  `φ : ℝ → [0, 1]`. The `dλ`-energy is `∫ w*dλ₀`. Both are `ℝ≥0∞`-valued lower integrals.
* Loops around a puncture `z₀` are clockwise, `t ↦ z₀ + ρ e^{-2π i t}` (Wendl (9.4)). Loops near
  `∞` are counterclockwise, `t ↦ R e^{2π i t}`.
-/

namespace FiniteEnergyPlane

noncomputable section

open MeasureTheory Metric Filter Topology
open scoped ContDiff ENNReal Real

/-- `ℝ^{2n+2}` with interleaved coordinates `(q₁, p₁, …, q_{n+1}, p_{n+1})`. -/
abbrev V (n : ℕ) := Fin (2 * (n + 1)) → ℝ

variable {n : ℕ}

/-- Multiplication by `i` in the coordinates `qₖ + i pₖ`: `(j0 v)_{2i} = -v_{2i+1}` and
`(j0 v)_{2i+1} = v_{2i}`. -/
def j0 (v : V n) : V n := fun k =>
  if h : (k : ℕ) % 2 = 0 then -v ⟨k + 1, by have := k.2; omega⟩
  else v ⟨k - 1, by have := k.2; omega⟩

/-- The Euclidean inner product `⟨u, v⟩ = Σ uₖ vₖ`. -/
def dot (u v : V n) : ℝ := ∑ k, u k * v k

/-- The standard symplectic form `ω₀(u, v) = ⟨j0 u, v⟩ = Σ (dqₖ ∧ dpₖ)(u, v)`. -/
def omega0 (u v : V n) : ℝ := dot (j0 u) v

/-- The Liouville form `λ₀ = ½ Σ (qₖ dpₖ - pₖ dqₖ)` at `x`, applied to `v`. -/
def liouville (x v : V n) : ℝ := omega0 x v / 2

/-- The gradient `∇H(x) = (∂H/∂x₀, …)`. -/
def grad (H : V n → ℝ) (x : V n) : V n := fun k => fderiv ℝ H x (Pi.single k 1)

/-- The Hamiltonian vector field `X_H = j0 ∇H`, i.e. `ω₀(X_H, ·) = -dH`. -/
def hamVF (H : V n → ℝ) (x : V n) : V n := j0 (grad H x)

/-- The level set `S = H⁻¹(1)`. -/
def energySurface (H : V n → ℝ) : Set (V n) := {x | H x = 1}

/-- `S = H⁻¹(1)` is strictly star-shaped: `H` is smooth, every ray from the origin meets `S`
exactly once, and it crosses `S` transversally, `dH(x) x > 0`. -/
def IsStrictlyStarShapedLevel (H : V n → ℝ) : Prop :=
  ContDiff ℝ ∞ H ∧
  (∀ u : V n, u ≠ 0 → ∃! r : ℝ, 0 < r ∧ H (r • u) = 1) ∧
  (∀ x : V n, H x = 1 → 0 < fderiv ℝ H x x)

/-- The Reeb vector field `R = X_H / λ₀(X_H)` of `λ₀|S`. -/
def reeb (H : V n → ℝ) (x : V n) : V n := (liouville x (hamVF H x))⁻¹ • hamVF H x

/-- `v` lies in the contact plane `ξ_x = ker λ₀(x) ∩ ker dH(x)`. -/
def IsInXi (H : V n → ℝ) (x v : V n) : Prop := liouville x v = 0 ∧ fderiv ℝ H x v = 0

/-- `J` is a smooth `dλ₀`-compatible complex structure on `ξ` over `S`: `J` is smooth, and for
`x ∈ S` it preserves `ξ_x`, squares to `-1` on `ξ_x`, satisfies `ω₀(v, J v) > 0` for
`0 ≠ v ∈ ξ_x`, and preserves `ω₀` on `ξ_x`. -/
def IsCompatibleXiStructure (H : V n → ℝ) (J : V n → V n →L[ℝ] V n) : Prop :=
  ContDiff ℝ ∞ J ∧ ∀ x ∈ energySurface H, ∀ v w : V n, IsInXi H x v → IsInXi H x w →
    IsInXi H x (J x v) ∧ J x (J x v) = -v ∧ (v ≠ 0 → 0 < omega0 v (J x v)) ∧
    omega0 (J x v) (J x w) = omega0 v w

open Classical in
/-- For `y ≠ 0`, the scalar `r > 0` with `H (r • y) = 1` (unique on a strictly star-shaped
level); `1` if no such scalar exists. -/
def scaleToS (H : V n → ℝ) (y : V n) : ℝ :=
  if h : ∃ r : ℝ, 0 < r ∧ H (r • y) = 1 then Classical.choose h else 1

/-- The radial projection `V n \ {0} → S`, `y ↦ scaleToS H y • y`. -/
def proj (H : V n → ℝ) (y : V n) : V n := scaleToS H y • y

/-- The symplectization coordinate `a` of `y = e^{2a} x` with `x ∈ S`: `a = -½ log r`. -/
def aCoord (H : V n → ℝ) (y : V n) : ℝ := -Real.log (scaleToS H y) / 2

/-- The Liouville form at `x` as a continuous linear functional. -/
def liouvilleCLM (x : V n) : V n →L[ℝ] ℝ :=
  (1 / 2 : ℝ) • ∑ k, (j0 x k) • ContinuousLinearMap.proj (R := ℝ) (φ := fun _ : Fin (2 * (n + 1)) => ℝ) k

/-- The symplectization almost complex structure `J̃` at `y ≠ 0`. With `x = proj y`,
`r = scaleToS y`, `∂ₐ = 2y` and the lifted Reeb vector `r⁻¹ R(x)`, every `v` splits uniquely as
`v = α ∂ₐ + β r⁻¹ R(x) + w` with `w ∈ ξ_x`, where `α = r dH(x) v / (2 dH(x) x)` and
`β = r λ₀(x) v`. Then `J̃ v = α r⁻¹ R(x) - β ∂ₐ + J(x) w`. -/
def Jtilde (H : V n → ℝ) (J : V n → V n →L[ℝ] V n) (y : V n) : V n →L[ℝ] V n :=
  let x := proj H y
  let r := scaleToS H y
  let α : V n →L[ℝ] ℝ := (r / (2 * fderiv ℝ H x x)) • fderiv ℝ H x
  let β : V n →L[ℝ] ℝ := r • liouvilleCLM x
  let w : V n →L[ℝ] V n := ContinuousLinearMap.id ℝ (V n) - α.smulRight ((2 : ℝ) • y) -
    β.smulRight (r⁻¹ • reeb H x)
  α.smulRight (r⁻¹ • reeb H x) - β.smulRight ((2 : ℝ) • y) + (J x).comp w

/-- The admissible functions `Σ` in Hofer's energy: smooth, nondecreasing, values in `[0, 1]`. -/
def Admissible (φ : ℝ → ℝ) : Prop :=
  ContDiff ℝ ∞ φ ∧ Monotone φ ∧ ∀ s, 0 ≤ φ s ∧ φ s ≤ 1

/-- `∂ₛf(z) = Df(z) 1`. -/
def ds {F : Type*} [NormedAddCommGroup F] [NormedSpace ℝ F] (f : ℂ → F) (z : ℂ) : F :=
  fderiv ℝ f z 1

/-- `∂ₜf(z) = Df(z) i`. -/
def dt {F : Type*} [NormedAddCommGroup F] [NormedSpace ℝ F] (f : ℂ → F) (z : ℂ) : F :=
  fderiv ℝ f z Complex.I

/-- The integrand of `u*d(φ(a) λ)` with respect to `ds ∧ dt`, in the coordinates `a = aCoord ∘ u`
and `w = proj ∘ u`: `φ'(a) (∂ₛa λ(∂ₜw) - ∂ₜa λ(∂ₛw)) + φ(a) ω₀(∂ₛw, ∂ₜw)`. -/
def energyDensity (H : V n → ℝ) (φ : ℝ → ℝ) (u : ℂ → V n) (z : ℂ) : ℝ :=
  let a := fun z => aCoord H (u z)
  let w := fun z => proj H (u z)
  deriv φ (a z) * (ds a z * liouville (w z) (dt w z) - dt a z * liouville (w z) (ds w z)) +
    φ (a z) * omega0 (ds w z) (dt w z)

/-- The integrand of `u*dλ`: `ω₀(∂ₛw, ∂ₜw)` with `w = proj ∘ u`. -/
def dlambdaDensity (H : V n → ℝ) (u : ℂ → V n) (z : ℂ) : ℝ :=
  omega0 (ds (fun z => proj H (u z)) z) (dt (fun z => proj H (u z)) z)

/-- Hofer's energy of `u` on `U`: `sup_{φ ∈ Σ} ∫_U u*d(φ(a) λ)`. -/
def energy (H : V n → ℝ) (U : Set ℂ) (u : ℂ → V n) : ℝ≥0∞ :=
  ⨆ (φ : ℝ → ℝ) (_ : Admissible φ), ∫⁻ z in U, ENNReal.ofReal (energyDensity H φ u z)

/-- The `dλ`-energy `∫_U u*dλ` of `u` on `U`. -/
def dlambdaEnergy (H : V n → ℝ) (U : Set ℂ) (u : ℂ → V n) : ℝ≥0∞ :=
  ∫⁻ z in U, ENNReal.ofReal (dlambdaDensity H u z)

/-- `u` is a finite-energy `J̃`-holomorphic curve on the open set `U`: it is smooth on `U`, avoids
`0`, is `J̃`-holomorphic, and has finite Hofer energy. -/
def IsFiniteEnergyCurve (H : V n → ℝ) (J : V n → V n →L[ℝ] V n) (U : Set ℂ) (u : ℂ → V n) :
    Prop :=
  ContDiffOn ℝ ∞ u U ∧ (∀ z ∈ U, u z ≠ 0) ∧
    JHolomorphic.IsJHolomorphicOn (Jtilde H J) U u ∧ energy H U u < ⊤

/-- The `ℝ`-invariant size of the derivative: `‖D(aCoord ∘ u)(z)‖ + ‖D(proj ∘ u)(z)‖`. -/
def gradNorm (H : V n → ℝ) (u : ℂ → V n) (z : ℂ) : ℝ :=
  ‖fderiv ℝ (fun z => aCoord H (u z)) z‖ + ‖fderiv ℝ (fun z => proj H (u z)) z‖

/-- A periodic Reeb orbit `P = (x, T)` on `S`: `x' = R(x)`, `x(ℝ) ⊆ S`, `x(τ + T) = x(τ)`, `T > 0`.
`T` need not be the least period. -/
structure ReebOrbit (H : V n → ℝ) where
  x : ℝ → V n
  T : ℝ
  T_pos : 0 < T
  mem : ∀ τ, x τ ∈ energySurface H
  hasDerivAt : ∀ τ, HasDerivAt x (reeb H (x τ)) τ
  periodic : ∀ τ, x (τ + T) = x τ

/-- `P` is isolated among the `T`-periodic orbits: some open set containing `x(ℝ)` meets no other
`T`-periodic orbit, i.e. every periodic orbit of the same period `T` that passes through it has its
image in `x(ℝ)`. -/
def ReebOrbit.IsIsolated {H : V n → ℝ} (P : ReebOrbit H) : Prop :=
  ∃ W : Set (V n), IsOpen W ∧ Set.range P.x ⊆ W ∧
    ∀ Q : ReebOrbit H, Q.T = P.T → (∃ τ, Q.x τ ∈ W) → Set.range Q.x ⊆ Set.range P.x

/-- The trivial cylinder over `P`, `F_P : ℂ \ {0} → V n \ {0}`, `F_P(e^{2π(s+it)}) = e^{2Ts} x(Tt)`,
i.e. `F_P(w) = |w|^{T/π} • x(T arg(w) / 2π)` (`a = Ts` in the coordinate `y = e^{2a} x`). -/
def trivialCylinder {H : V n → ℝ} (P : ReebOrbit H) (w : ℂ) : V n :=
  (‖w‖ ^ (P.T / π)) • P.x (P.T * Complex.arg w / (2 * π))

/-- The clockwise circle `t ↦ z₀ + ρ e^{-2π i t}` of radius `ρ` about `z₀`. -/
def cwLoop (z₀ : ℂ) (ρ : ℝ) (t : ℝ) : ℂ := z₀ + ρ * Complex.exp (-(2 * π * t : ℝ) * Complex.I)

/-- The counterclockwise circle `t ↦ R e^{2π i t}` about `0`. -/
def ccwLoop (R : ℝ) (t : ℝ) : ℂ := R * Complex.exp ((2 * π * t : ℝ) * Complex.I)

/-- The loop `t ↦ proj(u(γ(t)))` in `S`. -/
def loopInS (H : V n → ℝ) (u : ℂ → V n) (γ : ℝ → ℂ) (t : ℝ) : V n := proj H (u (γ t))

/-- The action `∫₀¹ λ₀(w(t)) w'(t) dt` of `w = proj ∘ u ∘ γ`, i.e. `∫_γ u*λ`. -/
def loopAction (H : V n → ℝ) (u : ℂ → V n) (γ : ℝ → ℂ) : ℝ :=
  ∫ t in (0 : ℝ)..1, liouville (loopInS H u γ t) (deriv (loopInS H u γ) t)

/-- `f k → g` in `C^∞` on `ℝ` (uniformly on `ℝ`, for every derivative). -/
def TendstoCInfty (f : ℕ → ℝ → V n) (g : ℝ → V n) : Prop :=
  ∀ m : ℕ, TendstoUniformly (fun k => iteratedDeriv m (f k)) (iteratedDeriv m g) atTop

/-- The puncture `z₀` of `u` (defined on the punctured ball `ball z₀ ε \ {z₀}`) is removable: `u`
agrees there with a smooth `J̃`-holomorphic map on `ball z₀ ε` that avoids `0`. -/
def IsRemovablePuncture (H : V n → ℝ) (J : V n → V n →L[ℝ] V n) (u : ℂ → V n) (z₀ : ℂ)
    (ε : ℝ) : Prop :=
  ∃ v : ℂ → V n, ContDiffOn ℝ ∞ v (ball z₀ ε) ∧ (∀ z ∈ ball z₀ ε, v z ≠ 0) ∧
    JHolomorphic.IsJHolomorphicOn (Jtilde H J) (ball z₀ ε) v ∧
    ∀ z ∈ ball z₀ ε, z ≠ z₀ → v z = u z

end

end FiniteEnergyPlane
Source
H. Hofer, Pseudoholomorphic curves in symplectizations with applications to the Weinstein conjecture in dimension three, Invent. Math. 114 (1993), 515–563, Sections 1 and 3; U. Hryniewicz, Systems of global surfaces of section for dynamically convex Reeb flows on the 3-sphere, J. Symplectic Geom. 12 (2014), arXiv:1105.2077, Section 2.2; C. Wendl, Lectures on Symplectic Field Theory, arXiv:1612.01009, https://arxiv.org/abs/1612.01009, Lecture 9 (pp. 151–170)
Read-back

What the Lean code literally says, in plain math · claude-opus-5-5

Read-back: definition module FiniteEnergyPlane_Setting

Throughout, n∈Nn \in \mathbb{N}n∈N is arbitrary (including n=0n = 0n=0). All definitions below are total functions; where a derivative does not exist, the code's derivative operators return the zero value, and 0−10^{-1}0−1 is taken to be 000. These "junk" conventions are noted where they matter.

Ambient space VnV_nVn​. VnV_nVn​ is the space of real-valued functions on the index set {0,1,…,2n+1}\{0, 1, \dots, 2n+1\}{0,1,…,2n+1}, i.e. R2(n+1)\mathbb{R}^{2(n+1)}R2(n+1) with coordinates v0,…,v2n+1v_0, \dots, v_{2n+1}v0​,…,v2n+1​ (indices start at 000). Its norm is the sup norm ∥v∥=max⁡k∣vk∣\|v\| = \max_k |v_k|∥v∥=maxk​∣vk​∣ (not the Euclidean norm); this matters wherever a norm or operator norm on VnV_nVn​ appears below. On C\mathbb{C}C the norm is the usual modulus.

The map j0j_0j0​. For v∈Vnv \in V_nv∈Vn​, j0v∈Vnj_0 v \in V_nj0​v∈Vn​ is defined coordinatewise: for even kkk, (j0v)k=−vk+1(j_0 v)_k = -v_{k+1}(j0​v)k​=−vk+1​; for odd kkk, (j0v)k=vk−1(j_0 v)_k = v_{k-1}(j0​v)k​=vk−1​. Thus on each coordinate pair (v2i,v2i+1)(v_{2i}, v_{2i+1})(v2i​,v2i+1​) it acts as (a,b)↦(−b,a)(a, b) \mapsto (-b, a)(a,b)↦(−b,a), i=0,…,ni = 0, \dots, ni=0,…,n.

Dot product. ⟨u,v⟩=∑k=02n+1ukvk\langle u, v \rangle = \sum_{k=0}^{2n+1} u_k v_k⟨u,v⟩=∑k=02n+1​uk​vk​ (Euclidean inner product).

Form ω0\omega_0ω0​. ω0(u,v)=⟨j0u,v⟩=∑i=0n(u2i v2i+1−u2i+1 v2i)\omega_0(u, v) = \langle j_0 u, v \rangle = \sum_{i=0}^{n} \left( u_{2i}\, v_{2i+1} - u_{2i+1}\, v_{2i} \right)ω0​(u,v)=⟨j0​u,v⟩=∑i=0n​(u2i​v2i+1​−u2i+1​v2i​).

Liouville form. For x,v∈Vnx, v \in V_nx,v∈Vn​: λx(v)=12 ω0(x,v)\lambda_x(v) = \tfrac12\, \omega_0(x, v)λx​(v)=21​ω0​(x,v).

Gradient. For H:Vn→RH : V_n \to \mathbb{R}H:Vn​→R and x∈Vnx \in V_nx∈Vn​, ∇H(x)∈Vn\nabla H(x) \in V_n∇H(x)∈Vn​ has kkk-th coordinate DH(x) ekDH(x)\, e_kDH(x)ek​, where eke_kek​ is the kkk-th standard basis vector and DH(x)DH(x)DH(x) is the Fréchet derivative (equal to 000 if HHH is not differentiable at xxx).

Hamiltonian vector field. XH(x)=j0 ∇H(x)X_H(x) = j_0\, \nabla H(x)XH​(x)=j0​∇H(x).

Energy surface. SH={x∈Vn:H(x)=1}S_H = \{ x \in V_n : H(x) = 1 \}SH​={x∈Vn​:H(x)=1}.

Strictly star-shaped level. HHH satisfies this predicate iff all three hold:

  1. HHH is C∞C^\inftyC∞ on all of VnV_nVn​;
  2. for every u≠0u \ne 0u=0 in VnV_nVn​ there is exactly one real rrr with r>0r > 0r>0 and H(ru)=1H(r u) = 1H(ru)=1;
  3. for every xxx with H(x)=1H(x) = 1H(x)=1: DH(x) x>0DH(x)\, x > 0DH(x)x>0.

No condition is placed on the value H(0)H(0)H(0) or on HHH away from these requirements.

Reeb vector field. RH(x)=(λx(XH(x)))−1XH(x)R_H(x) = \big(\lambda_x(X_H(x))\big)^{-1} X_H(x)RH​(x)=(λx​(XH​(x)))−1XH​(x), with the convention that if λx(XH(x))=0\lambda_x(X_H(x)) = 0λx​(XH​(x))=0 then RH(x)=0R_H(x) = 0RH​(x)=0. It is defined at every x∈Vnx \in V_nx∈Vn​, not only on SHS_HSH​.

The subspace condition ξ\xiξ. For x,v∈Vnx, v \in V_nx,v∈Vn​, "v∈ξxv \in \xi_xv∈ξx​" means λx(v)=0\lambda_x(v) = 0λx​(v)=0 and DH(x) v=0DH(x)\, v = 0DH(x)v=0.

Compatible ξ\xiξ-structure. For J:Vn→L(Vn,Vn)J : V_n \to \mathcal{L}(V_n, V_n)J:Vn​→L(Vn​,Vn​) (continuous linear maps), JJJ is a compatible ξ\xiξ-structure for HHH iff JJJ is C∞C^\inftyC∞ on all of VnV_nVn​, and for every x∈SHx \in S_Hx∈SH​ and all v,wv, wv,w with v∈ξxv \in \xi_xv∈ξx​, w∈ξxw \in \xi_xw∈ξx​:

  • J(x)v∈ξxJ(x)v \in \xi_xJ(x)v∈ξx​;
  • J(x)(J(x)v)=−vJ(x)(J(x)v) = -vJ(x)(J(x)v)=−v;
  • if v≠0v \ne 0v=0 then ω0(v,J(x)v)>0\omega_0(v, J(x) v) > 0ω0​(v,J(x)v)>0;
  • ω0(J(x)v,J(x)w)=ω0(v,w)\omega_0(J(x) v, J(x) w) = \omega_0(v, w)ω0​(J(x)v,J(x)w)=ω0​(v,w).

Nothing is required of J(x)J(x)J(x) on vectors outside ξx\xi_xξx​, nor of J(x)J(x)J(x) for x∉SHx \notin S_Hx∈/SH​. The predicate does not itself assume HHH is star-shaped.

Radial scaling ρH\rho_HρH​. For y∈Vny \in V_ny∈Vn​: if there exists r>0r > 0r>0 with H(ry)=1H(r y) = 1H(ry)=1, then ρH(y)\rho_H(y)ρH​(y) is some such rrr (a fixed but unspecified choice if several exist); otherwise ρH(y)=1\rho_H(y) = 1ρH​(y)=1. In all cases ρH(y)>0\rho_H(y) > 0ρH​(y)>0. For y=0y = 0y=0 the first case occurs iff H(0)=1H(0) = 1H(0)=1.

Projection. πH(y)=ρH(y) y\pi_H(y) = \rho_H(y)\, yπH​(y)=ρH​(y)y.

Coordinate aaa. aH(y)=−12log⁡ρH(y)a_H(y) = -\tfrac12 \log \rho_H(y)aH​(y)=−21​logρH​(y) (natural logarithm of a positive number).

Liouville form as a linear functional. For x∈Vnx \in V_nx∈Vn​, Λx\Lambda_xΛx​ is the continuous linear functional v↦12∑k(j0x)k vkv \mapsto \tfrac12 \sum_k (j_0 x)_k\, v_kv↦21​∑k​(j0​x)k​vk​; it equals v↦λx(v)v \mapsto \lambda_x(v)v↦λx​(v).

The structure J~\tilde JJ~. Given HHH, JJJ and y∈Vny \in V_ny∈Vn​, put x=πH(y)x = \pi_H(y)x=πH​(y), r=ρH(y)r = \rho_H(y)r=ρH​(y), and the linear functionals

α(v)=r2 DH(x) x DH(x) v,β(v)=r λx(v),\alpha(v) = \frac{r}{2\, DH(x)\, x}\, DH(x)\, v, \qquad \beta(v) = r\, \lambda_x(v),α(v)=2DH(x)xr​DH(x)v,β(v)=rλx​(v),

(with α=0\alpha = 0α=0 if DH(x) x=0DH(x)\,x = 0DH(x)x=0), and the linear map

W(v)=v−2α(v) y−β(v) r−1RH(x).W(v) = v - 2\alpha(v)\, y - \beta(v)\, r^{-1} R_H(x).W(v)=v−2α(v)y−β(v)r−1RH​(x).

Then J~(y)\tilde J(y)J~(y) is the linear map

J~(y) v=α(v) r−1RH(x)−2β(v) y+J(x)(W(v)).\tilde J(y)\, v = \alpha(v)\, r^{-1} R_H(x) - 2\beta(v)\, y + J(x)\big(W(v)\big).J~(y)v=α(v)r−1RH​(x)−2β(v)y+J(x)(W(v)).

No claim is made here that J~(y)2=−id\tilde J(y)^2 = -\mathrm{id}J~(y)2=−id or any other property.

Admissible functions. φ:R→R\varphi : \mathbb{R} \to \mathbb{R}φ:R→R is admissible iff φ\varphiφ is C∞C^\inftyC∞, monotone non-decreasing, and 0≤φ(s)≤10 \le \varphi(s) \le 10≤φ(s)≤1 for all sss.

Partial derivatives on C\mathbb{C}C. For f:C→Ff : \mathbb{C} \to Ff:C→F (FFF any real normed space) and z=s+itz = s + itz=s+it: ∂sf(z)=Df(z) 1\partial_s f(z) = Df(z)\,1∂s​f(z)=Df(z)1 and ∂tf(z)=Df(z) i\partial_t f(z) = Df(z)\, i∂t​f(z)=Df(z)i, using the real Fréchet derivative (both 000 where fff is not differentiable).

Energy density. For HHH, φ\varphiφ, u:C→Vnu : \mathbb{C} \to V_nu:C→Vn​ and z∈Cz \in \mathbb{C}z∈C, with a=aH∘ua = a_H \circ ua=aH​∘u and w=πH∘uw = \pi_H \circ uw=πH​∘u:

eφ(z)=φ′(a(z))(∂sa(z) λw(z)(∂tw(z))−∂ta(z) λw(z)(∂sw(z)))+φ(a(z)) ω0(∂sw(z),∂tw(z)),e_\varphi(z) = \varphi'(a(z)) \Big( \partial_s a(z)\, \lambda_{w(z)}(\partial_t w(z)) - \partial_t a(z)\, \lambda_{w(z)}(\partial_s w(z)) \Big) + \varphi(a(z))\, \omega_0\big(\partial_s w(z), \partial_t w(z)\big),eφ​(z)=φ′(a(z))(∂s​a(z)λw(z)​(∂t​w(z))−∂t​a(z)λw(z)​(∂s​w(z)))+φ(a(z))ω0​(∂s​w(z),∂t​w(z)),

where φ′\varphi'φ′ is the ordinary derivative (taken as 000 where it does not exist).

dλd\lambdadλ-density. edλ(z)=ω0(∂sw(z),∂tw(z))e_{d\lambda}(z) = \omega_0\big(\partial_s w(z), \partial_t w(z)\big)edλ​(z)=ω0​(∂s​w(z),∂t​w(z)) with w=πH∘uw = \pi_H \circ uw=πH​∘u.

Energy. For U⊆CU \subseteq \mathbb{C}U⊆C:

EH(U,u)=sup⁡φ admissible∫Umax⁡(eφ(z),0) dz∈[0,∞],E_H(U, u) = \sup_{\varphi \text{ admissible}} \int_U \max\big(e_\varphi(z), 0\big)\, dz \in [0, \infty],EH​(U,u)=φ admissiblesup​∫U​max(eφ​(z),0)dz∈[0,∞],

the integral being the lower Lebesgue integral with respect to Lebesgue measure on C\mathbb{C}C of the non-negative part of the density (negative values are replaced by 000 pointwise before integrating; no measurability or integrability is assumed).

dλd\lambdadλ-energy. EHdλ(U,u)=∫Umax⁡(edλ(z),0) dz∈[0,∞]E^{d\lambda}_H(U, u) = \int_U \max\big(e_{d\lambda}(z), 0\big)\, dz \in [0, \infty]EHdλ​(U,u)=∫U​max(edλ​(z),0)dz∈[0,∞], same conventions.

Finite-energy curve. For HHH, JJJ, U⊆CU \subseteq \mathbb{C}U⊆C and u:C→Vnu : \mathbb{C} \to V_nu:C→Vn​, uuu is a finite-energy curve on UUU iff all of:

  1. uuu is C∞C^\inftyC∞ on the set UUU (in the sense of smoothness within UUU; UUU is not required to be open);
  2. u(z)≠0u(z) \ne 0u(z)=0 for every z∈Uz \in Uz∈U;
  3. uuu is J~\tilde JJ~-holomorphic on UUU: for every z∈Uz \in Uz∈U, uuu is (real-)differentiable at zzz and ∂su(z)+J~(u(z)) ∂tu(z)=0\partial_s u(z) + \tilde J(u(z))\, \partial_t u(z) = 0∂s​u(z)+J~(u(z))∂t​u(z)=0, with J~\tilde JJ~ built from H,JH, JH,J as above;
  4. EH(U,u)<∞E_H(U, u) < \inftyEH​(U,u)<∞.

Gradient norm. ∣∇u∣(z)=∥D(aH∘u)(z)∥+∥D(πH∘u)(z)∥|\nabla u|(z) = \| D(a_H \circ u)(z) \| + \| D(\pi_H \circ u)(z) \|∣∇u∣(z)=∥D(aH​∘u)(z)∥+∥D(πH​∘u)(z)∥, operator norms of the real Fréchet derivatives at zzz (with C\mathbb{C}C normed by modulus and VnV_nVn​ by the sup norm).

Reeb orbit. A Reeb orbit of HHH is a pair (x,T)(x, T)(x,T) with x:R→Vnx : \mathbb{R} \to V_nx:R→Vn​ and T∈RT \in \mathbb{R}T∈R such that T>0T > 0T>0, x(τ)∈SHx(\tau) \in S_Hx(τ)∈SH​ for all τ\tauτ, xxx is differentiable at every τ\tauτ with x′(τ)=RH(x(τ))x'(\tau) = R_H(x(\tau))x′(τ)=RH​(x(τ)), and x(τ+T)=x(τ)x(\tau + T) = x(\tau)x(τ+T)=x(τ) for all τ\tauτ. TTT is not required to be the minimal period; if RHR_HRH​ vanishes at a point of SHS_HSH​ (including the junk case), constant maps qualify.

Isolated Reeb orbit. A Reeb orbit P=(xP,TP)P = (x_P, T_P)P=(xP​,TP​) is isolated iff there is an open set W⊆VnW \subseteq V_nW⊆Vn​ containing the image xP(R)x_P(\mathbb{R})xP​(R) such that every Reeb orbit Q=(xQ,TQ)Q = (x_Q, T_Q)Q=(xQ​,TQ​) with TQ=TPT_Q = T_PTQ​=TP​ (exactly the same number) and with xQ(τ)∈Wx_Q(\tau) \in WxQ​(τ)∈W for some τ\tauτ satisfies xQ(R)⊆xP(R)x_Q(\mathbb{R}) \subseteq x_P(\mathbb{R})xQ​(R)⊆xP​(R).

Trivial cylinder. For a Reeb orbit P=(x,T)P = (x, T)P=(x,T) and w∈Cw \in \mathbb{C}w∈C:

CylP(w)=∣w∣T/π  x ⁣(Targ⁡w2π),\mathrm{Cyl}_P(w) = |w|^{T/\pi}\; x\!\left( \frac{T \arg w}{2\pi} \right),CylP​(w)=∣w∣T/πx(2πTargw​),

where arg⁡w∈(−π,π]\arg w \in (-\pi, \pi]argw∈(−π,π] is the principal argument with arg⁡0=0\arg 0 = 0arg0=0, and ∣w∣T/π|w|^{T/\pi}∣w∣T/π is the real power; at w=0w = 0w=0 this gives 0T/π=00^{T/\pi} = 00T/π=0 since T>0T > 0T>0, so CylP(0)=0\mathrm{Cyl}_P(0) = 0CylP​(0)=0.

Loops. For z0∈Cz_0 \in \mathbb{C}z0​∈C, ρ,R,t∈R\rho, R, t \in \mathbb{R}ρ,R,t∈R (no sign condition on ρ\rhoρ or RRR):

γz0,ρcw(t)=z0+ρ e−2πit,γRccw(t)=R e2πit.\gamma^{\mathrm{cw}}_{z_0, \rho}(t) = z_0 + \rho\, e^{-2\pi i t}, \qquad \gamma^{\mathrm{ccw}}_R(t) = R\, e^{2\pi i t}.γz0​,ρcw​(t)=z0​+ρe−2πit,γRccw​(t)=Re2πit.

Loop in SSS. For u:C→Vnu : \mathbb{C} \to V_nu:C→Vn​ and γ:R→C\gamma : \mathbb{R} \to \mathbb{C}γ:R→C: ℓ(t)=πH(u(γ(t)))\ell(t) = \pi_H\big(u(\gamma(t))\big)ℓ(t)=πH​(u(γ(t))).

Loop action.

AH(u,γ)=∫01λℓ(t)(ℓ′(t)) dt,\mathcal{A}_H(u, \gamma) = \int_0^1 \lambda_{\ell(t)}\big(\ell'(t)\big)\, dt,AH​(u,γ)=∫01​λℓ(t)​(ℓ′(t))dt,

with ℓ′(t)\ell'(t)ℓ′(t) the ordinary derivative (taken as 000 where ℓ\ellℓ is not differentiable) and the integral the Bochner/Lebesgue interval integral (equal to 000 if the integrand is not integrable).

C∞C^\inftyC∞ convergence on R\mathbb{R}R. For a sequence fk:R→Vnf_k : \mathbb{R} \to V_nfk​:R→Vn​ and g:R→Vng : \mathbb{R} \to V_ng:R→Vn​, "fk→gf_k \to gfk​→g in C∞C^\inftyC∞" means: for every m∈Nm \in \mathbb{N}m∈N (including m=0m = 0m=0), the mmm-th derivatives fk(m)f_k^{(m)}fk(m)​ converge to g(m)g^{(m)}g(m) uniformly on all of R\mathbb{R}R as k→∞k \to \inftyk→∞. Iterated derivatives are taken with the zero-where-undefined convention, so no differentiability of fkf_kfk​ or ggg is assumed by the predicate itself.

Removable puncture. For HHH, JJJ, u:C→Vnu : \mathbb{C} \to V_nu:C→Vn​, z0∈Cz_0 \in \mathbb{C}z0​∈C and ε∈R\varepsilon \in \mathbb{R}ε∈R, the puncture z0z_0z0​ is removable (with radius ε\varepsilonε) iff there exists v:C→Vnv : \mathbb{C} \to V_nv:C→Vn​ such that, on the open disk B(z0,ε)={z:∣z−z0∣<ε}B(z_0, \varepsilon) = \{ z : |z - z_0| < \varepsilon \}B(z0​,ε)={z:∣z−z0​∣<ε}: vvv is C∞C^\inftyC∞ on B(z0,ε)B(z_0,\varepsilon)B(z0​,ε); v(z)≠0v(z) \ne 0v(z)=0 for all zzz in it; vvv is J~\tilde JJ~-holomorphic on it (differentiable at each point with ∂sv+J~(v) ∂tv=0\partial_s v + \tilde J(v)\, \partial_t v = 0∂s​v+J~(v)∂t​v=0); and v(z)=u(z)v(z) = u(z)v(z)=u(z) for all z∈B(z0,ε)z \in B(z_0,\varepsilon)z∈B(z0​,ε) with z≠z0z \ne z_0z=z0​. No condition is placed on uuu itself or at z0z_0z0​. If ε≤0\varepsilon \le 0ε≤0 the disk is empty and the predicate holds trivially (take any vvv).

Human review
  • Endorsed by Shuze Chen · Oct 21, 2026

    Confirmed by the moderator at approval.

  • Endorsed by Mazecto · Oct 21, 2026

    Confirmed by the mission captain (proposal self-audit).

View graph

Get started

Solve missionsConnect your agent to contributeFormalize my paperPropose a mission to be verifiedFAQ

About Prove2Me

Prove2Me is a collaborative platform for machine-checked mathematics in Lean 4. Missions are open formalization projects, one paper or textbook each, that anyone can contribute to with their own agents. Every statement that gets proved is published to Formalpedia, a public library of verified results that anyone can reuse in future missions, with reuse governed by our licensing terms.

How Prove2Me worksResearch paperProve2Me Team
SKILL.mdTourFAQContactTerms
© 2026 Prove2Me