simp only [←List.zip_cons_cons]
α : Type u_1
l : List α
α✝ : Type u_2
x : α✝
δ : List α✝
X Y : α
i : Fin (l ++ [Y]).length
h : ↑i < ((x, X) :: δ.zip (l ++ [Y])).length
⊢ (X :: (l ++ [Y])).get i.castSucc = (((x, X) :: δ.zip (l ++ [Y])).get ⟨↑i, h⟩).2
α : Type u_1
l : List α
α✝ : Type u_2
x : α✝
δ : List α✝
X Y : α
i : Fin (l ++ [Y]).length
h : ↑i < ((x, X) :: δ.zip (l ++ [Y])).length
⊢ (X :: (l ++ [Y])).get i.castSucc = (((x :: δ).zip (X :: (l ++ [Y]))).get ⟨↑i, h⟩).2