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

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
⊢ 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: 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 =ᶠ[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: 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
⊢ 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: 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 =ᶠ[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 Lp.ae_eq_zero_of_forall_setIntegral_eq_zero f_Lp one_ne_zero ENNReal.coe_ne_top ?_ ?_
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: exact fun s _ _ => Integrable.integrableOn (L1.integrable_coeFn _)
state_before: 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 μ
state_after: no goals

tactic: intro s hs hμs
state_before: 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
state_after: 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 α
hs : MeasurableSet s
hμs : μ s < ⊤
⊢ ∫ (x : α) in s, ↑↑f_Lp x ∂μ = 0

tactic: rw [integral_congr_ae (ae_restrict_of_ae hf_f_Lp.symm)]
state_before: 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 α
hs : MeasurableSet s
hμs : μ s < ⊤
⊢ ∫ (x : α) in s, ↑↑f_Lp x ∂μ = 0
state_after: 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 α
hs : MeasurableSet s
hμs : μ s < ⊤
⊢ ∫ (a : α) in s, f a ∂μ = 0

tactic: exact hf_zero s hs hμs
state_before: 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 α
hs : MeasurableSet s
hμs : μ s < ⊤
⊢ ∫ (a : α) in s, f a ∂μ = 0
state_after: no goals