Fourier interpolation in dimensions 8 and 24
DefinitionRadial function#✓fully proved
A function is radial if it takes the same value at points with the same norm.
def Radial {E F : Type*} [Norm E] (f : E → F) : Prop :=
∀ e e' : E, ‖e‖ = ‖e'‖ → f e = f e'
Used by 2
AbbreviationEmbedding of the first coordinate axis#✓fully proved
For a positive integer \(n\), this is the map \(\mathbb{R} \to \mathbb{R}^n\) sending \(r\) to \((r, 0, \dots, 0)\), whose image is the first coordinate axis.
abbrev realIncl {n : ℕ} [NeZero n] (r : ℝ) : EuclideanSpace ℝ (Fin n) :=
WithLp.toLp 2 (if · = 0 then r else 0)
Used by 1
DefinitionFourier sample sequences#✓fully proved
Let \(n \ge 1\) and \(k_0 \ge 0\) be integers, let \(f\) be a complex-valued Schwartz function on \(\mathbb{R}^n\) with Fourier transform \(\hat f(\xi) = \int f(x) e^{-2\pi i \langle x, \xi \rangle}\,dx\), let \(e_1\) be the first standard basis vector and let \(r_k = \sqrt{2k}\). The samples of \(f\) are the four complex sequences indexed by the integers \(k \ge k_0\) whose \(k\)-th terms are, in this order, \(f(r_k e_1)\), \(\hat f(r_k e_1)\), the derivative at \(r = r_k\) of \(r \mapsto f(r e_1)\), and the derivative at \(r = r_k\) of \(r \mapsto \hat f(r e_1)\).
noncomputable def coeffs (n k₀ : ℕ) [NeZero n]
(f : 𝓢(EuclideanSpace ℝ (Fin n), ℂ)) :
(Set.Ici k₀ × Fin 4) → ℂ :=
Function.uncurry fun k ↦
let r := Real.sqrt (2 * k)
let fhat :=
FourierTransform.fourierCLM ℂ (𝓢(EuclideanSpace ℝ (Fin n), ℂ)) f
![f (realIncl r), fhat (realIncl r),
deriv (f ∘ realIncl) r, deriv (fhat ∘ realIncl) r]
abbrev realIncl {n : ℕ} [NeZero n] (r : ℝ) : EuclideanSpace ℝ (Fin n) :=
WithLp.toLp 2 (if · = 0 then r else 0)
WantedExt/Analysis/CKMRVInterpolationWanted.lean:66
Uses 1 · Used by 1
DefinitionRapidly decreasing sequences#✓fully proved
For a natural number \(k_0\), a complex sequence \((a_k)_{k \ge k_0}\) indexed by the integers \(k \ge k_0\) is rapidly decreasing if \(k^m |a_k| \to 0\) as \(k \to \infty\) for every natural number \(m\).
def RapidlyDecreasing {k₀ : ℕ} (a : Set.Ici k₀ → ℂ) : Prop :=
∀ m : ℕ,
Tendsto (fun k ↦ (k.1 : ℝ) ^ m * ‖a k‖) atTop (𝓝 0)
Used by 1
DefinitionRapidly decreasing sample quadruples#✓fully proved
For a natural number \(k_0\), a family \((a_{k,j})\) of complex numbers indexed by the integers \(k \ge k_0\) and \(j \in \{0, 1, 2, 3\}\) is a rapidly decreasing quadruple if each of its four sequences \((a_{k,j})_{k \ge k_0}\) is rapidly decreasing, that is, \(k^m |a_{k,j}| \to 0\) as \(k \to \infty\) for every \(j\) and every natural number \(m\).
def RapidlyDecreasingSamples {k₀ : ℕ}
(a : (Set.Ici k₀ × Fin 4) → ℂ) : Prop :=
∀ j, RapidlyDecreasing fun k ↦ a (k, j)
def RapidlyDecreasing {k₀ : ℕ} (a : Set.Ici k₀ → ℂ) : Prop :=
∀ m : ℕ,
Tendsto (fun k ↦ (k.1 : ℝ) ^ m * ‖a k‖) atTop (𝓝 0)
WantedExt/Analysis/CKMRVInterpolationWanted.lean:83
Uses 1 · Used by 2
AbbreviationRadial Schwartz functions#✓fully proved
For a natural number \(n\), this is the set of complex-valued Schwartz functions \(f\) on \(\mathbb{R}^n\) that are radial: \(f(x) = f(y)\) whenever \(|x| = |y|\).
abbrev RadialSchwartz (n : ℕ) :=
{f : 𝓢(EuclideanSpace ℝ (Fin n), ℂ) // Radial f}
def Radial {E F : Type*} [Norm E] (f : E → F) : Prop :=
∀ e e' : E, ‖e‖ = ‖e'‖ → f e = f e'
WantedExt/Analysis/CKMRVInterpolationWanted.lean:62
Uses 1 · Used by 1
AbbreviationRapidly decreasing sample data#✓fully proved
For a natural number \(k_0\), this is the set of families \((a_{k,j})\) of complex numbers indexed by the integers \(k \ge k_0\) and \(j \in \{0, 1, 2, 3\}\) whose four sequences \((a_{k,j})_{k \ge k_0}\) are all rapidly decreasing: \(k^m |a_{k,j}| \to 0\) as \(k \to \infty\) for every \(j\) and every natural number \(m\).
abbrev RapidSampleData (k₀ : ℕ) :=
{a : (Set.Ici k₀ × Fin 4) → ℂ // RapidlyDecreasingSamples a}
def RapidlyDecreasingSamples {k₀ : ℕ}
(a : (Set.Ici k₀ × Fin 4) → ℂ) : Prop :=
∀ j, RapidlyDecreasing fun k ↦ a (k, j)
WantedExt/Analysis/CKMRVInterpolationWanted.lean:88
Uses 1 · Used by 1
DefinitionRadial Fourier interpolation property#✓fully proved
Let \(n \ge 1\) and \(k_0 \ge 0\) be integers. For a complex-valued Schwartz function \(f\) on \(\mathbb{R}^n\), let \(\hat f(\xi) = \int f(x) e^{-2\pi i \langle x, \xi \rangle}\,dx\) be its Fourier transform, let \(e_1\) be the first standard basis vector and let \(r_k = \sqrt{2k}\). The sampling map from index \(k_0\) sends \(f\) to the four complex sequences indexed by the integers \(k \ge k_0\) whose \(k\)-th terms are \(f(r_k e_1)\), \(\hat f(r_k e_1)\) and the derivatives at \(r = r_k\) of \(r \mapsto f(r e_1)\) and of \(r \mapsto \hat f(r e_1)\). Call \(f\) radial if \(f(x) = f(y)\) whenever \(|x| = |y|\), and call a sequence \((a_k)_{k \ge k_0}\) rapidly decreasing if \(k^m |a_k| \to 0\) as \(k \to \infty\) for every natural number \(m\). The property \(\mathrm{CKMRV}(n, k_0)\) holds when the sampling map from index \(k_0\) is a bijection from the radial Schwartz functions on \(\mathbb{R}^n\) onto the quadruples of rapidly decreasing sequences indexed by \(k \ge k_0\).
The bijection is required to be the sampling map itself, so no interpolation basis is hidden in the definition.
def CKMRV (n k₀ : ℕ) [NeZero n] : Prop :=
∃ e : RadialSchwartz n ≃ RapidSampleData k₀,
∀ f, (e f).1 = coeffs n k₀ f.1
abbrev RadialSchwartz (n : ℕ) :=
{f : 𝓢(EuclideanSpace ℝ (Fin n), ℂ) // Radial f}
WantedExt/Analysis/CKMRVInterpolationWanted.lean:93
abbrev RapidSampleData (k₀ : ℕ) :=
{a : (Set.Ici k₀ × Fin 4) → ℂ // RapidlyDecreasingSamples a}
WantedExt/Analysis/CKMRVInterpolationWanted.lean:97
noncomputable def coeffs (n k₀ : ℕ) [NeZero n]
(f : 𝓢(EuclideanSpace ℝ (Fin n), ℂ)) :
(Set.Ici k₀ × Fin 4) → ℂ :=
Function.uncurry fun k ↦
let r := Real.sqrt (2 * k)
let fhat :=
FourierTransform.fourierCLM ℂ (𝓢(EuclideanSpace ℝ (Fin n), ℂ)) f
![f (realIncl r), fhat (realIncl r),
deriv (f ∘ realIncl) r, deriv (fhat ∘ realIncl) r]
WantedExt/Analysis/CKMRVInterpolationWanted.lean:71
Uses 5 · Used by 1
TheoremCohn–Kumar–Miller–Radchenko–Viazovska Fourier interpolation theorem#●ready to prove
Let \((n, k_0)\) be \((8, 1)\) or \((24, 2)\). For a complex-valued Schwartz function \(f\) on \(\mathbb{R}^n\), let \(\hat f(\xi) = \int f(x) e^{-2\pi i \langle x, \xi \rangle}\,dx\) be its Fourier transform, let \(e_1\) be the first standard basis vector and let \(r_k = \sqrt{2k}\). The sampling map sends \(f\) to the four complex sequences indexed by the integers \(k \ge k_0\) whose \(k\)-th terms are \(f(r_k e_1)\), \(\hat f(r_k e_1)\) and the derivatives at \(r = r_k\) of \(r \mapsto f(r e_1)\) and of \(r \mapsto \hat f(r e_1)\). Call \(f\) radial if \(f(x) = f(y)\) whenever \(|x| = |y|\), and call a sequence \((a_k)_{k \ge k_0}\) rapidly decreasing if \(k^m |a_k| \to 0\) as \(k \to \infty\) for every natural number \(m\). Then the sampling map is a bijection from the radial Schwartz functions on \(\mathbb{R}^n\) onto the quadruples of rapidly decreasing sequences indexed by \(k \ge k_0\). So sampling starts at radius \(\sqrt 2\) in dimension \(8\) and at radius \(2\) in dimension \(24\).
public theorem_wanted ckmrv_fourier_interpolation :
CKMRV 8 1 ∧ CKMRV 24 2
def CKMRV (n k₀ : ℕ) [NeZero n] : Prop :=
∃ e : RadialSchwartz n ≃ RapidSampleData k₀,
∀ f, (e f).1 = coeffs n k₀ f.1
WantedExt/Analysis/CKMRVInterpolationWanted.lean:102
Sources
- H. Cohn, A. Kumar, S. D. Miller, D. Radchenko, and M. Viazovska, 'Universal optimality of the E8 and Leech lattices and interpolation formulas', Ann. of Math. 196 (2022), 983-1082, Theorem 1.9, https://doi.org/10.4007/annals.2022.196.3.3. Problem
ckmrv_fourier_interpolationof the lean-eval benchmark.
Uses 1
Loading dependency explorer…
The dependency explorer needs JavaScript and its graph data.