Theorem: PowerSeries.scale_map_eq_map_scale' (DividedPowers/ForMathlib/MvPowerSeries/Substitutions.lean)

State before:
A : Type u_1
inst✝¹⁷ : CommRing A
R : Type u_2
inst✝¹⁶ : CommRing R
inst✝¹⁵ : Algebra A R
τ : Type u_3
inst✝¹⁴ : DecidableEq τ
S : Type u_4
inst✝¹³ : CommRing S
inst✝¹² : Algebra A S
inst✝¹¹ : Algebra R S
inst✝¹⁰ : IsScalarTower A R S
υ✝ : Type u_5
inst✝⁹ : DecidableEq υ✝
T✝ : Type u_6
inst✝⁸ : CommRing T✝
inst✝⁷ : Algebra R T✝
inst✝⁶ : Algebra S T✝
inst✝⁵ : IsScalarTower R S T✝
a✝¹ : MvPowerSeries τ S
ha✝ : SubstDomain a✝¹
υ : Type u_7
inst✝⁴ : DecidableEq υ
T : Type u_8
inst✝³ : CommRing T
inst✝² : Algebra R T
inst✝¹ : Algebra S T
inst✝ : IsScalarTower R S T
a✝ : S⟦X⟧
ha : SubstDomain a✝
b : MvPowerSeries υ T
hb : SubstDomain b
a' : MvPowerSeries τ S
ha' : SubstDomain a'
b' : τ → MvPowerSeries υ T
hb' : MvPowerSeries.SubstDomain b'
φ : R →+* S
a : A
f : R⟦X⟧
⊢ scale (φ ((algebraMap A R) a)) ((map φ) f) = (map φ) (scale a f)
Tactic:
ext n
State after:
case h
A : Type u_1
inst✝¹⁷ : CommRing A
R : Type u_2
inst✝¹⁶ : CommRing R
inst✝¹⁵ : Algebra A R
τ : Type u_3
inst✝¹⁴ : DecidableEq τ
S : Type u_4
inst✝¹³ : CommRing S
inst✝¹² : Algebra A S
inst✝¹¹ : Algebra R S
inst✝¹⁰ : IsScalarTower A R S
υ✝ : Type u_5
inst✝⁹ : DecidableEq υ✝
T✝ : Type u_6
inst✝⁸ : CommRing T✝
inst✝⁷ : Algebra R T✝
inst✝⁶ : Algebra S T✝
inst✝⁵ : IsScalarTower R S T✝
a✝¹ : MvPowerSeries τ S
ha✝ : SubstDomain a✝¹
υ : Type u_7
inst✝⁴ : DecidableEq υ
T : Type u_8
inst✝³ : CommRing T
inst✝² : Algebra R T
inst✝¹ : Algebra S T
inst✝ : IsScalarTower R S T
a✝ : S⟦X⟧
ha : SubstDomain a✝
b : MvPowerSeries υ T
hb : SubstDomain b
a' : MvPowerSeries τ S
ha' : SubstDomain a'
b' : τ → MvPowerSeries υ T
hb' : MvPowerSeries.SubstDomain b'
φ : R →+* S
a : A
f : R⟦X⟧
n : ℕ
⊢ (coeff S n) (scale (φ ((algebraMap A R) a)) ((map φ) f)) = (coeff S n) ((map φ) (scale a f))

State before:
case h
A : Type u_1
inst✝¹⁷ : CommRing A
R : Type u_2
inst✝¹⁶ : CommRing R
inst✝¹⁵ : Algebra A R
τ : Type u_3
inst✝¹⁴ : DecidableEq τ
S : Type u_4
inst✝¹³ : CommRing S
inst✝¹² : Algebra A S
inst✝¹¹ : Algebra R S
inst✝¹⁰ : IsScalarTower A R S
υ✝ : Type u_5
inst✝⁹ : DecidableEq υ✝
T✝ : Type u_6
inst✝⁸ : CommRing T✝
inst✝⁷ : Algebra R T✝
inst✝⁶ : Algebra S T✝
inst✝⁵ : IsScalarTower R S T✝
a✝¹ : MvPowerSeries τ S
ha✝ : SubstDomain a✝¹
υ : Type u_7
inst✝⁴ : DecidableEq υ
T : Type u_8
inst✝³ : CommRing T
inst✝² : Algebra R T
inst✝¹ : Algebra S T
inst✝ : IsScalarTower R S T
a✝ : S⟦X⟧
ha : SubstDomain a✝
b : MvPowerSeries υ T
hb : SubstDomain b
a' : MvPowerSeries τ S
ha' : SubstDomain a'
b' : τ → MvPowerSeries υ T
hb' : MvPowerSeries.SubstDomain b'
φ : R →+* S
a : A
f : R⟦X⟧
n : ℕ
⊢ (coeff S n) (scale (φ ((algebraMap A R) a)) ((map φ) f)) = (coeff S n) ((map φ) (scale a f))
Tactic:
simp only [coeff_scale, coeff_map,
  algebra_compatible_smul S (a ^ n), algebra_compatible_smul R (a ^ n),
  smul_eq_mul, smul_eq_mul, map_mul, map_pow]
State after:
no goals