∀ (R : Type u) (A : Type w) {M : Type v₁} [inst : CommSemiring R] [inst_1 : Semiring A] [inst_2 : Algebra R A]
  [inst_3 : AddCommMonoid M] [inst_4 : Module R M] [inst_5 : Module A M] [IsScalarTower R A M],
  Function.Surjective ⇑(algebraMap R A) → ∀ (s : Set M), ↑(Submodule.span A s) = ↑(Submodule.span R s)