∀ {R : Type u_2} {M : Type u_3} {N : Type u_4} [inst : CommSemiring R] [inst_1 : AddCommMonoid M]
  [inst_2 : AddCommMonoid N] [inst_3 : Module R M] [inst_4 : Module R N] {m : Type u_7} {n : Type u_8}
  [inst_5 : Fintype m] [inst_6 : Finite n] [inst_7 : DecidableEq m] [inst_8 : DecidableEq n] (bM : Module.Basis m R M)
  (bN : Module.Basis n R N) (j : m) (i : n),
  (LinearMap.toMatrix bM bN) ((dualTensorHom R M N) (bM.coord j ⊗ₜ[R] bN i)) = Matrix.single i j 1