∀ (R : Type u_2) (M : Type u_3) (P : Type u_5) (Q : Type u_6) [inst : CommSemiring R] [inst_1 : AddCommMonoid M]
  [inst_2 : AddCommMonoid P] [inst_3 : AddCommMonoid Q] [inst_4 : Module R M] [inst_5 : Module R P]
  [inst_6 : Module R Q] [inst_7 : Module.Free R M] [inst_8 : Module.Finite R M],
  rTensorHomEquivHomRTensor R M P Q =
    ((TensorProduct.congr (dualTensorHomEquiv R M P).symm (LinearEquiv.refl R Q)).trans
          (TensorProduct.assoc R (Module.Dual R M) P Q)).trans
      (dualTensorHomEquiv R M (TensorProduct R P Q))