Documentation

LeanPool.OSforGFF.OS.OS3MixedRepInfra

OS3 Infrastructure — Schwinger Parametrization and Fubini Theorems #

The naive Fourier representation of covariance reflection positivity requires exchanging the k₀ integral with the x,y integrals, but the integrand 1/√(k²+m²) is NOT absolutely integrable in 3D k-space. The Schwinger parametrization resolves this:

⟨Θf, Cf⟩ = ∫₀^∞ e^{−sm²} [∫_x ∫_y f*(x) f(y) H(s, |Θx−y|)] ds

where H(s,r) = (4πs)^{−2} exp(−r²/4s) is the heat kernel, bounded by s^{−2}. The integrand is absolutely integrable: Schwartz functions are bounded, H is bounded, and e^{−sm²} provides exponential decay in s.

This file proves the Fubini theorems justifying integration order exchanges between proper-time s, spatial momenta k_sp, and spacetime points x,y. The integrability bounds use |f(x)||f(y)| ≤ C · x₀y₀ / (1+|xbar|²)^N(1+|ybar|²)^N for positive-time test functions, combined with Gaussian moment formulas for the time integrals.

Core Definitions #

noncomputable def spatialDot (k_spatial x_spatial : SpatialCoords) :

Inner product on spatial coordinates: k_spatial · x_spatial = Σᵢ kᵢ xᵢ

Equations
Instances For
    theorem real_inner_eq_mul (x y : ) :
    inner x y = x * y

    Inner product on ℝ equals multiplication.

    theorem spatialDot_eq_inner (k_spatial x_spatial : SpatialCoords) :
    spatialDot k_spatial x_spatial = inner k_spatial x_spatial

    spatialDot equals the real inner product on SpatialCoords.

    Shared norm facts for the Fubini integrand factors #

    The reflection-positivity Fubini integrand is a product of six factors. The following private lemmas record the norm of each factor; they are reused across the Fubini integrability and swap proofs below.

    The inner product on SpaceTime decomposes into time and spatial parts: ⟪k, z⟫ = k₀ z₀ + ⟪k_sp, z_sp⟫ = k₀ z₀ + spatialDot(k_sp, z_sp)

    Integral Decomposition for SpaceTime #

    noncomputable def weightedLaplaceFourier (m : ) (f : TestFunctionℂ) (k_spatial : SpatialCoords) :

    Auxiliary: The weighted Laplace-Fourier transform appearing in reflection positivity. F_ω(k_spatial) = ∫ dx f(x) exp(-|x₀| ω(k)) exp(i k_spatial · x_spatial)

    This is the key quantity that appears after contour integration. For functions supported on positive time (x₀ ≥ 0), this becomes a product of two Fourier-Laplace transforms, leading to the squared norm factorization.

    Equations
    • One or more equations did not get rendered due to their size.
    Instances For

      Time Reflection Properties #

      Time reflection is an involution: Θ(Θx) = x

      Mixed Representation and k₀-inside Form #

      The key step in the reflection positivity proof is to convert the Bessel bilinear form to a momentum representation where the k₀ integral is innermost.

      Important mathematical point: The naive d⁴k momentum integral does NOT converge as a Lebesgue integral (it decays like 1/k² which is not integrable in 4D). The correct procedure uses the "mixed representation" of the Bessel kernel:

      C(x,y) = (1/(2(2π)^{d-1})) ∫_{k_sp} (1/ω) exp(-ω|x₀-y₀|) exp(-i k_sp·(x_sp-y_sp))
      

      This mixed form has:

      The crucial observation is that by fourier_lorentzian_1d_neg: (π/ω) exp(-ω|t|) = ∫_{k₀} exp(-ik₀t)/(k₀²+ω²) dk₀

      So (1/ω) exp(-ω|t|) = (1/π) ∫_{k₀} exp(-ik₀t)/(k₀²+ω²) dk₀

      This allows us to convert between:

      Laplace Integral Identity #

      The key mathematical identity underlying the mixed representation is:

      ∫₀^∞ s^{-1/2} exp(-a/s - bs) ds = √(π/b) exp(-2√(ab))  for a, b > 0
      

      This is a standard result (modified Bessel K_{1/2}) that appears when computing the spatial Fourier transform of the heat kernel integrated against proper time.

      Derivation sketch: The substitution u = √(a/b) exp(t) transforms this into an integral related to K_{1/2}. Since K_{1/2}(z) = √(π/(2z)) exp(-z), the identity follows.

      theorem heatKernel_eq_gaussianFT (s : ) (hs : 0 < s) (z : SpaceTime) :

      d-dimensional Gaussian Fourier transform.

      For d = 4, this states: (1/(2π)^4) ∫_{ℝ^4} exp(-ik·z) exp(-s|k|²) d⁴k = (4πs)^{-2} exp(-|z|²/(4s))

      which equals heatKernelPositionSpace s |z|.

      Proof: Uses Mathlib's integral_cexp_neg_mul_sq_norm_add with b = s, c = -I, w = z: ∫ k, exp(-s‖k‖² + (-I)⟪z,k⟫) = (π/s)^{d/2} * exp((-I)²‖z‖²/(4s)) = (π/s)^{d/2} * exp(-‖z‖²/(4s))

      Combined with the normalization (1/(2π)^d) and the heat kernel formula: (1/(2π)^d) * (π/s)^{d/2} = (4πs)^{-d/2}

      Technical Integration Lemmas #

      The following lemmas establish integrability and measurability conditions that are mathematically standard but require substantial Mathlib plumbing.

      The heat kernel is jointly continuous on (0, ∞) × ℝ as a function of (t, r).

      Heat kernel composition is AEStronglyMeasurable.

      The function p ↦ heatKernelPositionSpace p.1 ‖timeReflection p.2.1 - p.2.2‖ is AEStronglyMeasurable with respect to the restricted product measure (volume.restrict (Set.Ioi 0)).prod (volume.prod volume).

      The heat kernel integral is translation invariant: ∫_y H(s, ‖a - y‖) dy = ∫_z H(s, ‖z‖) dz = 1 for any a ∈ SpaceTime.

      This follows from:

      1. Lebesgue measure on SpaceTime is translation invariant
      2. The norm satisfies ‖a - y‖ = ‖-(y - a)‖ = ‖y - a‖
      3. The heat kernel integrates to 1 (heatKernelPositionSpace_integral_eq_one)

      The translated heat kernel is integrable (since its integral equals 1).

      theorem schwinger_bound_integrand_nonneg (s : ) (hs : 0 < s) (f : TestFunctionℂ) (Cf : ) (hCf_nonneg : 0 Cf) (m : ) (x y : SpaceTime) :

      Nonnegativity of the Schwinger bound integrand (fixed s > 0).

      Integrability in y of the Schwinger bound integrand for fixed s > 0, x.

      Evaluate the y-integral of the Schwinger bound integrand for fixed s > 0, x.

      Integrability in x of the Schwinger bound integrand (after integrating in y).

      Integrability of the Schwinger bound integrand on (x,y) for fixed s > 0.

      theorem schwinger_bound_integrand_integral_xy (s : ) (hs : 0 < s) (f : TestFunctionℂ) (Cf m : ) (hCf_nonneg : 0 Cf) (h_f_int : MeasureTheory.Integrable (fun (x : SpaceTime) => f x) MeasureTheory.volume) :

      Compute the (x,y)-integral of the Schwinger bound integrand for fixed s > 0.

      theorem schwinger_bound_integrable_fubini (m : ) [Fact (0 < m)] (f : TestFunctionℂ) (Cf : ) (hCf : ∀ (x : SpaceTime), f x Cf) (h_f_int : MeasureTheory.Integrable (fun (x : SpaceTime) => f x) MeasureTheory.volume) (hCf_nonneg : 0 Cf) (h_y_eq_one : s > 0, ∀ (x : SpaceTime), (y : SpaceTime), heatKernelPositionSpace s QFT.timeReflection x - y = 1) (h_exp_int : (s : ) in Set.Ioi 0, Real.exp (-s * m ^ 2) = 1 / m ^ 2) :

      Fubini/Tonelli step for Schwinger bound integrability.

      Bound function for Schwinger integrability is integrable.

      For any Schwartz function f and mass m > 0, the bound p ↦ ‖f p.2.1‖ * ‖f‖_∞ * exp(-p.1 * m²) * H(p.1, ‖Θ p.2.1 - p.2.2‖) is integrable on (Ioi 0) × SpaceTime × SpaceTime.

      Proof structure: Using Tonelli's theorem in the order (y, x, s):

      1. ∫_y H(s, ‖Θx - y‖) dy = 1 (heat kernel L¹ normalization by translation)
      2. x ‖f x‖ dx = ‖f‖{L¹} < ∞ (Schwartz integrability)
      3. s exp(-sm²) ds = 1/m² < ∞ (exponential decay) Total: ‖f‖∞ × ‖f‖_{L¹} / m² < ∞

      The proof combines:

      The proof delegates to schwinger_bound_integrable_fubini for the technical Tonelli step.

      Proves that s⁻² * exp(-a/s) is integrable on (0, ∞) by substituting z = 1/s.

      The key insight is that with f(s) = s⁻¹:

      • f '' (0,∞) = (0,∞)
      • f is antitone on (0,∞)
      • f'(s) = -s⁻², so -f'(s) = s⁻²
      • Under substitution z = 1/s: s⁻² * exp(-a/s) ds becomes exp(-a·z) dz
      • ∫₀^∞ exp(-a·z) dz is finite for a > 0

      This uses integrableOn_image_iff_integrableOn_deriv_smul_of_antitoneOn.

      noncomputable def dominateG (C m : ) (p : × SpatialCoords) :

      Dominating function for the Fubini swap in fubini_s_ksp_swap.

      Represents the bound C * s^(3/2) * exp(-s(m² + k²)) which comes from:

      1. Linear vanishing of f at t=0 giving s^(3/2) scaling (offsetting s^(-2) divergence).
      2. Exponential decay in mass and momentum.
      Equations
      Instances For

        Theoretically proven integrability of dominateG.

        Integrable on (0, ∞) × ℝ³ because: ∫ exp(-s|k|²) dk = (π/s)^(3/2). ∫ s^(3/2) * (π/s)^(3/2) * exp(-sm²) ds = π^(3/2) ∫ exp(-sm²) ds. The latter converges for m > 0.

        spatialPart is continuous (projection followed by continuous linear equiv).

        theorem fubini_s_ksp_integrand_stronglyMeasurable (m : ) (f : TestFunctionℂ) :
        MeasureTheory.StronglyMeasurable (Function.uncurry fun (x : ( × SpatialCoords) × SpaceTime) (y : SpaceTime) => (starRingEnd ) (f x.2) * f y * (Real.pi / x.1.1) * Complex.exp (-↑((-x.2.ofLp 0 - y.ofLp 0) ^ 2 / (4 * x.1.1))) * Complex.exp (-x.1.1 * (x.1.2 ^ 2 + m ^ 2)) * Complex.exp (-Complex.I * (spatialDot x.1.2 (spatialPart x.2 - spatialPart y))))

        The integrand for fubini_s_ksp_swap is strongly measurable.

        The integrand is: ((s, k_sp), x, y) ↦ fbar(x) · f(y) · √(π/s) · exp(...) · exp(...) · exp(...)

        After two applications of StronglyMeasurable.integral_prod_right, the type is: (((ℝ × SpatialCoords) × SpaceTime) × SpaceTime) → ℂ represented as x : (ℝ × SpatialCoords) × SpaceTime, y : SpaceTime.

        This is a product of continuous/measurable functions, hence measurable.

        Heat Kernel Moment Bounds #

        The key technical result for hF_le_G is computing the Gaussian moment integral:

        ∫∫_{x₀,y₀>0} x₀ · y₀ · √(π/s) · exp(-(x₀+y₀)²/(4s)) dx₀ dy₀ = (4/3)√π · s^{3/2}

        This is done via change of variables u = x₀ + y₀, v = x₀ - y₀ and standard Gaussian integrals.

        theorem integral_u_cubed_gaussian (s : ) (hs : 0 < s) :
        (u : ) in Set.Ioi 0, u ^ 3 * Real.exp (-u ^ 2 / (4 * s)) = 8 * s ^ 2

        The 1D Gaussian integral ∫₀^∞ u³ exp(-u²/(4s)) du = 8s² for s > 0.

        This follows from the general formula ∫₀^∞ u^n exp(-au²) du using Gamma functions.

        Proof: Using integral_rpow_mul_exp_neg_mul_rpow with p=2, q=3, b=1/(4s):

        • ∫ u³ exp(-b·u²) du = b^(-(3+1)/2) * (1/2) * Γ((3+1)/2)
        • = b^(-2) * (1/2) * Γ(2)
        • = (4s)² * (1/2) * 1 [since Γ(2) = 1]
        • = 8s²
        theorem triangular_fubini_quadrant {f : } (_hf_nn : ∀ (x y : ), 0 x0 y0 f x (x + y)) (hf_int : MeasureTheory.Integrable (fun (p : × ) => (Set.Ioi 0 ×ˢ Set.Ioi 0).indicator (fun (q : × ) => f q.1 (q.1 + q.2)) p) MeasureTheory.volume) :
        (x : ) (y : ) in Set.Ioi 0, f x (x + y) = (u : ) in Set.Ioi 0, (x : ) in Set.Ioo 0 u, f x u

        Triangular Fubini identity for the quadrant-to-triangle change of variables

        For non-negative integrable f, the change of variables u = x + y transforms the integral over the first quadrant {(x,y) : x > 0, y > 0} to an integral over the triangular region {(x,u) : u > 0, 0 < x < u}:

        {x>0} ∫{y>0} f(x, x+y) dy dx = ∫{u>0} ∫{0<x<u} f(x, u) dx du

        This is a standard result from Fubini-Tonelli theorem. The Jacobian of the map (x, y) ↦ (x, u) where u = x + y has determinant 1.

        Proof sketch:

        1. Both regions have the same measure under the product Lebesgue measure
        2. The map (x, y) ↦ (x, x+y) is measure-preserving (shear with det = 1)
        3. Apply Fubini to swap the order of integration
        theorem heat_kernel_moment_integral (s : ) (hs : 0 < s) :
        (x₀ : ) (y₀ : ) in Set.Ioi 0, x₀ * y₀ * (Real.pi / s) * Real.exp (-(x₀ + y₀) ^ 2 / (4 * s)) = 4 / 3 * Real.pi * s ^ (3 / 2)

        The double Gaussian moment integral: ∫∫_{x₀,y₀>0} x₀·y₀·√(π/s)·exp(-(x₀+y₀)²/(4s)) dx₀ dy₀ = (4/3)√π · s^{3/2}

        This is the key bound relating linear vanishing of f at t=0 to the s^{3/2} scaling in dominateG.

        Proof (following user's verification): Let J be the integral. Change variables: u = x₀ + y₀. For fixed u, x₀ ranges from 0 to u, and y₀ = u - x₀. Jacobian = 1.

        J = √(π/s) ∫₀^∞ exp(-u²/(4s)) [∫₀ᵘ x₀(u - x₀) dx₀] du

        Inner integral: ∫₀ᵘ (ux₀ - x₀²) dx₀ = [ux₀²/2 - x₀³/3]₀ᵘ = u³/2 - u³/3 = u³/6

        So: J = √(π/s) · (1/6) · ∫₀^∞ u³ exp(-u²/(4s)) du = √(π/s) · (1/6) · 8s² [by integral_u_cubed_gaussian] = √π · s^(-1/2) · (4/3) · s² = (4/3)√π · s^(3/2)

        theorem heat_kernel_moment_integral_bound (s : ) (hs : 0 < s) :
        (x₀ : ) (y₀ : ) in Set.Ioi 0, x₀ * y₀ * (Real.pi / s) * Real.exp (-(x₀ + y₀) ^ 2 / (4 * s)) 10 * s ^ (3 / 2)

        Bound version: The double Gaussian moment integral is bounded by a constant times s^{3/2}.

        This is a weaker form of heat_kernel_moment_integral that suffices for F_norm_bound_via_linear_vanishing. The exact value is (4/3)√π · s^{3/2}, so we use 10 · s^{3/2} as a comfortable upper bound.

        Proof: Uses heat_kernel_moment_integral and the bound (4/3)√π < 10.

        Helper lemma: t * exp(-b*t²) is integrable on (0, ∞) for b > 0. This follows from integrable_mul_exp_neg_mul_sq restricted to positive reals.

        theorem heat_kernel_inner_integrableOn {s t₁ : } (hs : 0 < s) (ht₁ : 0 t₁) :
        MeasureTheory.IntegrableOn (fun (t₂ : ) => t₂ * Real.exp (-(t₁ + t₂) ^ 2 / (4 * s))) (Set.Ioi 0) MeasureTheory.volume

        Helper lemma: For s > 0 and any t₁ ≥ 0, the function t₂ ↦ t₂ * exp(-(t₁+t₂)²/(4s)) is integrable on (0, ∞). This is the key integrability fact for heat kernel moment bounds.

        Proof: For t₁, t₂ ≥ 0, we have (t₁+t₂)² ≥ t₂², so exp(-(t₁+t₂)²/(4s)) ≤ exp(-t₂²/(4s)), and the integrand is dominated by t₂ * exp(-t₂²/(4s)) which is integrable by gaussian_moment_integrableOn_Ioi.

        The heat kernel moment integrand is integrable on the product quadrant (0,∞)². This is the key integrability result extracted from heat_kernel_moment_integral.

        Heat Kernel Moment - Extended by Zero #

        The key technique for proving integrability of parametric set integrals is to extend the integrand to be zero outside the region of interest, then use global Fubini theorems.

        noncomputable def heatKernelMomentExt (s : ) :

        Heat kernel moment integrand extended by zero outside (0,∞)². F(t₁, t₂) = t₁ · t₂ · √(π/s) · exp(-(t₁+t₂)²/(4s)) for t₁, t₂ > 0, else 0.

        Equations
        Instances For

          The extended heat kernel moment function is integrable on ℝ².

          Proof: The function is nonnegative and has finite integral (equal to (π/2)·s^{3/2} by heat_kernel_moment_integral), hence integrable.

          Mathematical justification: For nonnegative measurable f, ∫ f < ∞ implies Integrable f (Tonelli's theorem). Here f = heatKernelMomentExt and ∫ f = (π/2)·s^{3/2}.

          Reference: Rudin "Real and Complex Analysis" Ch.8 (Tonelli).

          Parametric integral of extended heat kernel moment is integrable on ℝ.

          This follows from Fubini's theorem: if f is integrable on the product, then t₁ ↦ ∫ t₂, f(t₁, t₂) is integrable.

          theorem heatKernelMomentExt_parametric_eq_setIntegral (s t₁ : ) (ht₁ : 0 < t₁) :
          (t₂ : ), heatKernelMomentExt s (t₁, t₂) = (t₂ : ) in Set.Ioi 0, t₁ * t₂ * (Real.pi / s) * Real.exp (-(t₁ + t₂) ^ 2 / (4 * s))

          The parametric integral of the extended function gives a set integral for t₁ > 0.

          theorem heatKernelMoment_setIntegral_integrableOn (s : ) (hs : 0 < s) (c : ) :
          MeasureTheory.IntegrableOn (fun (t₁ : ) => (t₂ : ) in Set.Ioi 0, c * t₁ * t₂ * (Real.pi / s) * Real.exp (-(t₁ + t₂) ^ 2 / (4 * s))) (Set.Ioi 0) MeasureTheory.volume

          Key lemma: The parametric set integral of heat kernel moments is integrable on (0,∞).

          For any constant c ≥ 0, the function t₁ ↦ ∫_{t₂ > 0} c·t₁·t₂·K(t₁,t₂) dt₂ is integrable on (0,∞).

          Proof sketch:

          1. heatKernelMomentExt is integrable on ℝ² (sorry - uses Tonelli + finite integral)
          2. By Fubini, t₁ ↦ ∫ t₂, heatKernelMomentExt(t₁,t₂) is integrable on ℝ
          3. The set integral on (0,∞) equals the full integral (zero outside)
          4. Multiply by constant c preserves integrability
          theorem spacetime_fubini_linear_vanishing_bound (f : TestFunctionℂ) (hf_supp : ∀ (x : SpaceTime), x.ofLp 0 0f x = 0) :
          ∃ (K : ), 0 < K ∀ (s : ), 0 < s (x : SpaceTime) (y : SpaceTime), f x * f y * (Real.pi / s) * Real.exp (-(x.ofLp 0 + y.ofLp 0) ^ 2 / (4 * s)) K * s ^ (3 / 2)

          Fubini factorization for Schwartz functions with linear vanishing.

          For Schwartz f : SpaceTime → ℂ vanishing at t ≤ 0, the double integral with heat kernel factor is bounded by K · s^{3/2} for some constant K > 0.

          Proof strategy (Tonelli factorization):

          1. Use spatialNormIntegral_linear_bound: G(t) := ∫_{ℝ³} ‖f(t,x)‖ dx ≤ C_sp · t
          2. Factor via Tonelli: ∫∫{SpaceTime²} = ∫{time²} G(t₁)·G(t₂) · √(π/s)·exp(...)
          3. Bound: ≤ C_sp² · ∫_{time²} t₁·t₂ · √(π/s)·exp(-(t₁+t₂)²/(4s))
          4. Apply heat_kernel_moment_integral_bound: ≤ C_sp² · 10 · s^{3/2}

          Reference: Rudin "Real and Complex Analysis" Ch.8 (Fubini); Standard heat kernel estimates.

          theorem schwartz_heat_product_aestronglymeasurable (f : TestFunctionℂ) (x : SpaceTime) (c₁ c₂ s : ) (_hs : 0 < s) :

          Schwartz norm–Gaussian product measurability.

          For Schwartz f : SpaceTime → ℂ, constants c₁, c₂ ∈ ℝ, s > 0, and fixed x : SpaceTime, the function a ↦ ‖f x‖ * ‖f a‖ * c₁ * exp(-(x₀ + a₀)²/(4s)) * c₂ is AEStronglyMeasurable.

          Mathematical content: This is standard: norms of Schwartz functions are continuous (hence measurable), Gaussian functions are continuous, and products/scalar multiples of measurable functions are measurable.

          Reference: Rudin "Real and Complex Analysis" Ch.1 (measurable functions); Folland "Real Analysis" Ch.2.

          theorem schwartz_iterated_integral_integrable (f : TestFunctionℂ) (hf_int_norm : MeasureTheory.Integrable (fun (x : SpaceTime) => f x) MeasureTheory.volume) (c₁ c₂ s : ) (hs : 0 < s) :
          MeasureTheory.Integrable (fun (x : SpaceTime) => (y : SpaceTime), f x * f y * c₁ * Real.exp (-(x.ofLp 0 + y.ofLp 0) ^ 2 / (4 * s)) * c₂) MeasureTheory.volume

          Iterated integral integrability for Schwartz-bounded functions.

          For Schwartz f : SpaceTime → ℂ and bounded factors (√(π/s), exp(-sω²)), the function x ↦ ∫_y ‖f x‖ · ‖f y‖ · √(π/s) · exp(-(x₀+y₀)²/(4s)) · exp(-sω²) is integrable.

          Mathematical content: By Fubini/Tonelli, if ∫∫ |F(x,y)| < ∞, then ∫_y |F(x,y)| is integrable in x. Here F(x,y) = ‖f x‖ · ‖f y‖ · (bounded factors), and the double integral is finite by spacetime_fubini_linear_vanishing_bound (using linear vanishing) or by direct Schwartz decay estimates.

          Reference: Rudin "Real and Complex Analysis" Ch.8 (Fubini); Folland "Real Analysis" Ch.2 (Tonelli).

          theorem F_norm_bound_via_linear_vanishing (m : ) [Fact (0 < m)] (f : TestFunctionℂ) (hf_supp : ∀ (x : SpaceTime), x.ofLp 0 0f x = 0) :
          ∃ (C_bound : ), 0 < C_bound ∀ (s : ), 0 < s∀ (k_sp : SpatialCoords), have F_val := (x : SpaceTime) (y : SpaceTime), (starRingEnd ) (f x) * f y * (Real.pi / s) * Complex.exp (-↑((-x.ofLp 0 - y.ofLp 0) ^ 2 / (4 * s))) * Complex.exp (-s * (k_sp ^ 2 + m ^ 2)) * Complex.exp (-Complex.I * (spatialDot k_sp (spatialPart x - spatialPart y))); F_val C_bound * s ^ (3 / 2) * Real.exp (-s * (k_sp ^ 2 + m ^ 2))

          Bound on F(s, k_sp) using linear vanishing of f.

          For f vanishing at t ≤ 0 with |f(x)| ≤ C·x₀, we have: |F(s, k_sp)| ≤ C² · (4/3)√π · s^{3/2} · exp(-s(‖k_sp‖² + m²))

          The constant 100 in dominateG provides ample room for the (4/3)√π ≈ 2.36 factor.

          Proof sketch:

          1. From schwartz_vanishing_linear_bound: |f(x)| ≤ C·x₀ for x₀ > 0
          2. Triangle inequality: |F| ≤ ∫∫ |f(x)||f(y)| · √(π/s) · |exp(...)| dx dy
          3. Key: |exp(-i·...)| = 1, and |f(x)||f(y)| ≤ C²·x₀·y₀
          4. Heat kernel moment integral: ∫∫ x₀·y₀·√(π/s)·exp(-(x₀+y₀)²/(4s)) = (4/3)√π·s^{3/2}
          5. Combine: ≤ C² · (4/3)√π · s^{3/2} · exp(-s(‖k‖²+m²)) < 100 · f_L1² · s^{3/2} · exp(...)

          The detailed calculation is mathematically standard but technically involved. See heat_kernel_moment_integral for the key integral evaluation.

          Mathematical justification: The bound uses the linear vanishing property |f(x)| ≤ C·x₀ for x₀ > 0, which combined with heat_kernel_moment_integral gives |F| ≤ C² · (4/3)√π · s^{3/2} · exp(-sω²). The constant C comes from schwartz_vanishing_linear_bound (derivative bound via MVT).

          theorem fubini_s_ksp_swap (m : ) [Fact (0 < m)] (f : TestFunctionℂ) (hf_supp : ∀ (x : SpaceTime), x.ofLp 0 0f x = 0) :
          (s : ) in Set.Ioi 0, (k_sp : SpatialCoords) (x : SpaceTime) (y : SpaceTime), (starRingEnd ) (f x) * f y * (Real.pi / s) * Complex.exp (-↑((-x.ofLp 0 - y.ofLp 0) ^ 2 / (4 * s))) * Complex.exp (-s * (k_sp ^ 2 + m ^ 2)) * Complex.exp (-Complex.I * (spatialDot k_sp (spatialPart x - spatialPart y))) = (k_sp : SpatialCoords), (s : ) in Set.Ioi 0, (x : SpaceTime) (y : SpaceTime), (starRingEnd ) (f x) * f y * (Real.pi / s) * Complex.exp (-↑((-x.ofLp 0 - y.ofLp 0) ^ 2 / (4 * s))) * Complex.exp (-s * (k_sp ^ 2 + m ^ 2)) * Complex.exp (-Complex.I * (spatialDot k_sp (spatialPart x - spatialPart y)))

          Fubini swap for s ↔ pbar integrals.

          Swaps integration order: ∫₀^∞ ds ∫_ℝ³ d³pbar F(s, pbar) = ∫_ℝ³ d³pbar ∫₀^∞ ds F(s, pbar)

          where the integrand contains:

          • √(π/s) · exp(-t²/(4s)) from the k₀ Gaussian integral
          • exp(-s(|pbar|² + m²)) from the spatial momentum and mass
          • exp(-ipbar·rbar) phase factor

          Justification: Fubini applies because:

          1. The pbar-dependence is Schwartz (Fourier transform of Schwartz test functions)
          2. The s-integrand decays as exp(-s·ω²) where ω² = |pbar|² + m² > 0
          3. Combined integrability on ℝ³ × (0,∞) follows from Integrable.prod_mul

          Note: This is the most delicate step. Requires splitting the region into "small s" (UV, controlling 1/r² singularity) and "large s" (IR, using mass m).

          Validation: Reviewed by Gemini 3 Pro - confirmed mathematically valid, assuming m > 0 which ensures exponential decay at large s for all k_sp.

          Key integrability lemma: Uses integrable_s_inv_sq_exp_neg_inv_s to handle the s^{-1/2} * exp(-t²/(4s)) term via substitution z = 1/s.

          Schwartz function norm is integrable.

          Product of Schwartz norms is integrable on SpaceTime × SpaceTime.

          noncomputable def sXYSwapBound (f : TestFunctionℂ) (m : ) (p : × SpaceTime × SpaceTime) :

          Bound function for s_xy_swap.

          Equations
          Instances For
            theorem fubini_s_xy_swap (m : ) [Fact (0 < m)] (f : TestFunctionℂ) (k_sp : SpatialCoords) :
            (s : ) in Set.Ioi 0, (x : SpaceTime) (y : SpaceTime), (starRingEnd ) (f x) * f y * (Real.pi / s) * Complex.exp (-↑((-x.ofLp 0 - y.ofLp 0) ^ 2 / (4 * s))) * Complex.exp (-s * (k_sp ^ 2 + m ^ 2)) * Complex.exp (-Complex.I * (spatialDot k_sp (spatialPart x - spatialPart y))) = (x : SpaceTime) (y : SpaceTime), (s : ) in Set.Ioi 0, (starRingEnd ) (f x) * f y * (Real.pi / s) * Complex.exp (-↑((-x.ofLp 0 - y.ofLp 0) ^ 2 / (4 * s))) * Complex.exp (-s * (k_sp ^ 2 + m ^ 2)) * Complex.exp (-Complex.I * (spatialDot k_sp (spatialPart x - spatialPart y)))

            Fubini swap for s ↔ (x,y) integrals (for fixed k_sp).

            For fixed k_sp, swaps integration order: ∫₀^∞ ds ∫_x ∫_y F(s,x,y) = ∫_x ∫_y ∫₀^∞ ds F(s,x,y)

            Proof: Uses MeasureTheory.integral_integral_swap with integrability on (Set.Ioi 0) × SpaceTime × SpaceTime. The bound function is s^{-1/2} * exp(-s*m^2) * |f(x)| * |f(y)|.

            Fubini Helper Lemmas #

            These lemmas establish the integrability needed for Fubini swaps in the reflection positivity proof. The key observation is that:

            1. Schwartz functions are L¹: ∫|f(x)| dx < ∞
            2. Gaussians are L¹: ∫ exp(-s‖k‖²) dk = (π/s)^{n/2}
            3. Products of L¹ functions on independent spaces are L¹ on the product

            The common bound for all Fubini swaps is: |integrand| ≤ |f(x)| |f(y)| × C(s) × exp(-s‖k_sp‖²) which factors and is therefore integrable on the product space.

            The Gaussian exp(-s‖k‖²) is integrable over SpatialCoords for s > 0.

            Key Lemma: The integrand for fubini_ksp_xy_swap is absolutely integrable.

            The bound |f(x)| |f(y)| exp(-s‖k_sp‖²) is integrable on SpatialCoords × SpaceTime × SpaceTime because:

            1. ∫_{k_sp} exp(-s‖k_sp‖²) dk_sp = (π/s)^{3/2} < ∞
            2. ∫∫_{x,y} |f(x)| |f(y)| dx dy = ‖f‖₁² < ∞
            3. The product factorizes on independent spaces

            The full Fubini integrand is absolutely integrable on SpatialCoords × SpaceTime × SpaceTime.

            The integrand is: fbar(x) · f(y) · √(π/s) · exp(-t²/4s) · exp(-s‖k_sp‖²) · exp(-ik·r)

            Bound: |integrand| ≤ |f(x)| · |f(y)| · √(π/s) · 1 · exp(-s‖k_sp‖²) · 1 = √(π/s) · |f(x)| · |f(y)| · exp(-s‖k_sp‖²)

            This is a constant multiple of fubini_ksp_xy_integrand_integrable.

            Proof sketch: Apply Integrable.mono' with the bound function √(π/s) * ‖f(x)‖ * ‖f(y)‖ * exp(-s‖k_sp‖²), which is integrable by fubini_ksp_xy_integrand_integrable. The norm bounds follow from:

            • |starRingEnd ℂ (f x)| = |f x|
            • |ofReal (√(π/s))| = √(π/s) (non-negative)
            • |exp(negative real)| ≤ 1
            • |exp(pure imaginary)| = 1
            theorem fubini_ksp_xy_swap (s : ) (hs : 0 < s) (f : TestFunctionℂ) :
            (x : SpaceTime) (y : SpaceTime), (starRingEnd ) (f x) * f y * (Real.pi / s) * Complex.exp (-↑((-x.ofLp 0 - y.ofLp 0) ^ 2 / (4 * s))) * (k_sp : SpatialCoords), Complex.exp (-s * k_sp ^ 2) * Complex.exp (-Complex.I * (spatialDot k_sp (spatialPart x - spatialPart y))) = (k_sp : SpatialCoords) (x : SpaceTime) (y : SpaceTime), (starRingEnd ) (f x) * f y * (Real.pi / s) * Complex.exp (-↑((-x.ofLp 0 - y.ofLp 0) ^ 2 / (4 * s))) * Complex.exp (-s * k_sp ^ 2) * Complex.exp (-Complex.I * (spatialDot k_sp (spatialPart x - spatialPart y)))

            Fubini swap for k_sp ↔ (x,y) integrals.

            For fixed s > 0, swaps integration order: ∫x ∫y (... * ∫{k_sp} F) = ∫{k_sp} ∫_x ∫_y (... * F)

            This moves the spatial momentum integral k_sp from inside the spacetime integrals (x,y) to outside them.

            Proof: Two steps:

            1. Pull the k_sp integral out: A(x,y) * ∫{k_sp} B = ∫{k_sp} A(x,y) * B
            2. Apply Fubini (integral_integral_swap) to swap x,y,k_sp to k_sp,x,y