Theorem: MeasureTheory.integral_rnDeriv_smul
File: Mathlib/MeasureTheory/Decomposition/RadonNikodym.lean

tactic: by_cases hf : Integrable f μ
state_before: α✝ : Type u_1
β : Type u_2
m✝ : MeasurableSpace α✝
α : Type u_3
m : MeasurableSpace α
μ ν : Measure α
E : Type u_4
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedSpace ℝ E
inst✝² : CompleteSpace E
inst✝¹ : μ.HaveLebesgueDecomposition ν
hμν : μ ≪ ν
inst✝ : SigmaFinite μ
f : α → E
⊢ ∫ (x : α), (μ.rnDeriv ν x).toReal • f x ∂ν = ∫ (x : α), f x ∂μ
state_after: case pos
α✝ : Type u_1
β : Type u_2
m✝ : MeasurableSpace α✝
α : Type u_3
m : MeasurableSpace α
μ ν : Measure α
E : Type u_4
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedSpace ℝ E
inst✝² : CompleteSpace E
inst✝¹ : μ.HaveLebesgueDecomposition ν
hμν : μ ≪ ν
inst✝ : SigmaFinite μ
f : α → E
hf : Integrable f μ
⊢ ∫ (x : α), (μ.rnDeriv ν x).toReal • f x ∂ν = ∫ (x : α), f x ∂μ

case neg
α✝ : Type u_1
β : Type u_2
m✝ : MeasurableSpace α✝
α : Type u_3
m : MeasurableSpace α
μ ν : Measure α
E : Type u_4
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedSpace ℝ E
inst✝² : CompleteSpace E
inst✝¹ : μ.HaveLebesgueDecomposition ν
hμν : μ ≪ ν
inst✝ : SigmaFinite μ
f : α → E
hf : ¬Integrable f μ
⊢ ∫ (x : α), (μ.rnDeriv ν x).toReal • f x ∂ν = ∫ (x : α), f x ∂μ

tactic: rw [← integral_univ, ← withDensityᵥ_apply ((integrable_rnDeriv_smul_iff hμν).mpr hf) .univ,
  ← integral_univ, ← withDensityᵥ_apply hf .univ, withDensityᵥ_rnDeriv_smul hμν hf]
state_before: case pos
α✝ : Type u_1
β : Type u_2
m✝ : MeasurableSpace α✝
α : Type u_3
m : MeasurableSpace α
μ ν : Measure α
E : Type u_4
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedSpace ℝ E
inst✝² : CompleteSpace E
inst✝¹ : μ.HaveLebesgueDecomposition ν
hμν : μ ≪ ν
inst✝ : SigmaFinite μ
f : α → E
hf : Integrable f μ
⊢ ∫ (x : α), (μ.rnDeriv ν x).toReal • f x ∂ν = ∫ (x : α), f x ∂μ
state_after: no goals

tactic: rw [integral_undef hf, integral_undef]
state_before: case neg
α✝ : Type u_1
β : Type u_2
m✝ : MeasurableSpace α✝
α : Type u_3
m : MeasurableSpace α
μ ν : Measure α
E : Type u_4
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedSpace ℝ E
inst✝² : CompleteSpace E
inst✝¹ : μ.HaveLebesgueDecomposition ν
hμν : μ ≪ ν
inst✝ : SigmaFinite μ
f : α → E
hf : ¬Integrable f μ
⊢ ∫ (x : α), (μ.rnDeriv ν x).toReal • f x ∂ν = ∫ (x : α), f x ∂μ
state_after: case neg
α✝ : Type u_1
β : Type u_2
m✝ : MeasurableSpace α✝
α : Type u_3
m : MeasurableSpace α
μ ν : Measure α
E : Type u_4
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedSpace ℝ E
inst✝² : CompleteSpace E
inst✝¹ : μ.HaveLebesgueDecomposition ν
hμν : μ ≪ ν
inst✝ : SigmaFinite μ
f : α → E
hf : ¬Integrable f μ
⊢ ¬Integrable (fun x => (μ.rnDeriv ν x).toReal • f x) ν

tactic: contrapose! hf
state_before: case neg
α✝ : Type u_1
β : Type u_2
m✝ : MeasurableSpace α✝
α : Type u_3
m : MeasurableSpace α
μ ν : Measure α
E : Type u_4
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedSpace ℝ E
inst✝² : CompleteSpace E
inst✝¹ : μ.HaveLebesgueDecomposition ν
hμν : μ ≪ ν
inst✝ : SigmaFinite μ
f : α → E
hf : ¬Integrable f μ
⊢ ¬Integrable (fun x => (μ.rnDeriv ν x).toReal • f x) ν
state_after: case neg
α✝ : Type u_1
β : Type u_2
m✝ : MeasurableSpace α✝
α : Type u_3
m : MeasurableSpace α
μ ν : Measure α
E : Type u_4
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedSpace ℝ E
inst✝² : CompleteSpace E
inst✝¹ : μ.HaveLebesgueDecomposition ν
hμν : μ ≪ ν
inst✝ : SigmaFinite μ
f : α → E
hf : Integrable (fun x => (μ.rnDeriv ν x).toReal • f x) ν
⊢ Integrable f μ

tactic: exact (integrable_rnDeriv_smul_iff hμν).mp hf
state_before: case neg
α✝ : Type u_1
β : Type u_2
m✝ : MeasurableSpace α✝
α : Type u_3
m : MeasurableSpace α
μ ν : Measure α
E : Type u_4
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedSpace ℝ E
inst✝² : CompleteSpace E
inst✝¹ : μ.HaveLebesgueDecomposition ν
hμν : μ ≪ ν
inst✝ : SigmaFinite μ
f : α → E
hf : Integrable (fun x => (μ.rnDeriv ν x).toReal • f x) ν
⊢ Integrable f μ
state_after: no goals