theorem cesSlutky_symmetric (σ : ℝ) (s : Fin J → ℝ) (j k : Fin J) :
cesSlutkyTerm σ s j k = cesSlutkyTerm σ s k j := by
simp only [cesSlutkyTerm]
by_cases hjk : j = k
· subst hjk; ring
· simp only [hjk, Ne.symm hjk, ite_false]; ringEconomics extensions for CES formalization: