∀ {R : Type u_2} {M : Type u_3} {A : Type u_1} [inst : CommSemiring R] [inst_1 : AddCommMonoid M] [inst_2 : Module R M]
  [inst_3 : Semiring A] [inst_4 : Algebra R A] (e : TensorProduct R A M ≃ₗ[A] A) [Module.Flat R M] [FaithfulSMul R A]
  (I : Submodule R A),
  Function.Injective ⇑(I.mulMap' (Module.Flat.submoduleAlgebra e)) ∧
    Function.Surjective ⇑(I.mulMap' (Module.Flat.submoduleAlgebra e))