∀ {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] [inst_6 : IsScalarTower R S A] {ι : Type u_5}
  {ι' : Type u_6} (b b_1 : Module.Basis ι R S),
  b = b_1 → ∀ (c c_1 : Module.Basis ι' S A), c = c_1 → b.smulTower c = b_1.smulTower c_1