internlm/Lean-Github huggingface dataset:
Theorem: SchwartzMap.iteratedFDeriv_integral_vectorFourierIntegrand_apply'
Proof state before:
case zero
E' : Type ?u.1736571
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
f : 𝓢(E, F)
ξ : E
m : Fin Nat.zero → E
⊢ (iteratedFDeriv ℝ Nat.zero (fun ξ => ∫ (x : E), ((vectorFourierIntegrand ξ) f) x) ξ) m =
    (-(2 * ↑π * I)) ^ Nat.zero •
      ∫ (x : E),
        ((vectorFourierIntegrand ξ)
            ((hasTemperateGrowth_smul (_ : Function.HasTemperateGrowth fun x => ∏ i : Fin Nat.zero, ⟪x, m i⟫_ℝ)) f))
          x
Tactic:
simp [vectorFourierIntegrand_hasTemperateGrowth_smul]
Proof state after:
no goals
Theorem: SchwartzMap.iteratedFDeriv_integral_vectorFourierIntegrand_apply'
Proof state before:
case succ.h
E' : Type ?u.1736571
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
IH :
  ∀ {f : 𝓢(E, F)} {ξ : E} {m : Fin n → E},
    (iteratedFDeriv ℝ n (fun ξ => ∫ (x : E), ((vectorFourierIntegrand ξ) f) x) ξ) m =
      (-(2 * ↑π * I)) ^ n •
        ∫ (x : E),
          ((vectorFourierIntegrand ξ)
              ((hasTemperateGrowth_smul (_ : Function.HasTemperateGrowth fun x => ∏ i : Fin n, ⟪x, m i⟫_ℝ)) f))
            x
f : 𝓢(E, F)
ξ : E
m : Fin (Nat.succ n) → E
x : E
⊢ ↑(Real.fourierChar (Multiplicative.ofAdd (-⟪x, ξ⟫_ℝ))) • ⟪x, m 0⟫_ℝ • (∏ x_1 : Fin n, ⟪x, m (Fin.succ x_1)⟫_ℝ) • f x =
    (⟪x, m 0⟫_ℝ * ∏ x_1 : Fin n, ⟪x, m (Fin.succ x_1)⟫_ℝ) • ↑(Real.fourierChar (Multiplicative.ofAdd (-⟪x, ξ⟫_ℝ))) • f x
Tactic:
simp [smul_comm (_ : ℂ), smul_smul]
Proof state after:
no goals
Theorem: SchwartzMap.iteratedFDeriv_integral_vectorFourierIntegrand_apply'
Proof state before:
E' : Type ?u.1736571
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
IH :
  ∀ {f : 𝓢(E, F)} {ξ : E} {m : Fin n → E},
    (iteratedFDeriv ℝ n (fun ξ => ∫ (x : E), ((vectorFourierIntegrand ξ) f) x) ξ) m =
      (-(2 * ↑π * I)) ^ n •
        ∫ (x : E),
          ((vectorFourierIntegrand ξ)
              ((hasTemperateGrowth_smul (_ : Function.HasTemperateGrowth fun x => ∏ i : Fin n, ⟪x, m i⟫_ℝ)) f))
            x
f : 𝓢(E, F)
ξ : E
m : Fin (Nat.succ n) → E
⊢ Integrable fun x =>
    ((vectorFourierIntegrand ξ)
        (innerSL_smul
          ((hasTemperateGrowth_smul (_ : Function.HasTemperateGrowth fun x => ∏ x_1 : Fin n, ⟪x, m (Fin.succ x_1)⟫_ℝ))
            f)))
      x
Tactic:
exact integrable _
Proof state after:
no goals
Theorem: SchwartzMap.norm_iteratedFDeriv_integral_vectorFourierIntegrand_le
Proof state before:
E' : Type ?u.1793726
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
f : 𝓢(E, F)
ξ : E
C : ℝ
hC : 0 ≤ C
⊢ ‖iteratedFDeriv ℝ n (fun ξ => ∫ (x : E), ((vectorFourierIntegrand ξ) f) x) ξ‖ ≤ (2 * π) ^ n * C
Tactic:
rw [ContinuousMultilinearMap.opNorm_le_iff _ (mul_nonneg (by simp [Real.pi_pos.le]) hC)]
Proof state after:
E' : Type ?u.1793726
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
f : 𝓢(E, F)
ξ : E
C : ℝ
hC : 0 ≤ C
⊢ ∀ (m : Fin n → E),
    ‖(iteratedFDeriv ℝ n (fun ξ => ∫ (x : E), ((vectorFourierIntegrand ξ) f) x) ξ) m‖ ≤
      (2 * π) ^ n * C * ∏ i : Fin n, ‖m i‖
Theorem: SchwartzMap.norm_iteratedFDeriv_integral_vectorFourierIntegrand_le
Proof state before:
E' : Type ?u.1793726
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
f : 𝓢(E, F)
ξ : E
C : ℝ
hC : 0 ≤ C
⊢ ∀ (m : Fin n → E),
    ‖(iteratedFDeriv ℝ n (fun ξ => ∫ (x : E), ((vectorFourierIntegrand ξ) f) x) ξ) m‖ ≤
      (2 * π) ^ n * C * ∏ i : Fin n, ‖m i‖
Tactic:
intro m
Proof state after:
E' : Type ?u.1793726
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
f : 𝓢(E, F)
ξ : E
C : ℝ
hC : 0 ≤ C
m : Fin n → E
⊢ ‖(iteratedFDeriv ℝ n (fun ξ => ∫ (x : E), ((vectorFourierIntegrand ξ) f) x) ξ) m‖ ≤
    (2 * π) ^ n * C * ∏ i : Fin n, ‖m i‖
Theorem: SchwartzMap.norm_iteratedFDeriv_integral_vectorFourierIntegrand_le
Proof state before:
E' : Type ?u.1793726
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
f : 𝓢(E, F)
ξ : E
C : ℝ
hC : 0 ≤ C
m : Fin n → E
⊢ ‖(iteratedFDeriv ℝ n (fun ξ => ∫ (x : E), ((vectorFourierIntegrand ξ) f) x) ξ) m‖ ≤
    (2 * π) ^ n * C * ∏ i : Fin n, ‖m i‖
Tactic:
rw [iteratedFDeriv_integral_vectorFourierIntegrand_apply]
Proof state after:
E' : Type ?u.1793726
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
f : 𝓢(E, F)
ξ : E
C : ℝ
hC : 0 ≤ C
m : Fin n → E
⊢ ‖(-(2 * ↑π * I)) ^ n • ∫ (x : E), (∏ i : Fin n, ⟪x, m i⟫_ℝ) • ((vectorFourierIntegrand ξ) f) x‖ ≤
    (2 * π) ^ n * C * ∏ i : Fin n, ‖m i‖
Theorem: SchwartzMap.norm_iteratedFDeriv_integral_vectorFourierIntegrand_le
Proof state before:
E' : Type ?u.1793726
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
f : 𝓢(E, F)
ξ : E
C : ℝ
hC : 0 ≤ C
m : Fin n → E
⊢ ‖(-(2 * ↑π * I)) ^ n • ∫ (x : E), (∏ i : Fin n, ⟪x, m i⟫_ℝ) • ((vectorFourierIntegrand ξ) f) x‖ ≤
    (2 * π) ^ n * C * ∏ i : Fin n, ‖m i‖
Tactic:
rw [norm_smul, mul_assoc _ C]
Proof state after:
E' : Type ?u.1793726
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
f : 𝓢(E, F)
ξ : E
C : ℝ
hC : 0 ≤ C
m : Fin n → E
⊢ ‖(-(2 * ↑π * I)) ^ n‖ * ‖∫ (x : E), (∏ i : Fin n, ⟪x, m i⟫_ℝ) • ((vectorFourierIntegrand ξ) f) x‖ ≤
    (2 * π) ^ n * (C * ∏ i : Fin n, ‖m i‖)
Theorem: SchwartzMap.norm_iteratedFDeriv_integral_vectorFourierIntegrand_le
Proof state before:
E' : Type ?u.1793726
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
f : 𝓢(E, F)
ξ : E
C : ℝ
hC : 0 ≤ C
m : Fin n → E
⊢ ‖(-(2 * ↑π * I)) ^ n‖ * ‖∫ (x : E), (∏ i : Fin n, ⟪x, m i⟫_ℝ) • ((vectorFourierIntegrand ξ) f) x‖ ≤
    (2 * π) ^ n * (C * ∏ i : Fin n, ‖m i‖)
Tactic:
refine mul_le_mul (by simp [_root_.abs_of_nonneg Real.pi_pos.le]) ?_
  (norm_nonneg _) (by simp [Real.pi_pos.le])
Proof state after:
E' : Type ?u.1793726
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
f : 𝓢(E, F)
ξ : E
C : ℝ
hC : 0 ≤ C
m : Fin n → E
⊢ ‖∫ (x : E), (∏ i : Fin n, ⟪x, m i⟫_ℝ) • ((vectorFourierIntegrand ξ) f) x‖ ≤ C * ∏ i : Fin n, ‖m i‖
Theorem: SchwartzMap.norm_iteratedFDeriv_integral_vectorFourierIntegrand_le
Proof state before:
E' : Type ?u.1793726
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
f : 𝓢(E, F)
ξ : E
C : ℝ
hC : 0 ≤ C
m : Fin n → E
⊢ ‖∫ (x : E), (∏ i : Fin n, ⟪x, m i⟫_ℝ) • ((vectorFourierIntegrand ξ) f) x‖ ≤ C * ∏ i : Fin n, ‖m i‖
Tactic:
refine le_trans (norm_integral_le_integral_norm _) ?_
Proof state after:
E' : Type ?u.1793726
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
f : 𝓢(E, F)
ξ : E
C : ℝ
hC : 0 ≤ C
m : Fin n → E
⊢ ∫ (a : E), ‖(∏ i : Fin n, ⟪a, m i⟫_ℝ) • ((vectorFourierIntegrand ξ) f) a‖ ≤ C * ∏ i : Fin n, ‖m i‖
Theorem: SchwartzMap.norm_iteratedFDeriv_integral_vectorFourierIntegrand_le
Proof state before:
E' : Type ?u.1793726
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
f : 𝓢(E, F)
ξ : E
C : ℝ
hC : 0 ≤ C
m : Fin n → E
⊢ ∫ (a : E), ‖(∏ i : Fin n, ⟪a, m i⟫_ℝ) • ((vectorFourierIntegrand ξ) f) a‖ ≤ C * ∏ i : Fin n, ‖m i‖
Tactic:
simp only [norm_smul]
Proof state after:
E' : Type ?u.1793726
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
f : 𝓢(E, F)
ξ : E
C : ℝ
hC : 0 ≤ C
m : Fin n → E
⊢ ∫ (a : E), ‖∏ i : Fin n, ⟪a, m i⟫_ℝ‖ * ‖((vectorFourierIntegrand ξ) f) a‖ ≤ C * ∏ i : Fin n, ‖m i‖
Theorem: SchwartzMap.norm_iteratedFDeriv_integral_vectorFourierIntegrand_le
Proof state before:
E' : Type ?u.1793726
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
f : 𝓢(E, F)
ξ : E
C : ℝ
hC : 0 ≤ C
m : Fin n → E
⊢ ∫ (a : E), ‖∏ i : Fin n, ⟪a, m i⟫_ℝ‖ * ‖((vectorFourierIntegrand ξ) f) a‖ ≤ C * ∏ i : Fin n, ‖m i‖
Tactic:
sorry
Proof state after:
no goals
Theorem: SchwartzMap.norm_iteratedFDeriv_integral_vectorFourierIntegrand_le
Proof state before:
E' : Type ?u.1793726
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
f : 𝓢(E, F)
ξ : E
C : ℝ
hC : 0 ≤ C
⊢ 0 ≤ (2 * π) ^ n
Tactic:
simp [Real.pi_pos.le]
Proof state after:
no goals
Theorem: SchwartzMap.norm_iteratedFDeriv_integral_vectorFourierIntegrand_le
Proof state before:
E' : Type ?u.1793726
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
f : 𝓢(E, F)
ξ : E
C : ℝ
hC : 0 ≤ C
m : Fin n → E
⊢ ‖(-(2 * ↑π * I)) ^ n‖ ≤ (2 * π) ^ n
Tactic:
simp [_root_.abs_of_nonneg Real.pi_pos.le]
Proof state after:
no goals
Theorem: SchwartzMap.norm_iteratedFDeriv_integral_vectorFourierIntegrand_le
Proof state before:
E' : Type ?u.1793726
ι : Type u_1
𝕜 : Type u_2
𝕜' : Type u_3
R : Type u_4
M : ι → Type u_5
D : Type u_6
E : Type u_7
F : Type u_8
G : Type u_9
inst✝²² : DecidableEq ι
inst✝²¹ : Fintype ι
inst✝²⁰ : NontriviallyNormedField 𝕜
inst✝¹⁹ : (i : ι) → NormedAddCommGroup (M i)
inst✝¹⁸ : (i : ι) → NormedSpace ℝ (M i)
inst✝¹⁷ : NormedAddCommGroup D
inst✝¹⁶ : NormedSpace ℝ D
inst✝¹⁵ : NormedAddCommGroup E
inst✝¹⁴ : InnerProductSpace ℝ E
inst✝¹³ : NormedAddCommGroup E'
inst✝¹² : InnerProductSpace ℝ E'
inst✝¹¹ : NormedAddCommGroup F
inst✝¹⁰ : NormedSpace ℂ F
inst✝⁹ : NormedSpace 𝕜 F
inst✝⁸ : NormedAddCommGroup G
inst✝⁷ : NormedSpace ℝ G
inst✝⁶ : MeasurableSpace E
inst✝⁵ : FiniteDimensional ℝ E
inst✝⁴ : BorelSpace E
inst✝³ : MeasurableSpace E'
inst✝² : FiniteDimensional ℝ E'
inst✝¹ : BorelSpace E'
inst✝ : CompleteSpace F
n : ℕ
f : 𝓢(E, F)
ξ : E
C : ℝ
hC : 0 ≤ C
m : Fin n → E
⊢ 0 ≤ (2 * π) ^ n
Tactic:
simp [Real.pi_pos.le]
Proof state after:
no goals
Theorem: rpow_to_npow
Proof state before:
r : ℝ
n : ℕ
h : r = ↑n
x : ℝ
⊢ x ^ r = x ^ n
Tactic:
simp [h]
Proof state after:
no goals
Theorem: DiracSeq.one
Proof state before:
x : ℝ
⊢ DiracSeq 1 x = (sqrt π)⁻¹ * rexp (-x ^ 2)
Tactic:
simp [DiracSeq]
Proof state after:
no goals
Theorem: DiracSeq.expNegSq
Proof state before:
x : ℝ
⊢ sqrt π * DiracSeq 1 x = rexp (-x ^ 2)
Tactic:
simp [DiracSeq]
Proof state after:
x : ℝ
⊢ sqrt π * ((sqrt π)⁻¹ * rexp (-x ^ 2)) = rexp (-x ^ 2)