-- Mathlib/MeasureTheory/Function/LpSpace/Basic.lean
theorem add_compLp (L L' : E →L[𝕜] F) (f : Lp E p μ) :
    (L + L').compLp f = L.compLp f + L'.compLp f

Proof state:
case h
α : Type u_1
E : Type u_4
F : Type u_5
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedAddCommGroup F
𝕜 : Type u_7
inst✝² : NontriviallyNormedField 𝕜
inst✝¹ : NormedSpace 𝕜 E
inst✝ : NormedSpace 𝕜 F
L L' : E →L[𝕜] F
f : ↥(Lp E p μ)
⊢ (fun a => (L + L') (↑↑f a)) =ᶠ[ae μ] ↑↑(L.compLp f) + ↑↑(L'.compLp f)

Tactic:
refine
  EventuallyEq.trans ?_ (EventuallyEq.add (L.coeFn_compLp' f).symm (L'.coeFn_compLp' f).symm)

Result:
case h
α : Type u_1
E : Type u_4
F : Type u_5
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedAddCommGroup F
𝕜 : Type u_7
inst✝² : NontriviallyNormedField 𝕜
inst✝¹ : NormedSpace 𝕜 E
inst✝ : NormedSpace 𝕜 F
L L' : E →L[𝕜] F
f : ↥(Lp E p μ)
⊢ (fun a => (L + L') (↑↑f a)) =ᶠ[ae μ] fun x => L (↑↑f x) + L' (↑↑f x)

Proof state:
case h
α : Type u_1
E : Type u_4
F : Type u_5
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedAddCommGroup F
𝕜 : Type u_7
inst✝² : NontriviallyNormedField 𝕜
inst✝¹ : NormedSpace 𝕜 E
inst✝ : NormedSpace 𝕜 F
L L' : E →L[𝕜] F
f : ↥(Lp E p μ)
⊢ (fun a => (L + L') (↑↑f a)) =ᶠ[ae μ] fun x => L (↑↑f x) + L' (↑↑f x)

Tactic:
filter_upwards with x

Result:
case h.h
α : Type u_1
E : Type u_4
F : Type u_5
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedAddCommGroup F
𝕜 : Type u_7
inst✝² : NontriviallyNormedField 𝕜
inst✝¹ : NormedSpace 𝕜 E
inst✝ : NormedSpace 𝕜 F
L L' : E →L[𝕜] F
f : ↥(Lp E p μ)
x : α
⊢ (L + L') (↑↑f x) = L (↑↑f x) + L' (↑↑f x)

Proof state:
α : Type u_1
E : Type u_4
F : Type u_5
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedAddCommGroup F
𝕜 : Type u_7
inst✝² : NontriviallyNormedField 𝕜
inst✝¹ : NormedSpace 𝕜 E
inst✝ : NormedSpace 𝕜 F
L L' : E →L[𝕜] F
f : ↥(Lp E p μ)
⊢ (L + L').compLp f = L.compLp f + L'.compLp f

Tactic:
ext1

Result:
case h
α : Type u_1
E : Type u_4
F : Type u_5
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedAddCommGroup F
𝕜 : Type u_7
inst✝² : NontriviallyNormedField 𝕜
inst✝¹ : NormedSpace 𝕜 E
inst✝ : NormedSpace 𝕜 F
L L' : E →L[𝕜] F
f : ↥(Lp E p μ)
⊢ ↑↑((L + L').compLp f) =ᶠ[ae μ] ↑↑(L.compLp f + L'.compLp f)

Proof state:
case h
α : Type u_1
E : Type u_4
F : Type u_5
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedAddCommGroup F
𝕜 : Type u_7
inst✝² : NontriviallyNormedField 𝕜
inst✝¹ : NormedSpace 𝕜 E
inst✝ : NormedSpace 𝕜 F
L L' : E →L[𝕜] F
f : ↥(Lp E p μ)
⊢ (fun a => (L + L') (↑↑f a)) =ᶠ[ae μ] ↑↑(L.compLp f + L'.compLp f)

Tactic:
refine EventuallyEq.trans ?_ (Lp.coeFn_add _ _).symm

Result:
case h
α : Type u_1
E : Type u_4
F : Type u_5
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedAddCommGroup F
𝕜 : Type u_7
inst✝² : NontriviallyNormedField 𝕜
inst✝¹ : NormedSpace 𝕜 E
inst✝ : NormedSpace 𝕜 F
L L' : E →L[𝕜] F
f : ↥(Lp E p μ)
⊢ (fun a => (L + L') (↑↑f a)) =ᶠ[ae μ] ↑↑(L.compLp f) + ↑↑(L'.compLp f)

Proof state:
case h.h
α : Type u_1
E : Type u_4
F : Type u_5
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedAddCommGroup F
𝕜 : Type u_7
inst✝² : NontriviallyNormedField 𝕜
inst✝¹ : NormedSpace 𝕜 E
inst✝ : NormedSpace 𝕜 F
L L' : E →L[𝕜] F
f : ↥(Lp E p μ)
x : α
⊢ (L + L') (↑↑f x) = L (↑↑f x) + L' (↑↑f x)

Tactic:
rw [coe_add', Pi.add_def]

Result:
no goals

Proof state:
case h
α : Type u_1
E : Type u_4
F : Type u_5
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedAddCommGroup F
𝕜 : Type u_7
inst✝² : NontriviallyNormedField 𝕜
inst✝¹ : NormedSpace 𝕜 E
inst✝ : NormedSpace 𝕜 F
L L' : E →L[𝕜] F
f : ↥(Lp E p μ)
⊢ ↑↑((L + L').compLp f) =ᶠ[ae μ] ↑↑(L.compLp f + L'.compLp f)

Tactic:
refine (coeFn_compLp' (L + L') f).trans ?_

Result:
case h
α : Type u_1
E : Type u_4
F : Type u_5
m0 : MeasurableSpace α
p : ℝ≥0∞
μ : Measure α
inst✝⁴ : NormedAddCommGroup E
inst✝³ : NormedAddCommGroup F
𝕜 : Type u_7
inst✝² : NontriviallyNormedField 𝕜
inst✝¹ : NormedSpace 𝕜 E
inst✝ : NormedSpace 𝕜 F
L L' : E →L[𝕜] F
f : ↥(Lp E p μ)
⊢ (fun a => (L + L') (↑↑f a)) =ᶠ[ae μ] ↑↑(L.compLp f + L'.compLp f)