{R : Type u} →
  {M : Type v} →
    {A : Type u_4} →
      [inst : CommSemiring R] →
        [inst_1 : AddCommMonoid M] →
          [inst_2 : Module R M] →
            [inst_3 : Semiring A] → [inst_4 : Algebra R A] → (TensorProduct R A M ≃ₗ[A] A) → Submodule R A