Documentation

LeanPool.LeanModularForms.GeneralizedResidueTheory.Residue.SectorCurveLemma

Sector Curve PV Lemmas #

Higher-order PV computations and the generalized winding number for the model sector-curve defined in SectorCurve.lean.

Main Results #

theorem pv_sector_higher_power (r : ) (_hr : 0 < r) (α : ) (_hα_nonneg : 0 α) (_hα_le : α 2 * Real.pi) (n : ) (hn : 1 n) (_h_angle : ∃ (k : ), n * α = k * (2 * Real.pi)) :
(t : ) in 0..3, sectorCurve r α t ^ (n - 1) * deriv (sectorCurve r α) t = 0

For n >= 1, the integral of z^(n-1) dz along the sector curve is 0 when n * alpha is a multiple of 2 * pi.

theorem cauchyPV_sectorCurve_simplePole (r : ) (hr : 0 < r) (α : ) (hα_nonneg : 0 α) (hα_le : α 2 * Real.pi) (c : ) (g : ) (hg : AnalyticOnNhd g (Metric.ball 0 (r + 1))) :
CauchyPrincipalValueExists' (fun (z : ) => c / z + g z) (sectorCurve r α) 0 3 0 cauchyPrincipalValue' (fun (z : ) => c / z + g z) (sectorCurve r α) 0 3 0 = Complex.I * α * c

Lemma 3.1 (Simple pole version): For f(z) = c/z + g(z) where g is analytic on a ball containing the sector, the principal value along the sector curve equals I * α * c.

The hypotheses require g analytic on a ball strictly containing the sector image (to guarantee a primitive exists) and f = c/z + g at all nonzero points.

theorem cauchyPV_sectorCurve_eq_mul_residueSimplePole (r : ) (hr : 0 < r) (α : ) (hα_nonneg : 0 α) (hα_le : α 2 * Real.pi) (f : ) (c : ) (g : ) (hg : AnalyticOnNhd g (Metric.ball 0 (r + 1))) (hf_eq : ∀ (z : ), z 0f z = c / z + g z) (hc : c = residueSimplePole f 0) :

Variant of Lemma 3.1: for an arbitrary f equal to c/z + g at nonzero points, with g analytic on a ball containing the sector, the PV equals I * α * c.

theorem pv_sector_negative_power (r : ) (hr : 0 < r) (α : ) (_hα_nonneg : 0 α) (_hα_le : α 2 * Real.pi) (n : ) (hn : 2 n) (h_angle : ∃ (k : ), ↑(n - 1) * α = k * (2 * Real.pi)) :
CauchyPrincipalValueExists' (fun (z : ) => z ^ (-n)) (sectorCurve r α) 0 3 0 cauchyPrincipalValue' (fun (z : ) => z ^ (-n)) (sectorCurve r α) 0 3 0 = 0

Equation (3.4): The PV of z^{-n} along the sector curve is 0 when (n-1) * α is a multiple of . The cutoff integral equals ε^{1-n} * (exp(i(1-n)α) - 1) / (1-n), which vanishes identically under the angle condition. By FTC with primitive F(t) = γ(t)^{1-n}/(1-n).

theorem generalizedWindingNumber_sectorCurve (r : ) (hr : 0 < r) (α : ) (hα_nonneg : 0 α) (hα_le : α 2 * Real.pi) (_hPV : CauchyPrincipalValueExists' (fun (z : ) => z⁻¹) (sectorCurve r α) 0 3 0) :
generalizedWindingNumber' (sectorCurve r α) 0 3 0 = α / (2 * Real.pi)

The generalized winding number of the sector curve around 0 equals alpha / (2 * pi).