∀ (S : Type u_1) (A : Type u_5) (B : Type u_2) (M : Type u_4) (P : Type u_3) [inst : CommSemiring A]
  [inst_1 : Semiring B] [inst_2 : AddCommMonoid M] [inst_3 : Module A M] [inst_4 : Module B M]
  [inst_5 : SMulCommClass A B M] [inst_6 : AddCommMonoid P] [inst_7 : Module A P] [inst_8 : CommSemiring S]
  [inst_9 : Algebra S B] [inst_10 : Module S M] [inst_11 : SMulCommClass A S M] [IsScalarTower S B M],
  SMulCommClass S B (TensorProduct A M P)