{κ : Type uκ} →
  {R : Type uR} →
    {M : Type uM} →
      [inst : CommSemiring R] →
        [inst_1 : AddCommMonoid M] →
          [inst_2 : Module R M] → Module.Basis κ R M → TensorAlgebra R M ≃ₐ[R] FreeAlgebra R κ