L^p boundedness of singular integrals with homogeneous Dini-continuous kernels of mean zero
ProvedDbarRegularity.homogeneousSingularIntegral_lpLet be homogeneous of degree , i.e. for , and assume
- , where is the surface measure on the unit sphere (condition (24));
- the modulus satisfies (condition (25)).
carries Lebesgue measure , and is the norm. Let and for and put
Then
(a) there is a constant , independent of and , such that ;
(b) for each the limit exists in the norm, and .
Formalization Note The sphere measure is Mathlib's volume.toSphere on sphere (0 : EuclideanSpace ℝ (Fin d)) 1; condition (24) does not change if the measure is multiplied by a positive constant. The modulus is the supremum ⨆ … ‖Ω x - Ω x'‖ₑ in ℝ≥0∞, and condition (25) is ∫⁻ δ in Ioc 0 1, w δ / ENNReal.ofReal δ < ⊤. is the Bochner integral ∫ y in {y | ε ≤ ‖y‖}, …; for it converges absolutely at every . The limit is taken along 𝓝[>] 0, and the limit operator is the function g. ENNReal.ofReal p is the exponent, so . The constant A : ℝ≥0 depends on and . Part (c) of Stein's theorem, an explicit formula for the Fourier transform of when , is not included.
import Definitions.Def_DbarRegularity_Setting import Mathlib.Analysis.Calculus.ContDiff.Basic import Mathlib.MeasureTheory.Constructions.HaarToSphere
namespace DbarRegularity
open MeasureTheory Metric Filter Topology
open scoped ENNReal NNReal ContDiff
/-- Stein, *Singular Integrals*, Chapter II, § 4.2, Theorem 3 (a), (b) (p. 39): let `Ω` on `ℝ^d` be
homogeneous of degree `0`, with mean zero on the unit sphere `S^{d-1}` (condition (24)) and with
modulus of continuity `w(δ) = sup {|Ω(x) - Ω(x')| : |x| = |x'| = 1, |x - x'| ≤ δ}` satisfying
`∫₀¹ w(δ) / δ dδ < ∞` (condition (25)). For `1 < p < ∞`, `f ∈ L^p` and
`T_ε f (x) = ∫_{|y| ≥ ε} Ω(y) / |y|^d · f(x - y) dy`:
(a) `‖T_ε f‖_p ≤ A_p ‖f‖_p` with `A_p` independent of `f` and `ε`;
(b) `T f = lim_{ε → 0} T_ε f` exists in `L^p` and `‖T f‖_p ≤ A_p ‖f‖_p`. -/
theorem homogeneousSingularIntegral_lp {d : ℕ} (Ω : EuclideanSpace ℝ (Fin d) → ℂ)
(hhom : ∀ x, ∀ t : ℝ, 0 < t → Ω (t • x) = Ω x)
(hmean : ∫ x : sphere (0 : EuclideanSpace ℝ (Fin d)) 1, Ω x ∂(volume.toSphere) = 0)
(hdini : ∫⁻ δ in Set.Ioc (0 : ℝ) 1,
(⨆ (x : EuclideanSpace ℝ (Fin d)) (x' : EuclideanSpace ℝ (Fin d)) (_ : ‖x‖ = 1)
(_ : ‖x'‖ = 1) (_ : ‖x - x'‖ ≤ δ), ‖Ω x - Ω x'‖ₑ) / ENNReal.ofReal δ < ⊤)
(p : ℝ) (hp : 1 < p) :
∃ A : ℝ≥0,
(∀ ε : ℝ, 0 < ε → ∀ f : EuclideanSpace ℝ (Fin d) → ℂ, MemLp f (ENNReal.ofReal p) volume →
eLpNorm (fun x => ∫ y in {y | ε ≤ ‖y‖}, Ω y / ((‖y‖ ^ d : ℝ) : ℂ) * f (x - y))
(ENNReal.ofReal p) volume
≤ A * eLpNorm f (ENNReal.ofReal p) volume) ∧
∀ f : EuclideanSpace ℝ (Fin d) → ℂ, MemLp f (ENNReal.ofReal p) volume →
∃ g : EuclideanSpace ℝ (Fin d) → ℂ, MemLp g (ENNReal.ofReal p) volume ∧
Tendsto (fun ε : ℝ => eLpNorm
((fun x => ∫ y in {y | ε ≤ ‖y‖}, Ω y / ((‖y‖ ^ d : ℝ) : ℂ) * f (x - y)) - g)
(ENNReal.ofReal p) volume)
(𝓝[>] 0) (𝓝 0) ∧
eLpNorm g (ENNReal.ofReal p) volume ≤ A * eLpNorm f (ENNReal.ofReal p) volume := by sorry
end DbarRegularity
Read-back
What the Lean code literally says, in plain math · claude-opus-5-5
Read-back: DbarRegularity.homogeneousSingularIntegral_lp
Setting. , = EuclideanSpace ℝ (Fin d) with Lebesgue measure. A function and a real .
Hypotheses.
- (hom) for all , (homogeneous of degree 0; unconstrained).
- (mean) , where =
volume.toSphere(Mathlib's surface measure on the unit sphere induced from Lebesgue measure, ); Bochner integral. - (Dini) (lower Lebesgue integral in ), where .
- (real, so ).
Definitions used. eLpNorm · (ofReal p) volume = ; MemLp f p = a.e.-strongly measurable with finite norm. For : (Bochner; is a natural-number power of a real, cast to ).
Conclusion. There is (depending on only) such that
(a) ;
(b) as , and .
Quantifier order: in (a); () in (b), same .
Degenerate cases.
- : the space is one point, the sphere is empty, (mean) and (Dini) hold trivially, so ; conclusion holds with . Harmless.
- : sphere , on , (mean) says (a positive multiple of) : the Hilbert-transform case, which is true.
Soundness checks.
- Lean defaults.
- Bochner integral in (mean): is monotone in , so the Dini condition forces (otherwise ), hence is uniformly continuous and bounded. It is therefore integrable for the finite measure , so (mean) is a genuine mean-zero condition, not something that holds automatically by the "non-integrable gives 0" default.
iSupover an empty set: for and the pair is admissible, so the sup is over a nonempty set. When it is , which is harmless.- Division in ℝ≥0∞: , so
ofReal δlies in , with no division by 0 or . If the hypothesis fails, which is correct. - : is bounded and (since ), so by Hölder the integrand is integrable for every . The Bochner value is the true value and not a default 0. is continuous off , hence measurable.
- The cast is the real with -exponent, as intended. It is nonzero on .
- No
toReal, no rpow at exponent 0, no ContDiff, no ℕ subtraction. , so it cannot be . The exponentofReal plies in .
- Quantifiers: is chosen after and before and ; is chosen after . This is exactly the uniform-in- bound for truncated homogeneous Calderón–Zygmund kernels with Dini-continuous mean-zero angular part, together with convergence of the truncations. It is a standard true theorem, and the hypotheses are satisfiable non-trivially (e.g. Riesz kernels ).
Remarks. carries no measurability hypothesis, but measurability follows from the hypotheses as shown above. Part (b) uses the same constant as (a), which is consistent because the limit inherits the bound.
Verdict: no mis-formalization observed
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.