∀ (R : Type u_1) {S : Type u_2} {A : Type u_3} [inst : Semiring R] [inst_1 : Semiring S] [inst_2 : AddCommMonoid A]
  [inst_3 : Module R S] [inst_4 : Module S A] [inst_5 : Module R A] [IsScalarTower R S A] {ι : Type u_5}
  (b : Module.Basis ι S A), IsScalarTower R S (ι →₀ S)