Theorem: MeasureTheory.integral_eq_lintegral_pos_part_sub_lintegral_neg_part
File: Mathlib/MeasureTheory/Integral/Bochner.lean

tactic: let f₁ := hf.toL1 f
state_before: α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
⊢ (∫ (a : α), f a ∂μ) =
    ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) - ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (-f a) ∂μ)

tactic: have eq₁ : ENNReal.toReal (∫⁻ a, ENNReal.ofReal <| f a ∂μ) = ‖Lp.posPart f₁‖ := by
  rw [L1.norm_def]
  congr 1
  apply lintegral_congr_ae
  filter_upwards [Lp.coeFn_posPart f₁, hf.coeFn_toL1]with _ h₁ h₂
  rw [h₁, h₂, ENNReal.ofReal]
  congr 1
  apply NNReal.eq
  rw [Real.nnnorm_of_nonneg (le_max_right _ _)]
  rw [Real.coe_toNNReal', NNReal.coe_mk]
state_before: α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
⊢ (∫ (a : α), f a ∂μ) =
    ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) - ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (-f a) ∂μ)

tactic: have eq₂ : ENNReal.toReal (∫⁻ a, ENNReal.ofReal <| -f a ∂μ) = ‖Lp.negPart f₁‖ := by
  rw [L1.norm_def]
  congr 1
  apply lintegral_congr_ae
  filter_upwards [Lp.coeFn_negPart f₁, hf.coeFn_toL1]with _ h₁ h₂
  rw [h₁, h₂, ENNReal.ofReal]
  congr 1
  apply NNReal.eq
  simp only [Real.coe_toNNReal', coe_nnnorm, nnnorm_neg]
  rw [Real.norm_of_nonpos (min_le_right _ _), ← max_neg_neg, neg_zero]
state_before: α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
eq₁ : ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) = ‖Lp.posPart f₁‖
⊢ (∫ (a : α), f a ∂μ) =
    ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) - ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (-f a) ∂μ)

tactic: rw [eq₁, eq₂, integral, dif_pos]
state_before: α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
eq₁ : ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) = ‖Lp.posPart f₁‖
eq₂ : ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (-f a) ∂μ) = ‖Lp.negPart f₁‖
⊢ (∫ (a : α), f a ∂μ) =
    ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) - ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (-f a) ∂μ)

tactic: exact L1.integral_eq_norm_posPart_sub _
state_before: α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
eq₁ : ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) = ‖Lp.posPart f₁‖
eq₂ : ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (-f a) ∂μ) = ‖Lp.negPart f₁‖
⊢ L1.integral (Integrable.toL1 (fun a => f a) ?hc) = ‖Lp.posPart f₁‖ - ‖Lp.negPart f₁‖

case hc
α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
eq₁ : ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) = ‖Lp.posPart f₁‖
eq₂ : ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (-f a) ∂μ) = ‖Lp.negPart f₁‖
⊢ Integrable fun a => f a

tactic: rw [L1.norm_def]
state_before: α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
⊢ ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) = ‖Lp.posPart f₁‖

tactic: congr 1
state_before: α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
⊢ ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) = ENNReal.toReal (∫⁻ (a : α), ↑‖↑↑(Lp.posPart f₁) a‖₊ ∂μ)

tactic: apply lintegral_congr_ae
state_before: case e_a
α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
⊢ (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) = ∫⁻ (a : α), ↑‖↑↑(Lp.posPart f₁) a‖₊ ∂μ

tactic: filter_upwards [Lp.coeFn_posPart f₁, hf.coeFn_toL1]with _ h₁ h₂
state_before: case e_a.h
α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
⊢ (fun a => ENNReal.ofReal (f a)) =ᵐ[μ] fun a => ↑‖↑↑(Lp.posPart f₁) a‖₊

tactic: rw [h₁, h₂, ENNReal.ofReal]
state_before: case h
α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
a✝ : α
h₁ : ↑↑(Lp.posPart (Integrable.toL1 f hf)) a✝ = max (↑↑(Integrable.toL1 f hf) a✝) 0
h₂ : ↑↑(Integrable.toL1 f hf) a✝ = f a✝
⊢ ENNReal.ofReal (f a✝) = ↑‖↑↑(Lp.posPart (Integrable.toL1 f hf)) a✝‖₊

tactic: congr 1
state_before: case h
α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
a✝ : α
h₁ : ↑↑(Lp.posPart (Integrable.toL1 f hf)) a✝ = max (↑↑(Integrable.toL1 f hf) a✝) 0
h₂ : ↑↑(Integrable.toL1 f hf) a✝ = f a✝
⊢ ↑(Real.toNNReal (f a✝)) = ↑‖max (f a✝) 0‖₊

tactic: apply NNReal.eq
state_before: case h.e_a
α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
a✝ : α
h₁ : ↑↑(Lp.posPart (Integrable.toL1 f hf)) a✝ = max (↑↑(Integrable.toL1 f hf) a✝) 0
h₂ : ↑↑(Integrable.toL1 f hf) a✝ = f a✝
⊢ Real.toNNReal (f a✝) = ‖max (f a✝) 0‖₊

tactic: rw [Real.nnnorm_of_nonneg (le_max_right _ _)]
state_before: case h.e_a.a
α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
a✝ : α
h₁ : ↑↑(Lp.posPart (Integrable.toL1 f hf)) a✝ = max (↑↑(Integrable.toL1 f hf) a✝) 0
h₂ : ↑↑(Integrable.toL1 f hf) a✝ = f a✝
⊢ ↑(Real.toNNReal (f a✝)) = ↑‖max (f a✝) 0‖₊

tactic: rw [Real.coe_toNNReal', NNReal.coe_mk]
state_before: case h.e_a.a
α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
a✝ : α
h₁ : ↑↑(Lp.posPart (Integrable.toL1 f hf)) a✝ = max (↑↑(Integrable.toL1 f hf) a✝) 0
h₂ : ↑↑(Integrable.toL1 f hf) a✝ = f a✝
⊢ ↑(Real.toNNReal (f a✝)) = ↑{ val := max (f a✝) 0, property := (_ : 0 ≤ max (f a✝) 0) }

tactic: rw [L1.norm_def]
state_before: α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
eq₁ : ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) = ‖Lp.posPart f₁‖
⊢ ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (-f a) ∂μ) = ‖Lp.negPart f₁‖

tactic: congr 1
state_before: α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
eq₁ : ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) = ‖Lp.posPart f₁‖
⊢ ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (-f a) ∂μ) = ENNReal.toReal (∫⁻ (a : α), ↑‖↑↑(Lp.negPart f₁) a‖₊ ∂μ)

tactic: apply lintegral_congr_ae
state_before: case e_a
α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
eq₁ : ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) = ‖Lp.posPart f₁‖
⊢ (∫⁻ (a : α), ENNReal.ofReal (-f a) ∂μ) = ∫⁻ (a : α), ↑‖↑↑(Lp.negPart f₁) a‖₊ ∂μ

tactic: filter_upwards [Lp.coeFn_negPart f₁, hf.coeFn_toL1]with _ h₁ h₂
state_before: case e_a.h
α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
eq₁ : ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) = ‖Lp.posPart f₁‖
⊢ (fun a => ENNReal.ofReal (-f a)) =ᵐ[μ] fun a => ↑‖↑↑(Lp.negPart f₁) a‖₊

tactic: rw [h₁, h₂, ENNReal.ofReal]
state_before: case h
α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
eq₁ : ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) = ‖Lp.posPart f₁‖
a✝ : α
h₁ : ↑↑(Lp.negPart (Integrable.toL1 f hf)) a✝ = -min (↑↑(Integrable.toL1 f hf) a✝) 0
h₂ : ↑↑(Integrable.toL1 f hf) a✝ = f a✝
⊢ ENNReal.ofReal (-f a✝) = ↑‖↑↑(Lp.negPart (Integrable.toL1 f hf)) a✝‖₊

tactic: congr 1
state_before: case h
α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
eq₁ : ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) = ‖Lp.posPart f₁‖
a✝ : α
h₁ : ↑↑(Lp.negPart (Integrable.toL1 f hf)) a✝ = -min (↑↑(Integrable.toL1 f hf) a✝) 0
h₂ : ↑↑(Integrable.toL1 f hf) a✝ = f a✝
⊢ ↑(Real.toNNReal (-f a✝)) = ↑‖-min (f a✝) 0‖₊

tactic: apply NNReal.eq
state_before: case h.e_a
α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
eq₁ : ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) = ‖Lp.posPart f₁‖
a✝ : α
h₁ : ↑↑(Lp.negPart (Integrable.toL1 f hf)) a✝ = -min (↑↑(Integrable.toL1 f hf) a✝) 0
h₂ : ↑↑(Integrable.toL1 f hf) a✝ = f a✝
⊢ Real.toNNReal (-f a✝) = ‖-min (f a✝) 0‖₊

tactic: simp only [Real.coe_toNNReal', coe_nnnorm, nnnorm_neg]
state_before: case h.e_a.a
α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
eq₁ : ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) = ‖Lp.posPart f₁‖
a✝ : α
h₁ : ↑↑(Lp.negPart (Integrable.toL1 f hf)) a✝ = -min (↑↑(Integrable.toL1 f hf) a✝) 0
h₂ : ↑↑(Integrable.toL1 f hf) a✝ = f a✝
⊢ ↑(Real.toNNReal (-f a✝)) = ↑‖-min (f a✝) 0‖₊

tactic: rw [Real.norm_of_nonpos (min_le_right _ _), ← max_neg_neg, neg_zero]
state_before: case h.e_a.a
α : Type u_1
E : Type ?u.1037517
F : Type ?u.1037520
𝕜 : Type ?u.1037523
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : CompleteSpace E
inst✝⁷ : NontriviallyNormedField 𝕜
inst✝⁶ : NormedSpace 𝕜 E
inst✝⁵ : SMulCommClass ℝ 𝕜 E
inst✝⁴ : NormedAddCommGroup F
inst✝³ : NormedSpace ℝ F
inst✝² : CompleteSpace F
f✝ g : α → E
m : MeasurableSpace α
μ : Measure α
X : Type ?u.1040214
inst✝¹ : TopologicalSpace X
inst✝ : FirstCountableTopology X
f : α → ℝ
hf : Integrable f
f₁ : { x // x ∈ Lp ℝ 1 } := Integrable.toL1 f hf
eq₁ : ENNReal.toReal (∫⁻ (a : α), ENNReal.ofReal (f a) ∂μ) = ‖Lp.posPart f₁‖
a✝ : α
h₁ : ↑↑(Lp.negPart (Integrable.toL1 f hf)) a✝ = -min (↑↑(Integrable.toL1 f hf) a✝) 0
h₂ : ↑↑(Integrable.toL1 f hf) a✝ = f a✝
⊢ max (-f a✝) 0 = ‖min (f a✝) 0‖