induction n generalizing f x with
| zero => rfl
| succ n ih =>
  have A (y) : orderedIteratedPiDeriv (Fin.tail js) f y =
      orderedIteratedPiDeriv (Fin.init (Fin.tail js)) (pideriv (js (Fin.last (n + 1))) f) y
  . rw [ih]
    rfl
  rw [orderedIteratedPiDeriv_succ_left]
  change pideriv (js 0) (fun y => orderedIteratedPiDeriv (Fin.tail js) f y) x = _
  simp_rw [A]
  rfl
ι : Type u_1
𝕜 : Type u_2
inst✝⁸ : Fintype ι
inst✝⁷ : DecidableEq ι
inst✝⁶ : NontriviallyNormedField 𝕜
E : Type u_3
inst✝⁵ : NormedAddCommGroup E
inst✝⁴ : NormedSpace 𝕜 E
M : ι → Type u_4
inst✝³ : (i : ι) → NormedAddCommGroup (M i)
inst✝² : (i : ι) → NormedSpace 𝕜 (M i)
F : Type u_5
inst✝¹ : NormedAddCommGroup F
inst✝ : NormedSpace 𝕜 F
n : ℕ
f : (ι → 𝕜) → F
js : Fin (n + 1) → ι
x : ι → 𝕜
⊢ orderedIteratedPiDeriv js f x = orderedIteratedPiDeriv (Fin.init js) (pideriv (js (Fin.last n)) f) x
no goals