Theorem: MeasureTheory.Integrable.ae_eq_zero_of_forall_setIntegral_eq_zero
File: Mathlib/MeasureTheory/Function/AEEqOfIntegral.lean

Proof steps:
state_before: α : Type u_1
E : Type u_2
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
p : ℝ≥0∞
f : α → E
hf : Integrable f μ
hf_zero : ∀ (s : Set α), MeasurableSet s → μ s < ⊤ → ∫ (x : α) in s, f x ∂μ = 0
⊢ f =ᶠ[ae μ] 0
state_after: α : Type u_1
E : Type u_2
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
p : ℝ≥0∞
f : α → E
hf : Integrable f μ
hf_zero : ∀ (s : Set α), MeasurableSet s → μ s < ⊤ → ∫ (x : α) in s, f x ∂μ = 0
hf_Lp : Memℒp f 1 μ
⊢ f =ᶠ[ae μ] 0
tactic: have hf_Lp : Memℒp f 1 μ := memℒp_one_iff_integrable.mpr hf
state_before: α : Type u_1
E : Type u_2
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
p : ℝ≥0∞
f : α → E
hf : Integrable f μ
hf_zero : ∀ (s : Set α), MeasurableSet s → μ s < ⊤ → ∫ (x : α) in s, f x ∂μ = 0
hf_Lp : Memℒp f 1 μ
⊢ f =ᶠ[ae μ] 0
state_after: α : Type u_1
E : Type u_2
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
p : ℝ≥0∞
f : α → E
hf : Integrable f μ
hf_zero : ∀ (s : Set α), MeasurableSet s → μ s < ⊤ → ∫ (x : α) in s, f x ∂μ = 0
hf_Lp : Memℒp f 1 μ
f_Lp : ↥(Lp E 1 μ) := Memℒp.toLp f hf_Lp
⊢ f =ᶠ[ae μ] 0
tactic: let f_Lp := hf_Lp.toLp f
state_before: α : Type u_1
E : Type u_2
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
p : ℝ≥0∞
f : α → E
hf : Integrable f μ
hf_zero : ∀ (s : Set α), MeasurableSet s → μ s < ⊤ → ∫ (x : α) in s, f x ∂μ = 0
hf_Lp : Memℒp f 1 μ
f_Lp : ↥(Lp E 1 μ) := Memℒp.toLp f hf_Lp
⊢ f =ᶠ[ae μ] 0
state_after: α : Type u_1
E : Type u_2
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
p : ℝ≥0∞
f : α → E
hf : Integrable f μ
hf_zero : ∀ (s : Set α), MeasurableSet s → μ s < ⊤ → ∫ (x : α) in s, f x ∂μ = 0
hf_Lp : Memℒp f 1 μ
f_Lp : ↥(Lp E 1 μ) := Memℒp.toLp f hf_Lp
hf_f_Lp : f =ᶠ[ae μ] ↑↑f_Lp
⊢ f =ᶠ[ae μ] 0
tactic: have hf_f_Lp : f =ᵐ[μ] f_Lp := (Memℒp.coeFn_toLp hf_Lp).symm
state_before: α : Type u_1
E : Type u_2
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
p : ℝ≥0∞
f : α → E
hf : Integrable f μ
hf_zero : ∀ (s : Set α), MeasurableSet s → μ s < ⊤ → ∫ (x : α) in s, f x ∂μ = 0
hf_Lp : Memℒp f 1 μ
f_Lp : ↥(Lp E 1 μ) := Memℒp.toLp f hf_Lp
hf_f_Lp : f =ᶠ[ae μ] ↑↑f_Lp
⊢ f =ᶠ[ae μ] 0
state_after: α : Type u_1
E : Type u_2
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
p : ℝ≥0∞
f : α → E
hf : Integrable f μ
hf_zero : ∀ (s : Set α), MeasurableSet s → μ s < ⊤ → ∫ (x : α) in s, f x ∂μ = 0
hf_Lp : Memℒp f 1 μ
f_Lp : ↥(Lp E 1 μ) := Memℒp.toLp f hf_Lp
hf_f_Lp : f =ᶠ[ae μ] ↑↑f_Lp
⊢ ↑↑f_Lp =ᶠ[ae μ] 0
tactic: refine hf_f_Lp.trans ?_
state_before: α : Type u_1
E : Type u_2
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
p : ℝ≥0∞
f : α → E
hf : Integrable f μ
hf_zero : ∀ (s : Set α), MeasurableSet s → μ s < ⊤ → ∫ (x : α) in s, f x ∂μ = 0
hf_Lp : Memℒp f 1 μ
f_Lp : ↥(Lp E 1 μ) := Memℒp.toLp f hf_Lp
hf_f_Lp : f =ᶠ[ae μ] ↑↑f_Lp
⊢ ↑↑f_Lp =ᶠ[ae μ] 0
state_after: case refine_1
α : Type u_1
E : Type u_2
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
p : ℝ≥0∞
f : α → E
hf : Integrable f μ
hf_zero : ∀ (s : Set α), MeasurableSet s → μ s < ⊤ → ∫ (x : α) in s, f x ∂μ = 0
hf_Lp : Memℒp f 1 μ
f_Lp : ↥(Lp E 1 μ) := Memℒp.toLp f hf_Lp
hf_f_Lp : f =ᶠ[ae μ] ↑↑f_Lp
⊢ ∀ (s : Set α), MeasurableSet s → μ s < ⊤ → IntegrableOn (↑↑f_Lp) s μ

case refine_2
α : Type u_1
E : Type u_2
m m0 : MeasurableSpace α
μ : Measure α
s t : Set α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedSpace ℝ E
inst✝ : CompleteSpace E
p : ℝ≥0∞
f : α → E
hf : Integrable f μ
hf_zero : ∀ (s : Set α), MeasurableSet s → μ s < ⊤ → ∫ (x : α) in s, f x ∂μ = 0
hf_Lp : Memℒp f 1 μ
f_Lp : ↥(Lp E 1 μ) := Memℒp.toLp f hf_Lp
hf_f_Lp : f =ᶠ[ae μ] ↑↑f_Lp
⊢ ∀ (s : Set α), MeasurableSet s → μ s < ⊤ → ∫ (x : α) in s, ↑↑f_Lp x ∂μ = 0
tactic: refine Lp.ae_eq_zero_of_forall_setIntegral_eq_zero f_Lp one_ne_zero ENNReal.coe_ne_top ?_ ?_