∀ {ι : Type u_1} {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] [inst_5 : DecidableEq ι] [inst_6 : Fintype ι]
  (b : Module.Basis ι R M) (x : TensorProduct R (Module.Dual R M) N),
  (dualTensorHomEquivOfBasis b).symm ((dualTensorHom R M N) x) = x