-- Mathlib/Analysis/NormedSpace/PiTensorProduct/InjectiveSeminorm.lean
theorem mapL_comp : mapL (fun (i : ι) ↦ g i ∘L f i) = mapL g ∘L mapL f

Proof state:
ι : Type uι
inst✝⁷ : Fintype ι
𝕜 : Type u𝕜
inst✝⁶ : NontriviallyNormedField 𝕜
E : ι → Type uE
inst✝⁵ : (i : ι) → SeminormedAddCommGroup (E i)
inst✝⁴ : (i : ι) → NormedSpace 𝕜 (E i)
E' : ι → Type u_1
E'' : ι → Type u_2
inst✝³ : (i : ι) → SeminormedAddCommGroup (E' i)
inst✝² : (i : ι) → NormedSpace 𝕜 (E' i)
inst✝¹ : (i : ι) → SeminormedAddCommGroup (E'' i)
inst✝ : (i : ι) → NormedSpace 𝕜 (E'' i)
g : (i : ι) → E' i →L[𝕜] E'' i
f : (i : ι) → E i →L[𝕜] E' i
⊢ (mapL fun i => (g i).comp (f i)) = (mapL g).comp (mapL f)

Tactic:
apply ContinuousLinearMap.coe_injective

Result:
case a
ι : Type uι
inst✝⁷ : Fintype ι
𝕜 : Type u𝕜
inst✝⁶ : NontriviallyNormedField 𝕜
E : ι → Type uE
inst✝⁵ : (i : ι) → SeminormedAddCommGroup (E i)
inst✝⁴ : (i : ι) → NormedSpace 𝕜 (E i)
E' : ι → Type u_1
E'' : ι → Type u_2
inst✝³ : (i : ι) → SeminormedAddCommGroup (E' i)
inst✝² : (i : ι) → NormedSpace 𝕜 (E' i)
inst✝¹ : (i : ι) → SeminormedAddCommGroup (E'' i)
inst✝ : (i : ι) → NormedSpace 𝕜 (E'' i)
g : (i : ι) → E' i →L[𝕜] E'' i
f : (i : ι) → E i →L[𝕜] E' i
⊢ ↑(mapL fun i => (g i).comp (f i)) = ↑((mapL g).comp (mapL f))

Proof state:
case a.H.H
ι : Type uι
inst✝⁷ : Fintype ι
𝕜 : Type u𝕜
inst✝⁶ : NontriviallyNormedField 𝕜
E : ι → Type uE
inst✝⁵ : (i : ι) → SeminormedAddCommGroup (E i)
inst✝⁴ : (i : ι) → NormedSpace 𝕜 (E i)
E' : ι → Type u_1
E'' : ι → Type u_2
inst✝³ : (i : ι) → SeminormedAddCommGroup (E' i)
inst✝² : (i : ι) → NormedSpace 𝕜 (E' i)
inst✝¹ : (i : ι) → SeminormedAddCommGroup (E'' i)
inst✝ : (i : ι) → NormedSpace 𝕜 (E'' i)
g : (i : ι) → E' i →L[𝕜] E'' i
f : (i : ι) → E i →L[𝕜] E' i
x✝ : (i : ι) → E i
⊢ ((↑(mapL fun i => (g i).comp (f i))).compMultilinearMap (tprod 𝕜)) x✝ =
    ((↑((mapL g).comp (mapL f))).compMultilinearMap (tprod 𝕜)) x✝

Tactic:
simp only [mapL_coe, ContinuousLinearMap.coe_comp, LinearMap.compMultilinearMap_apply, map_tprod,
  LinearMap.coe_comp, ContinuousLinearMap.coe_coe, Function.comp_apply]

Result:
no goals

Proof state:
case a
ι : Type uι
inst✝⁷ : Fintype ι
𝕜 : Type u𝕜
inst✝⁶ : NontriviallyNormedField 𝕜
E : ι → Type uE
inst✝⁵ : (i : ι) → SeminormedAddCommGroup (E i)
inst✝⁴ : (i : ι) → NormedSpace 𝕜 (E i)
E' : ι → Type u_1
E'' : ι → Type u_2
inst✝³ : (i : ι) → SeminormedAddCommGroup (E' i)
inst✝² : (i : ι) → NormedSpace 𝕜 (E' i)
inst✝¹ : (i : ι) → SeminormedAddCommGroup (E'' i)
inst✝ : (i : ι) → NormedSpace 𝕜 (E'' i)
g : (i : ι) → E' i →L[𝕜] E'' i
f : (i : ι) → E i →L[𝕜] E' i
⊢ ↑(mapL fun i => (g i).comp (f i)) = ↑((mapL g).comp (mapL f))

Tactic:
ext

Result:
case a.H.H
ι : Type uι
inst✝⁷ : Fintype ι
𝕜 : Type u𝕜
inst✝⁶ : NontriviallyNormedField 𝕜
E : ι → Type uE
inst✝⁵ : (i : ι) → SeminormedAddCommGroup (E i)
inst✝⁴ : (i : ι) → NormedSpace 𝕜 (E i)
E' : ι → Type u_1
E'' : ι → Type u_2
inst✝³ : (i : ι) → SeminormedAddCommGroup (E' i)
inst✝² : (i : ι) → NormedSpace 𝕜 (E' i)
inst✝¹ : (i : ι) → SeminormedAddCommGroup (E'' i)
inst✝ : (i : ι) → NormedSpace 𝕜 (E'' i)
g : (i : ι) → E' i →L[𝕜] E'' i
f : (i : ι) → E i →L[𝕜] E' i
x✝ : (i : ι) → E i
⊢ ((↑(mapL fun i => (g i).comp (f i))).compMultilinearMap (tprod 𝕜)) x✝ =
    ((↑((mapL g).comp (mapL f))).compMultilinearMap (tprod 𝕜)) x✝