Theorem: PolynomialMap.component_smul (DividedPowers/PolynomialMap/Homogeneous.lean)

State before:
R : Type u
inst✝⁴ : CommRing R
M : Type u_1
inst✝³ : AddCommGroup M
inst✝² : Module R M
N : Type u_2
inst✝¹ : AddCommGroup N
inst✝ : Module R N
f✝ : M →ₚ[R] N
p : ℕ
r : R
f : M →ₚ[R] N
⊢ component p (r • f) = r • component p f
Tactic:
ext S _ _ sm
State after:
case toFun'.h.h.h.h
R : Type u
inst✝⁴ : CommRing R
M : Type u_1
inst✝³ : AddCommGroup M
inst✝² : Module R M
N : Type u_2
inst✝¹ : AddCommGroup N
inst✝ : Module R N
f✝ : M →ₚ[R] N
p : ℕ
r : R
f : M →ₚ[R] N
S : Type u
x✝¹ : CommRing S
x✝ : Algebra R S
sm : S ⊗[R] M
⊢ (component p (r • f)).toFun' S sm = (r • component p f).toFun' S sm

State before:
case toFun'.h.h.h.h
R : Type u
inst✝⁴ : CommRing R
M : Type u_1
inst✝³ : AddCommGroup M
inst✝² : Module R M
N : Type u_2
inst✝¹ : AddCommGroup N
inst✝ : Module R N
f✝ : M →ₚ[R] N
p : ℕ
r : R
f : M →ₚ[R] N
S : Type u
x✝¹ : CommRing S
x✝ : Algebra R S
sm : S ⊗[R] M
⊢ (component p (r • f)).toFun' S sm = (r • component p f).toFun' S sm
Tactic:
simp only [component, smul_def_apply, rTensor_apply, LinearMapClass.map_smul]
State after:
no goals