∀ {R : Type u_1} {S : Type u_2} [inst : CommRing R] (f : Polynomial R) [inst_1 : DistribSMul S R]
  [inst_2 : IsScalarTower S R R] (a : S) (x : Polynomial R), a • (AdjoinRoot.mk f) x = (AdjoinRoot.mk f) (a • x)