Theorem: MeasureTheory.memℒp_add_of_disjoint
File: Mathlib/MeasureTheory/Function/LpSpace.lean

tactic: borelize E
state_before: α : Type u_1
E : Type u_2
F : Type ?u.704975
G : Type ?u.704978
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E
f g : α → E
h : Disjoint (support f) (support g)
hf : StronglyMeasurable f
hg : StronglyMeasurable g
⊢ Memℒp (f + g) p ↔ Memℒp f p ∧ Memℒp g p

tactic: refine' ⟨fun hfg => ⟨_, _⟩, fun h => h.1.add h.2⟩
state_before: α : Type u_1
E : Type u_2
F : Type ?u.704975
G : Type ?u.704978
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E
f g : α → E
h : Disjoint (support f) (support g)
hf : StronglyMeasurable f
hg : StronglyMeasurable g
this✝¹ : MeasurableSpace E := borel E
this✝ : BorelSpace E
⊢ Memℒp (f + g) p ↔ Memℒp f p ∧ Memℒp g p

tactic: rw [← Set.indicator_add_eq_left h]
state_before: case refine'_1
α : Type u_1
E : Type u_2
F : Type ?u.704975
G : Type ?u.704978
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E
f g : α → E
h : Disjoint (support f) (support g)
hf : StronglyMeasurable f
hg : StronglyMeasurable g
this✝¹ : MeasurableSpace E := borel E
this✝ : BorelSpace E
hfg : Memℒp (f + g) p
⊢ Memℒp f p

tactic: exact hfg.indicator (measurableSet_support hf.measurable)
state_before: case refine'_1
α : Type u_1
E : Type u_2
F : Type ?u.704975
G : Type ?u.704978
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E
f g : α → E
h : Disjoint (support f) (support g)
hf : StronglyMeasurable f
hg : StronglyMeasurable g
this✝¹ : MeasurableSpace E := borel E
this✝ : BorelSpace E
hfg : Memℒp (f + g) p
⊢ Memℒp (Set.indicator (support f) (f + g)) p

tactic: rw [← Set.indicator_add_eq_right h]
state_before: case refine'_2
α : Type u_1
E : Type u_2
F : Type ?u.704975
G : Type ?u.704978
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E
f g : α → E
h : Disjoint (support f) (support g)
hf : StronglyMeasurable f
hg : StronglyMeasurable g
this✝¹ : MeasurableSpace E := borel E
this✝ : BorelSpace E
hfg : Memℒp (f + g) p
⊢ Memℒp g p

tactic: exact hfg.indicator (measurableSet_support hg.measurable)
state_before: case refine'_2
α : Type u_1
E : Type u_2
F : Type ?u.704975
G : Type ?u.704978
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs : MeasurableSet s
hμs : ↑↑μ s ≠ ⊤
c : E
f g : α → E
h : Disjoint (support f) (support g)
hf : StronglyMeasurable f
hg : StronglyMeasurable g
this✝¹ : MeasurableSpace E := borel E
this✝ : BorelSpace E
hfg : Memℒp (f + g) p
⊢ Memℒp (Set.indicator (support g) (f + g)) p