Theorem: tendsto_integral_comp_smul_smul_of_integrable
File: Mathlib/MeasureTheory/Integral/PeakFunction.lean

tactic: have I : Integrable φ μ := integrable_of_integral_eq_one h'φ
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
⊢ Tendsto (fun c => ∫ (x : F), (c ^ finrank ℝ F * φ (c • x)) • g x ∂μ) atTop (𝓝 (g 0))
state_after: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ Tendsto (fun c => ∫ (x : F), (c ^ finrank ℝ F * φ (c • x)) • g x ∂μ) atTop (𝓝 (g 0))

tactic: apply tendsto_integral_peak_smul_of_integrable_of_tendsto (t := closedBall 0 1) (x₀ := 0)
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ Tendsto (fun c => ∫ (x : F), (c ^ finrank ℝ F * φ (c • x)) • g x ∂μ) atTop (𝓝 (g 0))
state_after: case ht
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ MeasurableSet (closedBall 0 1)

case h'ts
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ closedBall 0 1 ∈ 𝓝 0

case h't
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ μ (closedBall 0 1) ≠ ⊤

case hnφ
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ ∀ᶠ (i : ℝ) in atTop, ∀ (x : F), 0 ≤ i ^ finrank ℝ F * φ (i • x)

case hlφ
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ ∀ (u : Set F), IsOpen u → 0 ∈ u → TendstoUniformlyOn (fun i x => i ^ finrank ℝ F * φ (i • x)) 0 atTop uᶜ

case hiφ
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ Tendsto (fun i => ∫ (x : F) in closedBall 0 1, i ^ finrank ℝ F * φ (i • x) ∂μ) atTop (𝓝 1)

case h'iφ
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ ∀ᶠ (i : ℝ) in atTop, AEStronglyMeasurable (fun x => i ^ finrank ℝ F * φ (i • x)) μ

case hmg
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ Integrable g μ

case hcg
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ Tendsto g (𝓝 0) (𝓝 (g 0))

tactic: exact isClosed_ball.measurableSet
state_before: case ht
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ MeasurableSet (closedBall 0 1)
state_after: no goals

tactic: exact closedBall_mem_nhds _ zero_lt_one
state_before: case h'ts
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ closedBall 0 1 ∈ 𝓝 0
state_after: no goals

tactic: exact (isCompact_closedBall 0 1).measure_ne_top
state_before: case h't
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ μ (closedBall 0 1) ≠ ⊤
state_after: no goals

tactic: filter_upwards [Ici_mem_atTop 0] with c (hc : 0 ≤ c) x using mul_nonneg (by positivity) (hφ _)
state_before: case hnφ
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ ∀ᶠ (i : ℝ) in atTop, ∀ (x : F), 0 ≤ i ^ finrank ℝ F * φ (i • x)
state_after: no goals

tactic: positivity
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
c : ℝ
hc : 0 ≤ c
x : F
⊢ 0 ≤ c ^ finrank ℝ F
state_after: no goals

tactic: intro u u_open hu
state_before: case hlφ
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ ∀ (u : Set F), IsOpen u → 0 ∈ u → TendstoUniformlyOn (fun i x => i ^ finrank ℝ F * φ (i • x)) 0 atTop uᶜ
state_after: case hlφ
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
⊢ TendstoUniformlyOn (fun i x => i ^ finrank ℝ F * φ (i • x)) 0 atTop uᶜ

tactic: apply tendstoUniformlyOn_iff.2 (fun ε εpos ↦ ?_)
state_before: case hlφ
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
⊢ TendstoUniformlyOn (fun i x => i ^ finrank ℝ F * φ (i • x)) 0 atTop uᶜ
state_after: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
⊢ ∀ᶠ (n : ℝ) in atTop, ∀ x ∈ uᶜ, dist (0 x) (n ^ finrank ℝ F * φ (n • x)) < ε

tactic: obtain ⟨δ, δpos, h'u⟩ : ∃ δ > 0, ball 0 δ ⊆ u := Metric.isOpen_iff.1 u_open _ hu
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
⊢ ∀ᶠ (n : ℝ) in atTop, ∀ x ∈ uᶜ, dist (0 x) (n ^ finrank ℝ F * φ (n • x)) < ε
state_after: case intro.intro
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
⊢ ∀ᶠ (n : ℝ) in atTop, ∀ x ∈ uᶜ, dist (0 x) (n ^ finrank ℝ F * φ (n • x)) < ε

tactic: obtain ⟨M, Mpos, hM⟩ : ∃ M > 0, ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ →
    ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε := by
  rcases (hasBasis_cobounded_compl_closedBall (0 : F)).eventually_iff.1
    ((tendsto_order.1 h).2 (δ ^ finrank ℝ F * ε) (by positivity)) with ⟨M, -, hM⟩
  refine ⟨max M 1, zero_lt_one.trans_le (le_max_right _ _), fun x hx ↦ hM ?_⟩
  simp only [mem_compl_iff, mem_closedBall, dist_zero_right, le_max_iff, not_or, not_le] at hx
  simpa using hx.1
state_before: case intro.intro
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
⊢ ∀ᶠ (n : ℝ) in atTop, ∀ x ∈ uᶜ, dist (0 x) (n ^ finrank ℝ F * φ (n • x)) < ε
state_after: case intro.intro.intro.intro
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
⊢ ∀ᶠ (n : ℝ) in atTop, ∀ x ∈ uᶜ, dist (0 x) (n ^ finrank ℝ F * φ (n • x)) < ε

tactic: filter_upwards [Ioi_mem_atTop (M / δ)] with c (hc : M / δ < c) x hx
state_before: case intro.intro.intro.intro
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
⊢ ∀ᶠ (n : ℝ) in atTop, ∀ x ∈ uᶜ, dist (0 x) (n ^ finrank ℝ F * φ (n • x)) < ε
state_after: case h
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
⊢ dist (0 x) (c ^ finrank ℝ F * φ (c • x)) < ε

tactic: have cpos : 0 < c := lt_trans (by positivity) hc
state_before: case h
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
⊢ dist (0 x) (c ^ finrank ℝ F * φ (c • x)) < ε
state_after: case h
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
⊢ dist (0 x) (c ^ finrank ℝ F * φ (c • x)) < ε

tactic: suffices c ^ finrank ℝ F * φ (c • x) < ε by simpa [abs_of_nonneg (hφ _), abs_of_nonneg cpos.le]
state_before: case h
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
⊢ dist (0 x) (c ^ finrank ℝ F * φ (c • x)) < ε
state_after: case h
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
⊢ c ^ finrank ℝ F * φ (c • x) < ε

tactic: have hδx : δ ≤ ‖x‖ := by
  have : x ∈ (ball 0 δ)ᶜ := fun h ↦ hx (h'u h)
  simpa only [mem_compl_iff, mem_ball, dist_zero_right, not_lt]
state_before: case h
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
⊢ c ^ finrank ℝ F * φ (c • x) < ε
state_after: case h
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ c ^ finrank ℝ F * φ (c • x) < ε

tactic: suffices δ ^ finrank ℝ F * (c ^ finrank ℝ F * φ (c • x)) < δ ^ finrank ℝ F * ε by
  rwa [mul_lt_mul_iff_of_pos_left (by positivity)] at this
state_before: case h
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ c ^ finrank ℝ F * φ (c • x) < ε
state_after: case h
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ δ ^ finrank ℝ F * (c ^ finrank ℝ F * φ (c • x)) < δ ^ finrank ℝ F * ε

tactic: calc
  δ ^ finrank ℝ F * (c ^ finrank ℝ F * φ (c • x))
  _ ≤ ‖x‖ ^ finrank ℝ F * (c ^ finrank ℝ F * φ (c • x)) := by
    gcongr; exact mul_nonneg (by positivity) (hφ _)
  _ = ‖c • x‖ ^ finrank ℝ F * φ (c • x) := by
    simp [norm_smul, abs_of_pos cpos, mul_pow]; ring
  _ < δ ^ finrank ℝ F * ε := by
    apply hM
    rw [div_lt_iff δpos] at hc
    simp only [mem_compl_iff, mem_closedBall, dist_zero_right, norm_smul, Real.norm_eq_abs,
      abs_of_nonneg cpos.le, not_le, gt_iff_lt]
    exact hc.trans_le (by gcongr)
state_before: case h
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ δ ^ finrank ℝ F * (c ^ finrank ℝ F * φ (c • x)) < δ ^ finrank ℝ F * ε
state_after: no goals

tactic: rcases (hasBasis_cobounded_compl_closedBall (0 : F)).eventually_iff.1
  ((tendsto_order.1 h).2 (δ ^ finrank ℝ F * ε) (by positivity)) with ⟨M, -, hM⟩
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
⊢ ∃ M > 0, ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
state_after: case intro.intro
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
⊢ ∃ M > 0, ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε

tactic: refine ⟨max M 1, zero_lt_one.trans_le (le_max_right _ _), fun x hx ↦ hM ?_⟩
state_before: case intro.intro
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
⊢ ∃ M > 0, ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
state_after: case intro.intro
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
x : F
hx : x ∈ (closedBall 0 (max M 1))ᶜ
⊢ x ∈ (closedBall 0 M)ᶜ

tactic: simp only [mem_compl_iff, mem_closedBall, dist_zero_right, le_max_iff, not_or, not_le] at hx
state_before: case intro.intro
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
x : F
hx : x ∈ (closedBall 0 (max M 1))ᶜ
⊢ x ∈ (closedBall 0 M)ᶜ
state_after: case intro.intro
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
x : F
hx : M < ‖x‖ ∧ 1 < ‖x‖
⊢ x ∈ (closedBall 0 M)ᶜ

tactic: simpa using hx.1
state_before: case intro.intro
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
x : F
hx : M < ‖x‖ ∧ 1 < ‖x‖
⊢ x ∈ (closedBall 0 M)ᶜ
state_after: no goals

tactic: positivity
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
⊢ δ ^ finrank ℝ F * ε > 0
state_after: no goals

tactic: positivity
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
⊢ 0 < M / δ
state_after: no goals

tactic: simpa [abs_of_nonneg (hφ _), abs_of_nonneg cpos.le]
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
this : c ^ finrank ℝ F * φ (c • x) < ε
⊢ dist (0 x) (c ^ finrank ℝ F * φ (c • x)) < ε
state_after: no goals

tactic: have : x ∈ (ball 0 δ)ᶜ := fun h ↦ hx (h'u h)
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
⊢ δ ≤ ‖x‖
state_after: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
this : x ∈ (ball 0 δ)ᶜ
⊢ δ ≤ ‖x‖

tactic: simpa only [mem_compl_iff, mem_ball, dist_zero_right, not_lt]
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
this : x ∈ (ball 0 δ)ᶜ
⊢ δ ≤ ‖x‖
state_after: no goals

tactic: rwa [mul_lt_mul_iff_of_pos_left (by positivity)] at this
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
this : δ ^ finrank ℝ F * (c ^ finrank ℝ F * φ (c • x)) < δ ^ finrank ℝ F * ε
⊢ c ^ finrank ℝ F * φ (c • x) < ε
state_after: no goals

tactic: positivity
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
this : δ ^ finrank ℝ F * (c ^ finrank ℝ F * φ (c • x)) < δ ^ finrank ℝ F * ε
⊢ 0 < δ ^ finrank ℝ F
state_after: no goals

tactic: gcongr
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ δ ^ finrank ℝ F * (c ^ finrank ℝ F * φ (c • x)) ≤ ‖x‖ ^ finrank ℝ F * (c ^ finrank ℝ F * φ (c • x))
state_after: case a0
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ 0 ≤ c ^ finrank ℝ F * φ (c • x)

tactic: exact mul_nonneg (by positivity) (hφ _)
state_before: case a0
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ 0 ≤ c ^ finrank ℝ F * φ (c • x)
state_after: no goals

tactic: positivity
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ 0 ≤ c ^ finrank ℝ F
state_after: no goals

tactic: simp [norm_smul, abs_of_pos cpos, mul_pow]
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ ‖x‖ ^ finrank ℝ F * (c ^ finrank ℝ F * φ (c • x)) = ‖c • x‖ ^ finrank ℝ F * φ (c • x)
state_after: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ ‖x‖ ^ finrank ℝ F * (c ^ finrank ℝ F * φ (c • x)) = c ^ finrank ℝ F * ‖x‖ ^ finrank ℝ F * φ (c • x)

tactic: ring
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ ‖x‖ ^ finrank ℝ F * (c ^ finrank ℝ F * φ (c • x)) = c ^ finrank ℝ F * ‖x‖ ^ finrank ℝ F * φ (c • x)
state_after: no goals

tactic: apply hM
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ ‖c • x‖ ^ finrank ℝ F * φ (c • x) < δ ^ finrank ℝ F * ε
state_after: case a
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ c • x ∈ (closedBall 0 M)ᶜ

tactic: rw [div_lt_iff δpos] at hc
state_before: case a
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M / δ < c
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ c • x ∈ (closedBall 0 M)ᶜ
state_after: case a
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M < c * δ
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ c • x ∈ (closedBall 0 M)ᶜ

tactic: simp only [mem_compl_iff, mem_closedBall, dist_zero_right, norm_smul, Real.norm_eq_abs,
  abs_of_nonneg cpos.le, not_le, gt_iff_lt]
state_before: case a
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M < c * δ
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ c • x ∈ (closedBall 0 M)ᶜ
state_after: case a
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M < c * δ
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ M < c * ‖x‖

tactic: exact hc.trans_le (by gcongr)
state_before: case a
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M < c * δ
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ M < c * ‖x‖
state_after: no goals

tactic: gcongr
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
u : Set F
u_open : IsOpen u
hu : 0 ∈ u
ε : ℝ
εpos : ε > 0
δ : ℝ
δpos : δ > 0
h'u : ball 0 δ ⊆ u
M : ℝ
Mpos : M > 0
hM : ∀ ⦃x : F⦄, x ∈ (closedBall 0 M)ᶜ → ‖x‖ ^ finrank ℝ F * φ x < δ ^ finrank ℝ F * ε
c : ℝ
hc : M < c * δ
x : F
hx : x ∈ uᶜ
cpos : 0 < c
hδx : δ ≤ ‖x‖
⊢ c * δ ≤ c * ‖x‖
state_after: no goals

tactic: have : Tendsto (fun c ↦ ∫ (x : F) in closedBall 0 c, φ x ∂μ) atTop (𝓝 1) := by
  rw [← h'φ]
  exact (aecover_closedBall tendsto_id).integral_tendsto_of_countably_generated I
state_before: case hiφ
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ Tendsto (fun i => ∫ (x : F) in closedBall 0 1, i ^ finrank ℝ F * φ (i • x) ∂μ) atTop (𝓝 1)
state_after: case hiφ
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
this : Tendsto (fun c => ∫ (x : F) in closedBall 0 c, φ x ∂μ) atTop (𝓝 1)
⊢ Tendsto (fun i => ∫ (x : F) in closedBall 0 1, i ^ finrank ℝ F * φ (i • x) ∂μ) atTop (𝓝 1)

tactic: apply this.congr'
state_before: case hiφ
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
this : Tendsto (fun c => ∫ (x : F) in closedBall 0 c, φ x ∂μ) atTop (𝓝 1)
⊢ Tendsto (fun i => ∫ (x : F) in closedBall 0 1, i ^ finrank ℝ F * φ (i • x) ∂μ) atTop (𝓝 1)
state_after: case hiφ
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
this : Tendsto (fun c => ∫ (x : F) in closedBall 0 c, φ x ∂μ) atTop (𝓝 1)
⊢ (fun c => ∫ (x : F) in closedBall 0 c, φ x ∂μ) =ᶠ[atTop] fun i =>
    ∫ (x : F) in closedBall 0 1, i ^ finrank ℝ F * φ (i • x) ∂μ

tactic: filter_upwards [Ioi_mem_atTop 0] with c (hc : 0 < c)
state_before: case hiφ
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
this : Tendsto (fun c => ∫ (x : F) in closedBall 0 c, φ x ∂μ) atTop (𝓝 1)
⊢ (fun c => ∫ (x : F) in closedBall 0 c, φ x ∂μ) =ᶠ[atTop] fun i =>
    ∫ (x : F) in closedBall 0 1, i ^ finrank ℝ F * φ (i • x) ∂μ
state_after: case h
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
this : Tendsto (fun c => ∫ (x : F) in closedBall 0 c, φ x ∂μ) atTop (𝓝 1)
c : ℝ
hc : 0 < c
⊢ ∫ (x : F) in closedBall 0 c, φ x ∂μ = ∫ (x : F) in closedBall 0 1, c ^ finrank ℝ F * φ (c • x) ∂μ

tactic: rw [integral_mul_left, setIntegral_comp_smul_of_pos _ _ _ hc, smul_eq_mul, ← mul_assoc,
  mul_inv_cancel (by positivity), _root_.smul_closedBall _ _ zero_le_one]
state_before: case h
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
this : Tendsto (fun c => ∫ (x : F) in closedBall 0 c, φ x ∂μ) atTop (𝓝 1)
c : ℝ
hc : 0 < c
⊢ ∫ (x : F) in closedBall 0 c, φ x ∂μ = ∫ (x : F) in closedBall 0 1, c ^ finrank ℝ F * φ (c • x) ∂μ
state_after: case h
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
this : Tendsto (fun c => ∫ (x : F) in closedBall 0 c, φ x ∂μ) atTop (𝓝 1)
c : ℝ
hc : 0 < c
⊢ ∫ (x : F) in closedBall 0 c, φ x ∂μ = 1 * ∫ (x : F) in closedBall (c • 0) (‖c‖ * 1), φ x ∂μ

tactic: simp [abs_of_nonneg hc.le]
state_before: case h
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
this : Tendsto (fun c => ∫ (x : F) in closedBall 0 c, φ x ∂μ) atTop (𝓝 1)
c : ℝ
hc : 0 < c
⊢ ∫ (x : F) in closedBall 0 c, φ x ∂μ = 1 * ∫ (x : F) in closedBall (c • 0) (‖c‖ * 1), φ x ∂μ
state_after: no goals

tactic: rw [← h'φ]
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ Tendsto (fun c => ∫ (x : F) in closedBall 0 c, φ x ∂μ) atTop (𝓝 1)
state_after: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ Tendsto (fun c => ∫ (x : F) in closedBall 0 c, φ x ∂μ) atTop (𝓝 (∫ (x : F), φ x ∂μ))

tactic: exact (aecover_closedBall tendsto_id).integral_tendsto_of_countably_generated I
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ Tendsto (fun c => ∫ (x : F) in closedBall 0 c, φ x ∂μ) atTop (𝓝 (∫ (x : F), φ x ∂μ))
state_after: no goals

tactic: positivity
state_before: α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
this : Tendsto (fun c => ∫ (x : F) in closedBall 0 c, φ x ∂μ) atTop (𝓝 1)
c : ℝ
hc : 0 < c
⊢ c ^ finrank ℝ F ≠ 0
state_after: no goals

tactic: filter_upwards [Ioi_mem_atTop 0] with c (hc : 0 < c)
state_before: case h'iφ
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ ∀ᶠ (i : ℝ) in atTop, AEStronglyMeasurable (fun x => i ^ finrank ℝ F * φ (i • x)) μ
state_after: case h
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
c : ℝ
hc : 0 < c
⊢ AEStronglyMeasurable (fun x => c ^ finrank ℝ F * φ (c • x)) μ

tactic: exact (I.comp_smul hc.ne').aestronglyMeasurable.const_mul _
state_before: case h
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
c : ℝ
hc : 0 < c
⊢ AEStronglyMeasurable (fun x => c ^ finrank ℝ F * φ (c • x)) μ
state_after: no goals

tactic: exact hg
state_before: case hmg
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ Integrable g μ
state_after: no goals

tactic: exact h'g
state_before: case hcg
α : Type u_1
E : Type u_2
ι : Type u_3
hm : MeasurableSpace α
μ✝ : Measure α
inst✝¹⁰ : TopologicalSpace α
inst✝⁹ : BorelSpace α
inst✝⁸ : NormedAddCommGroup E
inst✝⁷ : NormedSpace ℝ E
g✝ : α → E
l : Filter ι
x₀ : α
s t : Set α
φ✝ : ι → α → ℝ
a : E
inst✝⁶ : CompleteSpace E
F : Type u_4
inst✝⁵ : NormedAddCommGroup F
inst✝⁴ : NormedSpace ℝ F
inst✝³ : FiniteDimensional ℝ F
inst✝² : MeasurableSpace F
inst✝¹ : BorelSpace F
μ : Measure F
inst✝ : μ.IsAddHaarMeasure
φ : F → ℝ
hφ : ∀ (x : F), 0 ≤ φ x
h'φ : ∫ (x : F), φ x ∂μ = 1
h : Tendsto (fun x => ‖x‖ ^ finrank ℝ F * φ x) (cobounded F) (𝓝 0)
g : F → E
hg : Integrable g μ
h'g : ContinuousAt g 0
I : Integrable φ μ
⊢ Tendsto g (𝓝 0) (𝓝 (g 0))
state_after: no goals