∀ (R : Type u) (M : Type v) [inst : CommRing R] [inst_1 : AddCommGroup M] [inst_2 : Module R M] {A : Type u_1}
  [inst_3 : Ring A] [inst_4 : Algebra R A] [Module.FaithfullyFlat R A] (m : M), 1 ⊗ₜ[R] m = 0 ↔ m = 0