∀ (R : Type u_1) (S : Type u_2) [inst : CommSemiring R] [inst_1 : Semiring S] [inst_2 : Algebra R S] (M : Type u_3)
  [inst_3 : AddCommMonoid M] [inst_4 : Module R M] [inst_5 : Module S M] [inst_6 : IsScalarTower R S M] (ι : Type u_5)
  [inst_7 : DecidableEq ι],
  TensorProduct.finsuppScalarRight R S M ι =
    TensorProduct.finsuppRight R S M R ι ≪≫ₗ Finsupp.mapRange.linearEquiv (TensorProduct.AlgebraTensorModule.rid R S M)