∀ {R : Type u_4} {M : Type u_2} {N : Type u_1} {S : Type u_3} [inst : AddCommMonoid M] [inst_1 : AddCommMonoid N]
  [inst_2 : CommSemiring R] [inst_3 : CommSemiring S] [inst_4 : Algebra R S] [inst_5 : Module R M] [inst_6 : Module R N]
  [inst_7 : Module S N] [inst_8 : IsScalarTower R S N] {f : M →ₗ[R] N} (h : IsBaseChange S f) (r : S)
  (x : TensorProduct R S M),
  (↑(IsTensorProduct.equiv h)).toFun (r • x) = (RingHom.id S) r • (↑(IsTensorProduct.equiv h)).toFun x