∀ {R : Type u} [inst : Semiring R] (p : Polynomial R) {S : Type u_1} [inst_1 : Semiring S] [IsDomain S]
  [inst_3 : Module S R] [Module.IsTorsionFree S R] {a : S}, a ≠ 0 → (a • p).natDegree = p.natDegree