{R : Type u} →
  {M : Type v} →
    {N : Type u_1} →
      [inst : CommSemiring R] →
        [inst_1 : AddCommMonoid M] →
          [inst_2 : AddCommMonoid N] →
            [inst_3 : Module R M] → [inst_4 : Module R N] → (TensorProduct R M N ≃ₗ[R] R) → M ≃ₗ[R] Module.Dual R N