∀ (R : Type u_1) [inst : CommSemiring R] {M : Type u_7} {N : Type u_8} [inst_1 : AddCommMonoid M]
  [inst_2 : AddCommMonoid N] [inst_3 : Module R M] [inst_4 : Module R N] {n : N},
  IsAddUnit n → ∀ (m : M), IsAddUnit (m ⊗ₜ[R] n)