Theorem: SchwartzMap.integrable_of_le_of_pow_mul_le
File: Mathlib/Analysis/Distribution/SchwartzSpace.lean

tactic: apply ((integrable_pow_neg_integrablePower μ).const_mul (2 ^ μ.integrablePower * (C₁ + C₂))).mono'
state_before: 𝕜 : Type u_1
𝕜' : Type u_2
D : Type u_3
E : Type u_4
F : Type u_5
G : Type u_6
V : Type u_7
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup D
inst✝⁵ : NormedSpace ℝ D
inst✝⁴ : MeasurableSpace D
inst✝³ : BorelSpace D
inst✝² : SecondCountableTopology D
inst✝¹ : FiniteDimensional ℝ D
μ : Measure D
inst✝ : μ.HasTemperateGrowth
f : D → E
C₁ C₂ : ℝ
k : ℕ
hf : ∀ (x : D), ‖f x‖ ≤ C₁
h'f : ∀ (x : D), ‖x‖ ^ (k + μ.integrablePower) * ‖f x‖ ≤ C₂
h''f : AEStronglyMeasurable f μ
⊢ Integrable (fun x => ‖x‖ ^ k * ‖f x‖) μ
state_after: case hf
𝕜 : Type u_1
𝕜' : Type u_2
D : Type u_3
E : Type u_4
F : Type u_5
G : Type u_6
V : Type u_7
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup D
inst✝⁵ : NormedSpace ℝ D
inst✝⁴ : MeasurableSpace D
inst✝³ : BorelSpace D
inst✝² : SecondCountableTopology D
inst✝¹ : FiniteDimensional ℝ D
μ : Measure D
inst✝ : μ.HasTemperateGrowth
f : D → E
C₁ C₂ : ℝ
k : ℕ
hf : ∀ (x : D), ‖f x‖ ≤ C₁
h'f : ∀ (x : D), ‖x‖ ^ (k + μ.integrablePower) * ‖f x‖ ≤ C₂
h''f : AEStronglyMeasurable f μ
⊢ AEStronglyMeasurable (fun x => ‖x‖ ^ k * ‖f x‖) μ

case h
𝕜 : Type u_1
𝕜' : Type u_2
D : Type u_3
E : Type u_4
F : Type u_5
G : Type u_6
V : Type u_7
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup D
inst✝⁵ : NormedSpace ℝ D
inst✝⁴ : MeasurableSpace D
inst✝³ : BorelSpace D
inst✝² : SecondCountableTopology D
inst✝¹ : FiniteDimensional ℝ D
μ : Measure D
inst✝ : μ.HasTemperateGrowth
f : D → E
C₁ C₂ : ℝ
k : ℕ
hf : ∀ (x : D), ‖f x‖ ≤ C₁
h'f : ∀ (x : D), ‖x‖ ^ (k + μ.integrablePower) * ‖f x‖ ≤ C₂
h''f : AEStronglyMeasurable f μ
⊢ ∀ᵐ (a : D) ∂μ, ‖‖a‖ ^ k * ‖f a‖‖ ≤ 2 ^ μ.integrablePower * (C₁ + C₂) * (1 + ‖a‖) ^ (-↑μ.integrablePower)

tactic: exact AEStronglyMeasurable.mul (aestronglyMeasurable_id.norm.pow _) h''f.norm
state_before: case hf
𝕜 : Type u_1
𝕜' : Type u_2
D : Type u_3
E : Type u_4
F : Type u_5
G : Type u_6
V : Type u_7
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup D
inst✝⁵ : NormedSpace ℝ D
inst✝⁴ : MeasurableSpace D
inst✝³ : BorelSpace D
inst✝² : SecondCountableTopology D
inst✝¹ : FiniteDimensional ℝ D
μ : Measure D
inst✝ : μ.HasTemperateGrowth
f : D → E
C₁ C₂ : ℝ
k : ℕ
hf : ∀ (x : D), ‖f x‖ ≤ C₁
h'f : ∀ (x : D), ‖x‖ ^ (k + μ.integrablePower) * ‖f x‖ ≤ C₂
h''f : AEStronglyMeasurable f μ
⊢ AEStronglyMeasurable (fun x => ‖x‖ ^ k * ‖f x‖) μ
state_after: no goals

tactic: filter_upwards with v
state_before: case h
𝕜 : Type u_1
𝕜' : Type u_2
D : Type u_3
E : Type u_4
F : Type u_5
G : Type u_6
V : Type u_7
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup D
inst✝⁵ : NormedSpace ℝ D
inst✝⁴ : MeasurableSpace D
inst✝³ : BorelSpace D
inst✝² : SecondCountableTopology D
inst✝¹ : FiniteDimensional ℝ D
μ : Measure D
inst✝ : μ.HasTemperateGrowth
f : D → E
C₁ C₂ : ℝ
k : ℕ
hf : ∀ (x : D), ‖f x‖ ≤ C₁
h'f : ∀ (x : D), ‖x‖ ^ (k + μ.integrablePower) * ‖f x‖ ≤ C₂
h''f : AEStronglyMeasurable f μ
⊢ ∀ᵐ (a : D) ∂μ, ‖‖a‖ ^ k * ‖f a‖‖ ≤ 2 ^ μ.integrablePower * (C₁ + C₂) * (1 + ‖a‖) ^ (-↑μ.integrablePower)
state_after: case h.h
𝕜 : Type u_1
𝕜' : Type u_2
D : Type u_3
E : Type u_4
F : Type u_5
G : Type u_6
V : Type u_7
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup D
inst✝⁵ : NormedSpace ℝ D
inst✝⁴ : MeasurableSpace D
inst✝³ : BorelSpace D
inst✝² : SecondCountableTopology D
inst✝¹ : FiniteDimensional ℝ D
μ : Measure D
inst✝ : μ.HasTemperateGrowth
f : D → E
C₁ C₂ : ℝ
k : ℕ
hf : ∀ (x : D), ‖f x‖ ≤ C₁
h'f : ∀ (x : D), ‖x‖ ^ (k + μ.integrablePower) * ‖f x‖ ≤ C₂
h''f : AEStronglyMeasurable f μ
v : D
⊢ ‖‖v‖ ^ k * ‖f v‖‖ ≤ 2 ^ μ.integrablePower * (C₁ + C₂) * (1 + ‖v‖) ^ (-↑μ.integrablePower)

tactic: simp only [norm_mul, norm_pow, norm_norm]
state_before: case h.h
𝕜 : Type u_1
𝕜' : Type u_2
D : Type u_3
E : Type u_4
F : Type u_5
G : Type u_6
V : Type u_7
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup D
inst✝⁵ : NormedSpace ℝ D
inst✝⁴ : MeasurableSpace D
inst✝³ : BorelSpace D
inst✝² : SecondCountableTopology D
inst✝¹ : FiniteDimensional ℝ D
μ : Measure D
inst✝ : μ.HasTemperateGrowth
f : D → E
C₁ C₂ : ℝ
k : ℕ
hf : ∀ (x : D), ‖f x‖ ≤ C₁
h'f : ∀ (x : D), ‖x‖ ^ (k + μ.integrablePower) * ‖f x‖ ≤ C₂
h''f : AEStronglyMeasurable f μ
v : D
⊢ ‖‖v‖ ^ k * ‖f v‖‖ ≤ 2 ^ μ.integrablePower * (C₁ + C₂) * (1 + ‖v‖) ^ (-↑μ.integrablePower)
state_after: case h.h
𝕜 : Type u_1
𝕜' : Type u_2
D : Type u_3
E : Type u_4
F : Type u_5
G : Type u_6
V : Type u_7
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup D
inst✝⁵ : NormedSpace ℝ D
inst✝⁴ : MeasurableSpace D
inst✝³ : BorelSpace D
inst✝² : SecondCountableTopology D
inst✝¹ : FiniteDimensional ℝ D
μ : Measure D
inst✝ : μ.HasTemperateGrowth
f : D → E
C₁ C₂ : ℝ
k : ℕ
hf : ∀ (x : D), ‖f x‖ ≤ C₁
h'f : ∀ (x : D), ‖x‖ ^ (k + μ.integrablePower) * ‖f x‖ ≤ C₂
h''f : AEStronglyMeasurable f μ
v : D
⊢ ‖v‖ ^ k * ‖f v‖ ≤ 2 ^ μ.integrablePower * (C₁ + C₂) * (1 + ‖v‖) ^ (-↑μ.integrablePower)

tactic: apply pow_mul_le_of_le_of_pow_mul_le (norm_nonneg _) (norm_nonneg _) (hf v) (h'f v)
state_before: case h.h
𝕜 : Type u_1
𝕜' : Type u_2
D : Type u_3
E : Type u_4
F : Type u_5
G : Type u_6
V : Type u_7
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup D
inst✝⁵ : NormedSpace ℝ D
inst✝⁴ : MeasurableSpace D
inst✝³ : BorelSpace D
inst✝² : SecondCountableTopology D
inst✝¹ : FiniteDimensional ℝ D
μ : Measure D
inst✝ : μ.HasTemperateGrowth
f : D → E
C₁ C₂ : ℝ
k : ℕ
hf : ∀ (x : D), ‖f x‖ ≤ C₁
h'f : ∀ (x : D), ‖x‖ ^ (k + μ.integrablePower) * ‖f x‖ ≤ C₂
h''f : AEStronglyMeasurable f μ
v : D
⊢ ‖v‖ ^ k * ‖f v‖ ≤ 2 ^ μ.integrablePower * (C₁ + C₂) * (1 + ‖v‖) ^ (-↑μ.integrablePower)
state_after: no goals