Theorem: VitaliFamily.ae_tendsto_average
File: Mathlib/MeasureTheory/Covering/Differentiation.lean

tactic: filter_upwards [v.ae_tendsto_average_norm_sub hf, v.ae_eventually_measure_pos] with x hx h'x
state_before: α : Type u_2
inst✝⁷ : MetricSpace α
m0 : MeasurableSpace α
μ : MeasureTheory.Measure α
v : VitaliFamily μ
E : Type u_1
inst✝⁶ : NormedAddCommGroup E
inst✝⁵ : SecondCountableTopology α
inst✝⁴ : BorelSpace α
inst✝³ : IsLocallyFiniteMeasure μ
ρ : MeasureTheory.Measure α
inst✝² : IsLocallyFiniteMeasure ρ
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
f : α → E
hf : Integrable f
⊢ ∀ᵐ (x : α) ∂μ, Tendsto (fun a => ⨍ (y : α) in a, f y ∂μ) (filterAt v x) (𝓝 (f x))

tactic: rw [tendsto_iff_norm_tendsto_zero]
state_before: case h
α : Type u_2
inst✝⁷ : MetricSpace α
m0 : MeasurableSpace α
μ : MeasureTheory.Measure α
v : VitaliFamily μ
E : Type u_1
inst✝⁶ : NormedAddCommGroup E
inst✝⁵ : SecondCountableTopology α
inst✝⁴ : BorelSpace α
inst✝³ : IsLocallyFiniteMeasure μ
ρ : MeasureTheory.Measure α
inst✝² : IsLocallyFiniteMeasure ρ
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
f : α → E
hf : Integrable f
x : α
hx : Tendsto (fun a => ⨍ (y : α) in a, ‖f y - f x‖ ∂μ) (filterAt v x) (𝓝 0)
h'x : ∀ᶠ (a : Set α) in filterAt v x, 0 < ↑↑μ a
⊢ Tendsto (fun a => ⨍ (y : α) in a, f y ∂μ) (filterAt v x) (𝓝 (f x))

tactic: refine' squeeze_zero' (eventually_of_forall fun a => norm_nonneg _) _ hx
state_before: case h
α : Type u_2
inst✝⁷ : MetricSpace α
m0 : MeasurableSpace α
μ : MeasureTheory.Measure α
v : VitaliFamily μ
E : Type u_1
inst✝⁶ : NormedAddCommGroup E
inst✝⁵ : SecondCountableTopology α
inst✝⁴ : BorelSpace α
inst✝³ : IsLocallyFiniteMeasure μ
ρ : MeasureTheory.Measure α
inst✝² : IsLocallyFiniteMeasure ρ
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
f : α → E
hf : Integrable f
x : α
hx : Tendsto (fun a => ⨍ (y : α) in a, ‖f y - f x‖ ∂μ) (filterAt v x) (𝓝 0)
h'x : ∀ᶠ (a : Set α) in filterAt v x, 0 < ↑↑μ a
⊢ Tendsto (fun e => ‖(⨍ (y : α) in e, f y ∂μ) - f x‖) (filterAt v x) (𝓝 0)

tactic: filter_upwards [h'x, v.eventually_measure_lt_top x] with a ha h'a
state_before: case h
α : Type u_2
inst✝⁷ : MetricSpace α
m0 : MeasurableSpace α
μ : MeasureTheory.Measure α
v : VitaliFamily μ
E : Type u_1
inst✝⁶ : NormedAddCommGroup E
inst✝⁵ : SecondCountableTopology α
inst✝⁴ : BorelSpace α
inst✝³ : IsLocallyFiniteMeasure μ
ρ : MeasureTheory.Measure α
inst✝² : IsLocallyFiniteMeasure ρ
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
f : α → E
hf : Integrable f
x : α
hx : Tendsto (fun a => ⨍ (y : α) in a, ‖f y - f x‖ ∂μ) (filterAt v x) (𝓝 0)
h'x : ∀ᶠ (a : Set α) in filterAt v x, 0 < ↑↑μ a
⊢ ∀ᶠ (t : Set α) in filterAt v x, ‖(⨍ (y : α) in t, f y ∂μ) - f x‖ ≤ ⨍ (y : α) in t, ‖f y - f x‖ ∂μ

tactic: nth_rw 1 [← set_average_const ha.ne' h'a.ne (f x)]
state_before: case h
α : Type u_2
inst✝⁷ : MetricSpace α
m0 : MeasurableSpace α
μ : MeasureTheory.Measure α
v : VitaliFamily μ
E : Type u_1
inst✝⁶ : NormedAddCommGroup E
inst✝⁵ : SecondCountableTopology α
inst✝⁴ : BorelSpace α
inst✝³ : IsLocallyFiniteMeasure μ
ρ : MeasureTheory.Measure α
inst✝² : IsLocallyFiniteMeasure ρ
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
f : α → E
hf : Integrable f
x : α
hx : Tendsto (fun a => ⨍ (y : α) in a, ‖f y - f x‖ ∂μ) (filterAt v x) (𝓝 0)
h'x : ∀ᶠ (a : Set α) in filterAt v x, 0 < ↑↑μ a
a : Set α
ha : 0 < ↑↑μ a
h'a : ↑↑μ a < ⊤
⊢ ‖(⨍ (y : α) in a, f y ∂μ) - f x‖ ≤ ⨍ (y : α) in a, ‖f y - f x‖ ∂μ

tactic: simp_rw [set_average_eq']
state_before: case h
α : Type u_2
inst✝⁷ : MetricSpace α
m0 : MeasurableSpace α
μ : MeasureTheory.Measure α
v : VitaliFamily μ
E : Type u_1
inst✝⁶ : NormedAddCommGroup E
inst✝⁵ : SecondCountableTopology α
inst✝⁴ : BorelSpace α
inst✝³ : IsLocallyFiniteMeasure μ
ρ : MeasureTheory.Measure α
inst✝² : IsLocallyFiniteMeasure ρ
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
f : α → E
hf : Integrable f
x : α
hx : Tendsto (fun a => ⨍ (y : α) in a, ‖f y - f x‖ ∂μ) (filterAt v x) (𝓝 0)
h'x : ∀ᶠ (a : Set α) in filterAt v x, 0 < ↑↑μ a
a : Set α
ha : 0 < ↑↑μ a
h'a : ↑↑μ a < ⊤
⊢ ‖(⨍ (y : α) in a, f y ∂μ) - ⨍ (x_1 : α) in a, f x ∂μ‖ ≤ ⨍ (y : α) in a, ‖f y - f x‖ ∂μ

tactic: rw [← integral_sub]
state_before: case h
α : Type u_2
inst✝⁷ : MetricSpace α
m0 : MeasurableSpace α
μ : MeasureTheory.Measure α
v : VitaliFamily μ
E : Type u_1
inst✝⁶ : NormedAddCommGroup E
inst✝⁵ : SecondCountableTopology α
inst✝⁴ : BorelSpace α
inst✝³ : IsLocallyFiniteMeasure μ
ρ : MeasureTheory.Measure α
inst✝² : IsLocallyFiniteMeasure ρ
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
f : α → E
hf : Integrable f
x : α
hx : Tendsto (fun a => ⨍ (y : α) in a, ‖f y - f x‖ ∂μ) (filterAt v x) (𝓝 0)
h'x : ∀ᶠ (a : Set α) in filterAt v x, 0 < ↑↑μ a
a : Set α
ha : 0 < ↑↑μ a
h'a : ↑↑μ a < ⊤
⊢ ‖(∫ (x : α), f x ∂(↑↑μ a)⁻¹ • Measure.restrict μ a) - ∫ (x_1 : α), f x ∂(↑↑μ a)⁻¹ • Measure.restrict μ a‖ ≤
    ∫ (x_1 : α), ‖f x_1 - f x‖ ∂(↑↑μ a)⁻¹ • Measure.restrict μ a

tactic: exact norm_integral_le_integral_norm _
state_before: case h
α : Type u_2
inst✝⁷ : MetricSpace α
m0 : MeasurableSpace α
μ : MeasureTheory.Measure α
v : VitaliFamily μ
E : Type u_1
inst✝⁶ : NormedAddCommGroup E
inst✝⁵ : SecondCountableTopology α
inst✝⁴ : BorelSpace α
inst✝³ : IsLocallyFiniteMeasure μ
ρ : MeasureTheory.Measure α
inst✝² : IsLocallyFiniteMeasure ρ
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
f : α → E
hf : Integrable f
x : α
hx : Tendsto (fun a => ⨍ (y : α) in a, ‖f y - f x‖ ∂μ) (filterAt v x) (𝓝 0)
h'x : ∀ᶠ (a : Set α) in filterAt v x, 0 < ↑↑μ a
a : Set α
ha : 0 < ↑↑μ a
h'a : ↑↑μ a < ⊤
⊢ ‖∫ (a : α), f a - f x ∂(↑↑μ a)⁻¹ • Measure.restrict μ a‖ ≤
    ∫ (x_1 : α), ‖f x_1 - f x‖ ∂(↑↑μ a)⁻¹ • Measure.restrict μ a

tactic: exact (integrable_inv_smul_measure ha.ne' h'a.ne).2 hf.integrableOn
state_before: case h.hf
α : Type u_2
inst✝⁷ : MetricSpace α
m0 : MeasurableSpace α
μ : MeasureTheory.Measure α
v : VitaliFamily μ
E : Type u_1
inst✝⁶ : NormedAddCommGroup E
inst✝⁵ : SecondCountableTopology α
inst✝⁴ : BorelSpace α
inst✝³ : IsLocallyFiniteMeasure μ
ρ : MeasureTheory.Measure α
inst✝² : IsLocallyFiniteMeasure ρ
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
f : α → E
hf : Integrable f
x : α
hx : Tendsto (fun a => ⨍ (y : α) in a, ‖f y - f x‖ ∂μ) (filterAt v x) (𝓝 0)
h'x : ∀ᶠ (a : Set α) in filterAt v x, 0 < ↑↑μ a
a : Set α
ha : 0 < ↑↑μ a
h'a : ↑↑μ a < ⊤
⊢ Integrable fun x => f x

tactic: exact (integrable_inv_smul_measure ha.ne' h'a.ne).2 (integrableOn_const.2 (Or.inr h'a))
state_before: case h.hg
α : Type u_2
inst✝⁷ : MetricSpace α
m0 : MeasurableSpace α
μ : MeasureTheory.Measure α
v : VitaliFamily μ
E : Type u_1
inst✝⁶ : NormedAddCommGroup E
inst✝⁵ : SecondCountableTopology α
inst✝⁴ : BorelSpace α
inst✝³ : IsLocallyFiniteMeasure μ
ρ : MeasureTheory.Measure α
inst✝² : IsLocallyFiniteMeasure ρ
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
f : α → E
hf : Integrable f
x : α
hx : Tendsto (fun a => ⨍ (y : α) in a, ‖f y - f x‖ ∂μ) (filterAt v x) (𝓝 0)
h'x : ∀ᶠ (a : Set α) in filterAt v x, 0 < ↑↑μ a
a : Set α
ha : 0 < ↑↑μ a
h'a : ↑↑μ a < ⊤
⊢ Integrable fun x_1 => f x