Smoothness and compact support of an affine-family integral
ProvedcontDiff_top_and_hasCompactSupport_integral_comp_affineLet and be finite-dimensional real normed spaces, and let be (in the sense of ContDiff ℝ ⊤) with compact support. Let be a topological space carrying a measurable structure that is the Borel structure of its topology, and let be a finite measure on . Suppose is compact with , so that is carried by . Let be continuous, let be a continuous family of continuous -linear maps, and let be continuous. Assume there is a real constant with the uniform properness bound for all and all . Then the function
on is and has compact support; both assertions are delivered as a conjunction.
This is differentiation under the integral sign, in a form adapted to an affinely parametrised family of arguments of a fixed smooth compactly supported test function, with the uniform properness hypothesis supplying the compactness of the support of the resulting integral. It serves as the abstract regularity statement for archimedean factors of integrated kernels, and is used in the treatment of twisted unipotent terms, in particular by AutomorphicForm.TwistedBruhat.continuous_and_hasCompactSupport_and_contDiff_integral_archWord and AutomorphicForm.TwistedBruhat.exists_forall_integral_transversal_eq_indicator_mul_prod_unipotentOrbitalFn_unram.
import Mathlib set_option maxHeartbeats 4000000 set_option synthInstance.maxHeartbeats 400000 set_option backward.isDefEq.respectTransparency.types false set_option autoImplicit false open MeasureTheory
theorem contDiff_top_and_hasCompactSupport_integral_comp_affine
{E F : Type*} [NormedAddCommGroup E] [NormedSpace ℝ E] [FiniteDimensional ℝ E]
[NormedAddCommGroup F] [NormedSpace ℝ F] [FiniteDimensional ℝ F]
(Ψ : F → ℂ) (hΨ : ContDiff ℝ (⊤ : ℕ∞) Ψ) (hΨc : HasCompactSupport Ψ)
{P : Type*} [TopologicalSpace P] [MeasurableSpace P] [BorelSpace P]
(μ : Measure P) [IsFiniteMeasure μ] (K : Set P) (hK : IsCompact K) (hμK : μ Kᶜ = 0)
(c : P → ℂ) (hc : Continuous c)
(A : P → (E →L[ℝ] F)) (hA : Continuous A) (b : P → F) (hb : Continuous b)
(C : ℝ) (hproper : ∀ p ∈ K, ∀ e : E, ‖e‖ ≤ C * (‖A p e‖ + 1)) :
ContDiff ℝ (⊤ : ℕ∞) (fun e : E => ∫ p, c p * Ψ (A p e + b p) ∂μ) ∧
HasCompactSupport (fun e : E => ∫ p, c p * Ψ (A p e + b p) ∂μ) := by sorry