case pos
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : p = 0
⊢ snorm (Set.indicator s f) p μ = snorm f p (Measure.restrict μ s)

case neg
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
⊢ snorm (Set.indicator s f) p μ = snorm f p (Measure.restrict μ s)
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
⊢ snorm (Set.indicator s f) p μ = snorm f p (Measure.restrict μ s)
by_cases hp_zero : p = 0
case pos
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : p = ⊤
⊢ snorm (Set.indicator s f) p μ = snorm f p (Measure.restrict μ s)

case neg
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : ¬p = ⊤
⊢ snorm (Set.indicator s f) p μ = snorm f p (Measure.restrict μ s)
case neg
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
⊢ snorm (Set.indicator s f) p μ = snorm f p (Measure.restrict μ s)
by_cases hp_top : p = ∞
case neg
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : ¬p = ⊤
⊢ (∫⁻ (x : α), ↑‖Set.indicator s f x‖₊ ^ ENNReal.toReal p ∂μ) ^ (1 / ENNReal.toReal p) =
    (∫⁻ (x : α) in s, ↑‖f x‖₊ ^ ENNReal.toReal p ∂μ) ^ (1 / ENNReal.toReal p)
case neg
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : ¬p = ⊤
⊢ snorm (Set.indicator s f) p μ = snorm f p (Measure.restrict μ s)
simp_rw [snorm_eq_lintegral_rpow_nnnorm hp_zero hp_top]
case neg
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : ¬p = ⊤
⊢ (∫⁻ (x : α), ↑‖Set.indicator s f x‖₊ ^ ENNReal.toReal p ∂μ) = ∫⁻ (x : α) in s, ↑‖f x‖₊ ^ ENNReal.toReal p ∂μ
case neg
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : ¬p = ⊤
⊢ (∫⁻ (x : α), ↑‖Set.indicator s f x‖₊ ^ ENNReal.toReal p ∂μ) ^ (1 / ENNReal.toReal p) =
    (∫⁻ (x : α) in s, ↑‖f x‖₊ ^ ENNReal.toReal p ∂μ) ^ (1 / ENNReal.toReal p)
suffices (∫⁻ x, (‖s.indicator f x‖₊ : ℝ≥0∞) ^ p.toReal ∂μ) =
    ∫⁻ x in s, (‖f x‖₊ : ℝ≥0∞) ^ p.toReal ∂μ by rw [this]
case neg
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : ¬p = ⊤
⊢ (∫⁻ (x : α), ↑‖Set.indicator s f x‖₊ ^ ENNReal.toReal p ∂μ) =
    ∫⁻ (a : α), Set.indicator s (fun x => ↑‖f x‖₊ ^ ENNReal.toReal p) a ∂μ
case neg
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : ¬p = ⊤
⊢ (∫⁻ (x : α), ↑‖Set.indicator s f x‖₊ ^ ENNReal.toReal p ∂μ) = ∫⁻ (x : α) in s, ↑‖f x‖₊ ^ ENNReal.toReal p ∂μ
rw [← lintegral_indicator _ hs]
case neg.e_f
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : ¬p = ⊤
⊢ (fun x => ↑‖Set.indicator s f x‖₊ ^ ENNReal.toReal p) = fun a =>
    Set.indicator s (fun x => ↑‖f x‖₊ ^ ENNReal.toReal p) a
case neg
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : ¬p = ⊤
⊢ (∫⁻ (x : α), ↑‖Set.indicator s f x‖₊ ^ ENNReal.toReal p ∂μ) =
    ∫⁻ (a : α), Set.indicator s (fun x => ↑‖f x‖₊ ^ ENNReal.toReal p) a ∂μ
congr
case neg.e_f
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : ¬p = ⊤
⊢ (fun x => Set.indicator s (fun x => ↑‖f x‖₊) x ^ ENNReal.toReal p) = fun a =>
    Set.indicator s (fun x => ↑‖f x‖₊ ^ ENNReal.toReal p) a
case neg.e_f
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : ¬p = ⊤
⊢ (fun x => ↑‖Set.indicator s f x‖₊ ^ ENNReal.toReal p) = fun a =>
    Set.indicator s (fun x => ↑‖f x‖₊ ^ ENNReal.toReal p) a
simp_rw [nnnorm_indicator_eq_indicator_nnnorm, ENNReal.coe_indicator]
case neg.e_f
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : ¬p = ⊤
h_zero : (fun x => x ^ ENNReal.toReal p) 0 = 0
⊢ (fun x => Set.indicator s (fun x => ↑‖f x‖₊) x ^ ENNReal.toReal p) = fun a =>
    Set.indicator s (fun x => ↑‖f x‖₊ ^ ENNReal.toReal p) a
case neg.e_f
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : ¬p = ⊤
⊢ (fun x => Set.indicator s (fun x => ↑‖f x‖₊) x ^ ENNReal.toReal p) = fun a =>
    Set.indicator s (fun x => ↑‖f x‖₊ ^ ENNReal.toReal p) a
have h_zero : (fun x => x ^ p.toReal) (0 : ℝ≥0∞) = 0 := by
  simp [ENNReal.toReal_pos hp_zero hp_top]
no goals
case neg.e_f
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : ¬p = ⊤
h_zero : (fun x => x ^ ENNReal.toReal p) 0 = 0
⊢ (fun x => Set.indicator s (fun x => ↑‖f x‖₊) x ^ ENNReal.toReal p) = fun a =>
    Set.indicator s (fun x => ↑‖f x‖₊ ^ ENNReal.toReal p) a
exact (Set.indicator_comp_of_zero (g := fun x : ℝ≥0∞ => x ^ p.toReal) h_zero).symm
no goals
case pos
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : p = 0
⊢ snorm (Set.indicator s f) p μ = snorm f p (Measure.restrict μ s)
simp only [hp_zero, snorm_exponent_zero]
case pos
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : p = ⊤
⊢ snormEssSup (Set.indicator s f) μ = snormEssSup f (Measure.restrict μ s)
case pos
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : p = ⊤
⊢ snorm (Set.indicator s f) p μ = snorm f p (Measure.restrict μ s)
simp_rw [hp_top, snorm_exponent_top]
no goals
case pos
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : p = ⊤
⊢ snormEssSup (Set.indicator s f) μ = snormEssSup f (Measure.restrict μ s)
exact snormEssSup_indicator_eq_snormEssSup_restrict hs
no goals
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : ¬p = ⊤
this : (∫⁻ (x : α), ↑‖Set.indicator s f x‖₊ ^ ENNReal.toReal p ∂μ) = ∫⁻ (x : α) in s, ↑‖f x‖₊ ^ ENNReal.toReal p ∂μ
⊢ (∫⁻ (x : α), ↑‖Set.indicator s f x‖₊ ^ ENNReal.toReal p ∂μ) ^ (1 / ENNReal.toReal p) =
    (∫⁻ (x : α) in s, ↑‖f x‖₊ ^ ENNReal.toReal p ∂μ) ^ (1 / ENNReal.toReal p)
rw [this]
no goals
α : Type u_1
E : Type ?u.658895
F : Type u_2
G : Type ?u.658901
m m0 : MeasurableSpace α
p : ℝ≥0∞
q : ℝ
μ ν : Measure α
inst✝² : NormedAddCommGroup E
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedAddCommGroup G
s : Set α
hs✝ : MeasurableSet s
c : E
f✝ : α → E
hf : AEStronglyMeasurable f✝ μ
f : α → F
hs : MeasurableSet s
hp_zero : ¬p = 0
hp_top : ¬p = ⊤
⊢ (fun x => x ^ ENNReal.toReal p) 0 = 0
simp [ENNReal.toReal_pos hp_zero hp_top]