∀ {R : Type u_1} {ι : Type u_2} {κ : ι → Type u_3} [inst : CommSemiring R] [inst_1 : Fintype ι] [inst_2 : DecidableEq ι]
  [inst_3 : (i : ι) → DecidableEq (κ i)] [inst_4 : DecidableEq R] (p : (i : ι) → κ i) (r : ι → R),
  PiTensorProduct.ofFinsuppEquiv' ((PiTensorProduct.tprod R) fun i => fun₀ | p i => r i) = fun₀ | p => ∏ i, r i