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