Documentation

LeanPool.LeanModularForms.GeneralizedResidueTheory.PVInfrastructure.StepBounds

PV Infrastructure: Step Bounds #

Dyadic step bounds and subsequence selection for principal value convergence. These combine the gamma analysis (lower/upper bounds) with the remainder analysis (C² bounded remainder) to show that cutoff integrals converge along dyadic subsequences.

Main Results #

theorem remainder_integral_O_eps {r : } {t₀ ε C : } (hε_pos : 0 < ε) (_hC_pos : 0 < C) (hr_bound : ∀ (t : ), 0 < |t - t₀||t - t₀| 2 * εr t C) :
(t : ) in t₀ - 2 * ε..t₀ - ε, r t + (t : ) in t₀ + ε..t₀ + 2 * ε, r t 2 * C * ε

O(ε) step bound from bounded remainder.

theorem integral_inv_symm (t₀ ε₁ ε₂ : ) (_hε₁ : 0 < ε₁) (_hε₂ : 0 < ε₂) (_hε₁₂ : ε₁ ε₂) :
( (t : ) in t₀ - ε₂..t₀ - ε₁, (↑(t - t₀))⁻¹) + (t : ) in t₀ + ε₁..t₀ + ε₂, (↑(t - t₀))⁻¹ = 0

Symmetric cancellation of 1/(t-t₀).

theorem remainder_annulus_bound {r : } {t₀ c₁ c₂ η : } (hc₁_pos : 0 < c₁) (hc₂_pos : 0 < c₂) (hc₁₂ : c₁ < c₂) (_hη_pos : 0 < η) (hr_bound : ∀ (t : ), c₁ < |t - t₀||t - t₀| < c₂r t η / |t - t₀|) :
(t : ) in t₀ - c₂..t₀ - c₁, r t + (t : ) in t₀ + c₁..t₀ + c₂, r t 2 * η * Real.log (c₂ / c₁)

Remainder annulus bound: O(log ratio).

theorem exists_eta_delta {γ : } {t₀ : } {L : } (hL : L 0) (hγ_hasderiv : HasDerivAt γ L t₀) (hγ_cont_deriv : ContinuousAt (deriv γ) t₀) (η : ) ( : 0 < η) :
δ > 0, ∀ (t : ), 0 < |t - t₀||t - t₀| < δ(γ t - γ t₀)⁻¹ * deriv γ t - (↑(t - t₀))⁻¹ η / |t - t₀|

Scale-dependent η from asymptotic control.

theorem step_bound_with_eta {r : } {t₀ ε η : } (hε_pos : 0 < ε) (hη_pos : 0 < η) (hr_bound : ∀ (t : ), 0 < |t - t₀||t - t₀| εr t η / |t - t₀|) :
(t : ) in t₀ - ε..t₀ - ε / 2, r t + (t : ) in t₀ + ε / 2..t₀ + ε, r t 2 * η * Real.log 2

Dyadic step [ε/2, ε] contributes ≤ 2η*log(2).

theorem error_at_smaller_scale {γ : } {t₀ : } {L : } (hL : L 0) (hγ_hasderiv : HasDerivAt γ L t₀) (hγ_cont_deriv : ContinuousAt (deriv γ) t₀) (η' : ) :
η' > 0δ > 0, ∀ (ε : ), 0 < εε < δ∀ (t : ), 0 < |t - t₀||t - t₀| ε(γ t - γ t₀)⁻¹ * deriv γ t - (↑(t - t₀))⁻¹ η' / |t - t₀|

Error bound extends to smaller scales.

@[reducible, inline]
noncomputable abbrev cutoffIntegral (γ : ) (a b t₀ ε : ) :

Cutoff integral I(ε).

Equations
Instances For
    theorem exists_delta_for_error_bound {γ : } {t₀ : } {L : } (hL : L 0) (hγ_hasderiv : HasDerivAt γ L t₀) (hγ_cont_deriv : ContinuousAt (deriv γ) t₀) (n : ) :
    δ > 0, ∀ (ε : ), 0 < εε < δ∀ (t : ), 0 < |t - t₀||t - t₀| ε(γ t - γ t₀)⁻¹ * deriv γ t - (↑(t - t₀))⁻¹ (1 / 2) ^ n / |t - t₀|

    δ giving error bound (1/2)^n at scale ε < δ.

    noncomputable def summableSubseqAux {γ : } {t₀ : } {L : } (hL : L 0) (hγ_hasderiv : HasDerivAt γ L t₀) (hγ_cont_deriv : ContinuousAt (deriv γ) t₀) (δ₀ : ) :

    An auxiliary summable subsequence used in the step-bound estimates.

    Equations
    • One or more equations did not get rendered due to their size.
    Instances For
      theorem summableSubseqAux_zero {γ : } {t₀ : } {L : } (hL : L 0) (hγ_hasderiv : HasDerivAt γ L t₀) (hγ_cont_deriv : ContinuousAt (deriv γ) t₀) (δ₀ : ) :
      summableSubseqAux hL hγ_hasderiv hγ_cont_deriv δ₀ 0 = min δ₀ .choose / 2
      theorem summableSubseqAux_succ {γ : } {t₀ : } {L : } (hL : L 0) (hγ_hasderiv : HasDerivAt γ L t₀) (hγ_cont_deriv : ContinuousAt (deriv γ) t₀) (δ₀ : ) (n : ) :
      have ε := summableSubseqAux hL hγ_hasderiv hγ_cont_deriv δ₀; have δ := fun (m : ) => .choose; ε (n + 1) = min (ε n / 2) (δ (n + 1)) / 2
      theorem summableSubseqAux_pos {γ : } {t₀ : } {L : } (hL : L 0) (hγ_hasderiv : HasDerivAt γ L t₀) (hγ_cont_deriv : ContinuousAt (deriv γ) t₀) (δ₀ : ) (hδ₀_pos : 0 < δ₀) (n : ) :
      0 < summableSubseqAux hL hγ_hasderiv hγ_cont_deriv δ₀ n
      theorem summableSubseqAux_halving {γ : } {t₀ : } {L : } (hL : L 0) (hγ_hasderiv : HasDerivAt γ L t₀) (hγ_cont_deriv : ContinuousAt (deriv γ) t₀) (δ₀ : ) (hδ₀_pos : 0 < δ₀) (n : ) :
      summableSubseqAux hL hγ_hasderiv hγ_cont_deriv δ₀ (n + 1) summableSubseqAux hL hγ_hasderiv hγ_cont_deriv δ₀ n / 2
      theorem summableSubseqAux_lt_delta {γ : } {t₀ : } {L : } (hL : L 0) (hγ_hasderiv : HasDerivAt γ L t₀) (hγ_cont_deriv : ContinuousAt (deriv γ) t₀) (δ₀ : ) (hδ₀_pos : 0 < δ₀) (n : ) :
      have δ := fun (m : ) => .choose; summableSubseqAux hL hγ_hasderiv hγ_cont_deriv δ₀ n < δ n
      theorem summableSubseqAux_error_bound {γ : } {t₀ : } {L : } (hL : L 0) (hγ_hasderiv : HasDerivAt γ L t₀) (hγ_cont_deriv : ContinuousAt (deriv γ) t₀) (δ₀ : ) (hδ₀_pos : 0 < δ₀) (n : ) :
      have ε_n := summableSubseqAux hL hγ_hasderiv hγ_cont_deriv δ₀ n; ∀ (t : ), 0 < |t - t₀||t - t₀| ε_n(γ t - γ t₀)⁻¹ * deriv γ t - (↑(t - t₀))⁻¹ (1 / 2) ^ n / |t - t₀|
      theorem exists_summable_subseq {γ : } {t₀ : } {L : } (hL : L 0) (hγ_hasderiv : HasDerivAt γ L t₀) (hγ_cont_deriv : ContinuousAt (deriv γ) t₀) (δ₀ : ) (hδ₀_pos : 0 < δ₀) :
      ∃ (ε : ), (∀ (n : ), 0 < ε n) (∀ (n : ), ε (n + 1) ε n / 2) ∀ (n : ) (t : ), 0 < |t - t₀||t - t₀| ε n(γ t - γ t₀)⁻¹ * deriv γ t - (↑(t - t₀))⁻¹ (1 / 2) ^ n / |t - t₀|
      theorem summableSubseqAux_le_geometric {γ : } {t₀ : } {L : } (hL : L 0) (hγ_hasderiv : HasDerivAt γ L t₀) (hγ_cont_deriv : ContinuousAt (deriv γ) t₀) (δ₀ : ) (hδ₀_pos : 0 < δ₀) (n : ) :
      summableSubseqAux hL hγ_hasderiv hγ_cont_deriv δ₀ n summableSubseqAux hL hγ_hasderiv hγ_cont_deriv δ₀ 0 / 2 ^ n

      ε_n ≤ ε_0 / 2^n for the summable subsequence.

      theorem summableSubseqAux_tendsto_zero {γ : } {t₀ : } {L : } (hL : L 0) (hγ_hasderiv : HasDerivAt γ L t₀) (hγ_cont_deriv : ContinuousAt (deriv γ) t₀) (δ₀ : ) (hδ₀_pos : 0 < δ₀) :
      Filter.Tendsto (summableSubseqAux hL hγ_hasderiv hγ_cont_deriv δ₀) Filter.atTop (nhds 0)

      The summable subsequence tends to 0.

      theorem cutoff_integrand_intervalIntegrable {γ : } {a b t₀ : } {L : } (hat₀ : t₀ Set.Ioo a b) (_hL : L 0) (hγ_meas : Measurable γ) (hγ_cont_deriv : ContinuousOn (deriv γ) (Set.Icc a b)) (ε : ) (hε_pos : 0 < ε) :
      IntervalIntegrable (fun (t : ) => if ε < γ t - γ t₀ then (γ t - γ t₀)⁻¹ * deriv γ t else 0) MeasureTheory.volume a b

      Cutoff integrand is interval integrable.

      theorem cutoff_diff_eq_annulus_integral {f γ : } {a b t₀ ε₁ ε₂ : } (h_le : ε₁ ε₂) (h_int₁ : IntervalIntegrable (fun (t : ) => if ε₁ < γ t - γ t₀ then f t else 0) MeasureTheory.volume a b) (h_int₂ : IntervalIntegrable (fun (t : ) => if ε₂ < γ t - γ t₀ then f t else 0) MeasureTheory.volume a b) :
      (( (t : ) in a..b, if ε₁ < γ t - γ t₀ then f t else 0) - (t : ) in a..b, if ε₂ < γ t - γ t₀ then f t else 0) = (t : ) in a..b, if ε₁ < γ t - γ t₀ γ t - γ t₀ ε₂ then f t else 0

      Cutoff difference equals annulus integral.

      theorem pv_singular_cancels (t₀ ε δ : ) (hε_pos : 0 < ε) (hδ_pos : 0 < δ) (hεδ : ε < δ) :
      ( (t : ) in t₀ - δ..t₀ - ε, (↑(t - t₀))⁻¹) + (t : ) in t₀ + ε..t₀ + δ, (↑(t - t₀))⁻¹ = 0

      Singular part cancellation via odd symmetry.

      theorem remainder_step_bound {r : } {t₀ ε η : } (hε_pos : 0 < ε) (_hη_pos : 0 < η) (hr_bound : ∀ (t : ), ε / 2 < |t - t₀||t - t₀| < εr t η / |t - t₀|) :
      (t : ) in t₀ - ε..t₀ - ε / 2, r t + (t : ) in t₀ + ε / 2..t₀ + ε, r t 2 * η * Real.log 2

      Remainder step bound for dyadic step.

      theorem remainder_bounded_ratio {r : } {t₀ ε₁ ε₂ η K : } (hε₁_pos : 0 < ε₁) (hε₁₂ : ε₁ < ε₂) (hη_pos : 0 < η) (_hK : 1 < K) (h_ratio : ε₂ / ε₁ K) (hr_bound : ∀ (t : ), ε₁ < |t - t₀||t - t₀| < ε₂r t η / |t - t₀|) :
      (t : ) in t₀ - ε₂..t₀ - ε₁, r t + (t : ) in t₀ + ε₁..t₀ + ε₂, r t 2 * η * Real.log K

      Remainder bounded ratio for annuli.

      theorem remainder_dyadic_step {r : } {t₀ ε₀ η : } (n : ) (hε₀_pos : 0 < ε₀) (hη_pos : 0 < η) (hr_bound : ∀ (t : ), 0 < |t - t₀||t - t₀| < ε₀r t η / |t - t₀|) :
      (t : ) in t₀ - ε₀ / 2 ^ n..t₀ - ε₀ / 2 ^ (n + 1), r t + (t : ) in t₀ + ε₀ / 2 ^ (n + 1)..t₀ + ε₀ / 2 ^ n, r t 2 * η * Real.log 2

      Dyadic step bound for remainder.

      theorem pv_dyadic_step_O_eps {r : } {t₀ δ₀ C : } (n : ) (hδ₀_pos : 0 < δ₀) (_hC_pos : 0 < C) (hr_bounded : ∀ (t : ), 0 < |t - t₀||t - t₀| δ₀r t C) :
      have ε_n := δ₀ / 2 ^ n; (t : ) in t₀ - ε_n..t₀ - ε_n / 2, r t + (t : ) in t₀ + ε_n / 2..t₀ + ε_n, r t C * ε_n

      Dyadic step O(ε) with bounded remainder.

      theorem cauchySeq_pv_dyadic {I : } {δ₀ C : } (_hδ₀_pos : 0 < δ₀) (_hC_pos : 0 < C) (h_step : ∀ (n : ), I (δ₀ / 2 ^ (n + 1)) - I (δ₀ / 2 ^ n) C * δ₀ / 2 ^ n) :
      CauchySeq fun (n : ) => I (δ₀ / 2 ^ n)

      Dyadic sequence is Cauchy with bounded remainder.

      theorem t_bound_from_gamma_annulus {γ : } {t₀ : } {L : } {δ₁ ε : } (hL : L 0) (_hε_pos : 0 < ε) (h_lower : ∀ (t : ), 0 < |t - t₀||t - t₀| < δ₁γ t - γ t₀ L / 2 * |t - t₀|) (t : ) (ht_pos : 0 < |t - t₀|) (ht_lt : |t - t₀| < δ₁) (hγ_bound : γ t - γ t₀ ε) :
      |t - t₀| 2 * ε / L

      t-space bound from γ-annulus.

      theorem integrand_bound_on_annulus {γ : } {t₀ C δ₀ : } (hr_bounded : ∀ (t : ), 0 < |t - t₀||t - t₀| < δ₀(γ t - γ t₀)⁻¹ * deriv γ t - (↑(t - t₀))⁻¹ C) (t : ) (ht_pos : 0 < |t - t₀|) (ht_lt : |t - t₀| < δ₀) :
      (γ t - γ t₀)⁻¹ * deriv γ t |t - t₀|⁻¹ + C

      Integrand bound on γ-annulus.

      theorem annulus_implies_t_local {γ : } {a b t₀ ε₁ δ₀ δ₁ : } (h_localize : tSet.Icc a b, γ t - γ t₀ ε₁|t - t₀| < min δ₀ δ₁) (t : ) (ht_ab : t Set.Icc a b) (hγ_bound : γ t - γ t₀ ε₁) :
      |t - t₀| < δ₀ |t - t₀| < δ₁

      Annulus localization: γ-annulus points are local.

      theorem exists_dyadic_bracket {δ ε : } (hδ_pos : 0 < δ) (hε_pos : 0 < ε) (hε_le : ε δ) :
      ∃ (n : ), δ / 2 ^ (n + 1) < ε ε δ / 2 ^ n

      Bracket ε between dyadic points: for ε ∈ (0, δ], find n with δ/2^(n+1) < ε ≤ δ/2^n.

      theorem telescoping_sum_bound {X : Type u_1} [SeminormedAddCommGroup X] {I : X} {K δ : } (_hK_pos : 0 < K) (_hδ_pos : 0 < δ) (h_step : ∀ (n : ), I (n + 1) - I n K * δ / 2 ^ n) (N M : ) :
      M > NI M - I N 2 * K * δ / 2 ^ N - 2 * K * δ / 2 ^ M

      Telescoping sum bound for geometric step bounds.