α : Type u_1
E : Type u_2
F : Type u_3
F' : Type ?u.1112898
G : Type ?u.1112901
𝕜 : Type ?u.1112904
p : ℝ≥0∞
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup F'
inst✝⁵ : NormedSpace ℝ F'
inst✝⁴ : NormedAddCommGroup G
m : MeasurableSpace α
μ : Measure α
inst✝³ : NontriviallyNormedField 𝕜
inst✝² : NormedSpace 𝕜 E
inst✝¹ : NormedSpace 𝕜 F
inst✝ : CompleteSpace F
T T' T'' : Set α → E →L[ℝ] F
C C' C'' : ℝ
hT : DominatedFinMeasAdditive μ T C
c : ℝ
f : { x // x ∈ Lp E 1 }
⊢ setToL1 (_ : DominatedFinMeasAdditive μ (fun s => c • T s) (‖c‖ * C)) = c • setToL1 hT
α : Type u_1
E : Type u_2
F : Type u_3
F' : Type ?u.1112898
G : Type ?u.1112901
𝕜 : Type ?u.1112904
p : ℝ≥0∞
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup F'
inst✝⁵ : NormedSpace ℝ F'
inst✝⁴ : NormedAddCommGroup G
m : MeasurableSpace α
μ : Measure α
inst✝³ : NontriviallyNormedField 𝕜
inst✝² : NormedSpace 𝕜 E
inst✝¹ : NormedSpace 𝕜 F
inst✝ : CompleteSpace F
T T' T'' : Set α → E →L[ℝ] F
C C' C'' : ℝ
hT : DominatedFinMeasAdditive μ T C
c : ℝ
f : { x // x ∈ Lp E 1 }
⊢ ↑(setToL1 (_ : DominatedFinMeasAdditive μ (fun s => c • T s) (‖c‖ * C))) f = c • ↑(setToL1 hT) f
suffices setToL1 (hT.smul c) = c • setToL1 hT by rw [this, ContinuousLinearMap.smul_apply]
α : Type u_1
E : Type u_2
F : Type u_3
F' : Type ?u.1112898
G : Type ?u.1112901
𝕜 : Type ?u.1112904
p : ℝ≥0∞
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup F'
inst✝⁵ : NormedSpace ℝ F'
inst✝⁴ : NormedAddCommGroup G
m : MeasurableSpace α
μ : Measure α
inst✝³ : NontriviallyNormedField 𝕜
inst✝² : NormedSpace 𝕜 E
inst✝¹ : NormedSpace 𝕜 F
inst✝ : CompleteSpace F
T T' T'' : Set α → E →L[ℝ] F
C C' C'' : ℝ
hT : DominatedFinMeasAdditive μ T C
c : ℝ
f : { x // x ∈ Lp E 1 }
⊢ ContinuousLinearMap.comp (c • setToL1 hT) (coeToLp α E ℝ) =
    setToL1SCLM α E μ (_ : DominatedFinMeasAdditive μ (fun s => c • T s) (‖c‖ * C))
α : Type u_1
E : Type u_2
F : Type u_3
F' : Type ?u.1112898
G : Type ?u.1112901
𝕜 : Type ?u.1112904
p : ℝ≥0∞
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup F'
inst✝⁵ : NormedSpace ℝ F'
inst✝⁴ : NormedAddCommGroup G
m : MeasurableSpace α
μ : Measure α
inst✝³ : NontriviallyNormedField 𝕜
inst✝² : NormedSpace 𝕜 E
inst✝¹ : NormedSpace 𝕜 F
inst✝ : CompleteSpace F
T T' T'' : Set α → E →L[ℝ] F
C C' C'' : ℝ
hT : DominatedFinMeasAdditive μ T C
c : ℝ
f : { x // x ∈ Lp E 1 }
⊢ setToL1 (_ : DominatedFinMeasAdditive μ (fun s => c • T s) (‖c‖ * C)) = c • setToL1 hT
refine' ContinuousLinearMap.extend_unique (setToL1SCLM α E μ (hT.smul c)) _ _ _ _ _
case h
α : Type u_1
E : Type u_2
F : Type u_3
F' : Type ?u.1112898
G : Type ?u.1112901
𝕜 : Type ?u.1112904
p : ℝ≥0∞
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup F'
inst✝⁵ : NormedSpace ℝ F'
inst✝⁴ : NormedAddCommGroup G
m : MeasurableSpace α
μ : Measure α
inst✝³ : NontriviallyNormedField 𝕜
inst✝² : NormedSpace 𝕜 E
inst✝¹ : NormedSpace 𝕜 F
inst✝ : CompleteSpace F
T T' T'' : Set α → E →L[ℝ] F
C C' C'' : ℝ
hT : DominatedFinMeasAdditive μ T C
c : ℝ
f✝ : { x // x ∈ Lp E 1 }
f : { x // x ∈ simpleFunc E 1 μ }
⊢ ↑(ContinuousLinearMap.comp (c • setToL1 hT) (coeToLp α E ℝ)) f =
    ↑(setToL1SCLM α E μ (_ : DominatedFinMeasAdditive μ (fun s => c • T s) (‖c‖ * C))) f
α : Type u_1
E : Type u_2
F : Type u_3
F' : Type ?u.1112898
G : Type ?u.1112901
𝕜 : Type ?u.1112904
p : ℝ≥0∞
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup F'
inst✝⁵ : NormedSpace ℝ F'
inst✝⁴ : NormedAddCommGroup G
m : MeasurableSpace α
μ : Measure α
inst✝³ : NontriviallyNormedField 𝕜
inst✝² : NormedSpace 𝕜 E
inst✝¹ : NormedSpace 𝕜 F
inst✝ : CompleteSpace F
T T' T'' : Set α → E →L[ℝ] F
C C' C'' : ℝ
hT : DominatedFinMeasAdditive μ T C
c : ℝ
f : { x // x ∈ Lp E 1 }
⊢ ContinuousLinearMap.comp (c • setToL1 hT) (coeToLp α E ℝ) =
    setToL1SCLM α E μ (_ : DominatedFinMeasAdditive μ (fun s => c • T s) (‖c‖ * C))
ext1 f
case h
α : Type u_1
E : Type u_2
F : Type u_3
F' : Type ?u.1112898
G : Type ?u.1112901
𝕜 : Type ?u.1112904
p : ℝ≥0∞
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup F'
inst✝⁵ : NormedSpace ℝ F'
inst✝⁴ : NormedAddCommGroup G
m : MeasurableSpace α
μ : Measure α
inst✝³ : NontriviallyNormedField 𝕜
inst✝² : NormedSpace 𝕜 E
inst✝¹ : NormedSpace 𝕜 F
inst✝ : CompleteSpace F
T T' T'' : Set α → E →L[ℝ] F
C C' C'' : ℝ
hT : DominatedFinMeasAdditive μ T C
c : ℝ
f✝ : { x // x ∈ Lp E 1 }
f : { x // x ∈ simpleFunc E 1 μ }
⊢ ↑(ContinuousLinearMap.comp (c • setToL1 hT) (coeToLp α E ℝ)) f =
    ↑(setToL1SCLM α E μ (_ : DominatedFinMeasAdditive μ (fun s => c • T s) (‖c‖ * C))) f
case h
α : Type u_1
E : Type u_2
F : Type u_3
F' : Type ?u.1112898
G : Type ?u.1112901
𝕜 : Type ?u.1112904
p : ℝ≥0∞
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup F'
inst✝⁵ : NormedSpace ℝ F'
inst✝⁴ : NormedAddCommGroup G
m : MeasurableSpace α
μ : Measure α
inst✝³ : NontriviallyNormedField 𝕜
inst✝² : NormedSpace 𝕜 E
inst✝¹ : NormedSpace 𝕜 F
inst✝ : CompleteSpace F
T T' T'' : Set α → E →L[ℝ] F
C C' C'' : ℝ
hT : DominatedFinMeasAdditive μ T C
c : ℝ
f✝ : { x // x ∈ Lp E 1 }
f : { x // x ∈ simpleFunc E 1 μ }
⊢ ↑(ContinuousLinearMap.comp (c • setToL1 hT) (coeToLp α E ℝ)) f =
    ↑(setToL1SCLM α E μ (_ : DominatedFinMeasAdditive μ (fun s => c • T s) (‖c‖ * C))) f
simp only [ContinuousLinearMap.coe_comp', Function.comp_apply, ContinuousLinearMap.smul_comp,
  Pi.smul_apply, ContinuousLinearMap.coe_smul']
case h
α : Type u_1
E : Type u_2
F : Type u_3
F' : Type ?u.1112898
G : Type ?u.1112901
𝕜 : Type ?u.1112904
p : ℝ≥0∞
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup F'
inst✝⁵ : NormedSpace ℝ F'
inst✝⁴ : NormedAddCommGroup G
m : MeasurableSpace α
μ : Measure α
inst✝³ : NontriviallyNormedField 𝕜
inst✝² : NormedSpace 𝕜 E
inst✝¹ : NormedSpace 𝕜 F
inst✝ : CompleteSpace F
T T' T'' : Set α → E →L[ℝ] F
C C' C'' : ℝ
hT : DominatedFinMeasAdditive μ T C
c : ℝ
f✝ : { x // x ∈ Lp E 1 }
f : { x // x ∈ simpleFunc E 1 μ }
⊢ c • ↑(setToL1 hT) ↑f = ↑(setToL1SCLM α E μ (_ : DominatedFinMeasAdditive μ (fun s => c • T s) (‖c‖ * C))) f
case h
α : Type u_1
E : Type u_2
F : Type u_3
F' : Type ?u.1112898
G : Type ?u.1112901
𝕜 : Type ?u.1112904
p : ℝ≥0∞
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup F'
inst✝⁵ : NormedSpace ℝ F'
inst✝⁴ : NormedAddCommGroup G
m : MeasurableSpace α
μ : Measure α
inst✝³ : NontriviallyNormedField 𝕜
inst✝² : NormedSpace 𝕜 E
inst✝¹ : NormedSpace 𝕜 F
inst✝ : CompleteSpace F
T T' T'' : Set α → E →L[ℝ] F
C C' C'' : ℝ
hT : DominatedFinMeasAdditive μ T C
c : ℝ
f✝ : { x // x ∈ Lp E 1 }
f : { x // x ∈ simpleFunc E 1 μ }
⊢ ↑(ContinuousLinearMap.comp (c • setToL1 hT) (coeToLp α E ℝ)) f =
    ↑(setToL1SCLM α E μ (_ : DominatedFinMeasAdditive μ (fun s => c • T s) (‖c‖ * C))) f
suffices c • setToL1 hT f = setToL1SCLM α E μ (hT.smul c) f by rw [← this]; congr
no goals
case h
α : Type u_1
E : Type u_2
F : Type u_3
F' : Type ?u.1112898
G : Type ?u.1112901
𝕜 : Type ?u.1112904
p : ℝ≥0∞
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup F'
inst✝⁵ : NormedSpace ℝ F'
inst✝⁴ : NormedAddCommGroup G
m : MeasurableSpace α
μ : Measure α
inst✝³ : NontriviallyNormedField 𝕜
inst✝² : NormedSpace 𝕜 E
inst✝¹ : NormedSpace 𝕜 F
inst✝ : CompleteSpace F
T T' T'' : Set α → E →L[ℝ] F
C C' C'' : ℝ
hT : DominatedFinMeasAdditive μ T C
c : ℝ
f✝ : { x // x ∈ Lp E 1 }
f : { x // x ∈ simpleFunc E 1 μ }
⊢ c • ↑(setToL1 hT) ↑f = ↑(setToL1SCLM α E μ (_ : DominatedFinMeasAdditive μ (fun s => c • T s) (‖c‖ * C))) f
rw [setToL1_eq_setToL1SCLM, setToL1SCLM_smul_left c hT]
no goals
α : Type u_1
E : Type u_2
F : Type u_3
F' : Type ?u.1112898
G : Type ?u.1112901
𝕜 : Type ?u.1112904
p : ℝ≥0∞
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup F'
inst✝⁵ : NormedSpace ℝ F'
inst✝⁴ : NormedAddCommGroup G
m : MeasurableSpace α
μ : Measure α
inst✝³ : NontriviallyNormedField 𝕜
inst✝² : NormedSpace 𝕜 E
inst✝¹ : NormedSpace 𝕜 F
inst✝ : CompleteSpace F
T T' T'' : Set α → E →L[ℝ] F
C C' C'' : ℝ
hT : DominatedFinMeasAdditive μ T C
c : ℝ
f : { x // x ∈ Lp E 1 }
this : setToL1 (_ : DominatedFinMeasAdditive μ (fun s => c • T s) (‖c‖ * C)) = c • setToL1 hT
⊢ ↑(setToL1 (_ : DominatedFinMeasAdditive μ (fun s => c • T s) (‖c‖ * C))) f = c • ↑(setToL1 hT) f
rw [this, ContinuousLinearMap.smul_apply]
α : Type u_1
E : Type u_2
F : Type u_3
F' : Type ?u.1112898
G : Type ?u.1112901
𝕜 : Type ?u.1112904
p : ℝ≥0∞
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup F'
inst✝⁵ : NormedSpace ℝ F'
inst✝⁴ : NormedAddCommGroup G
m : MeasurableSpace α
μ : Measure α
inst✝³ : NontriviallyNormedField 𝕜
inst✝² : NormedSpace 𝕜 E
inst✝¹ : NormedSpace 𝕜 F
inst✝ : CompleteSpace F
T T' T'' : Set α → E →L[ℝ] F
C C' C'' : ℝ
hT : DominatedFinMeasAdditive μ T C
c : ℝ
f✝ : { x // x ∈ Lp E 1 }
f : { x // x ∈ simpleFunc E 1 μ }
this : c • ↑(setToL1 hT) ↑f = ↑(setToL1SCLM α E μ (_ : DominatedFinMeasAdditive μ (fun s => c • T s) (‖c‖ * C))) f
⊢ ↑(ContinuousLinearMap.comp (c • setToL1 hT) (coeToLp α E ℝ)) f = c • ↑(setToL1 hT) ↑f
α : Type u_1
E : Type u_2
F : Type u_3
F' : Type ?u.1112898
G : Type ?u.1112901
𝕜 : Type ?u.1112904
p : ℝ≥0∞
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup F'
inst✝⁵ : NormedSpace ℝ F'
inst✝⁴ : NormedAddCommGroup G
m : MeasurableSpace α
μ : Measure α
inst✝³ : NontriviallyNormedField 𝕜
inst✝² : NormedSpace 𝕜 E
inst✝¹ : NormedSpace 𝕜 F
inst✝ : CompleteSpace F
T T' T'' : Set α → E →L[ℝ] F
C C' C'' : ℝ
hT : DominatedFinMeasAdditive μ T C
c : ℝ
f✝ : { x // x ∈ Lp E 1 }
f : { x // x ∈ simpleFunc E 1 μ }
this : c • ↑(setToL1 hT) ↑f = ↑(setToL1SCLM α E μ (_ : DominatedFinMeasAdditive μ (fun s => c • T s) (‖c‖ * C))) f
⊢ ↑(ContinuousLinearMap.comp (c • setToL1 hT) (coeToLp α E ℝ)) f =
    ↑(setToL1SCLM α E μ (_ : DominatedFinMeasAdditive μ (fun s => c • T s) (‖c‖ * C))) f
rw [← this]
no goals
α : Type u_1
E : Type u_2
F : Type u_3
F' : Type ?u.1112898
G : Type ?u.1112901
𝕜 : Type ?u.1112904
p : ℝ≥0∞
inst✝¹⁰ : NormedAddCommGroup E
inst✝⁹ : NormedSpace ℝ E
inst✝⁸ : NormedAddCommGroup F
inst✝⁷ : NormedSpace ℝ F
inst✝⁶ : NormedAddCommGroup F'
inst✝⁵ : NormedSpace ℝ F'
inst✝⁴ : NormedAddCommGroup G
m : MeasurableSpace α
μ : Measure α
inst✝³ : NontriviallyNormedField 𝕜
inst✝² : NormedSpace 𝕜 E
inst✝¹ : NormedSpace 𝕜 F
inst✝ : CompleteSpace F
T T' T'' : Set α → E →L[ℝ] F
C C' C'' : ℝ
hT : DominatedFinMeasAdditive μ T C
c : ℝ
f✝ : { x // x ∈ Lp E 1 }
f : { x // x ∈ simpleFunc E 1 μ }
this : c • ↑(setToL1 hT) ↑f = ↑(setToL1SCLM α E μ (_ : DominatedFinMeasAdditive μ (fun s => c • T s) (‖c‖ * C))) f
⊢ ↑(ContinuousLinearMap.comp (c • setToL1 hT) (coeToLp α E ℝ)) f = c • ↑(setToL1 hT) ↑f
congr