Uniform Schwartz bounds for compact families of affine pullbacks
Provedexists_isCompact_tsupport_subset_and_norm_pow_mul_norm_iteratedFDeriv_comp_le_of_hasCompactSupportLet be a finite-dimensional real normed space, let and be real normed spaces, and let be a topological space. Let be smooth (of regularity over ) with compact support, let be compact, and let and be maps, continuous on , such that is injective for every . Writing for , the conclusion is the conjunction of two assertions. First, there is a single compact set with for every ; that is, one compact set contains the closures of the supports of all members of the family. Second, for all natural numbers and there is a real constant such that for every and every , where denotes the -th iterated Fréchet derivative over . The quantifier order is the content of the second part: depends on and but is uniform in and in .
This is the uniformity statement that a compact family of affine reparametrisations of a fixed compactly supported smooth function is bounded uniformly in every Schwartz seminorm, with supports confined to one compact set; finite-dimensionality of and injectivity of the linear parts give the uniform lower bound that confines the supports. It is used for the archimedean test-function estimates on the geometric side of the trace formula, where unipotent slices of a smooth compactly supported function on over the archimedean places form such a family.
import Mathlib.Analysis.Calculus.ContDiff.Operations import Mathlib.Analysis.Normed.Module.FiniteDimension set_option maxHeartbeats 4000000 set_option synthInstance.maxHeartbeats 400000 set_option backward.isDefEq.respectTransparency.types false
theorem exists_isCompact_tsupport_subset_and_norm_pow_mul_norm_iteratedFDeriv_comp_le_of_hasCompactSupport
{E E' V P : Type*} [NormedAddCommGroup E] [NormedSpace ℝ E] [FiniteDimensional ℝ E]
[NormedAddCommGroup E'] [NormedSpace ℝ E'] [NormedAddCommGroup V] [NormedSpace ℝ V]
[TopologicalSpace P] {f : E' → V} (hf : ContDiff ℝ (⊤ : ℕ∞) f) (hsupp : HasCompactSupport f)
{Q : Set P} (hQ : IsCompact Q) {c : P → E'} {ℓ : P → E →L[ℝ] E'}
(hc : ContinuousOn c Q) (hℓ : ContinuousOn ℓ Q) (hinj : ∀ p ∈ Q, Function.Injective (ℓ p)) :
(∃ S : Set E, IsCompact S ∧ ∀ p ∈ Q, tsupport (fun x => f (c p + ℓ p x)) ⊆ S) ∧
∀ k n : ℕ, ∃ C : ℝ, ∀ p ∈ Q, ∀ x : E,
‖x‖ ^ k * ‖iteratedFDeriv ℝ n (fun x => f (c p + ℓ p x)) x‖ ≤ C := by sorry