simpa [encodeProgram] using λ hdst hsrc hnext ↦ ⟨hdst, hsrc, ih hnext⟩
dst✝¹ src✝¹ : Source
next✝¹ : Program
ih : ∀ {p₁ : Program}, encodeProgram next✝¹ = encodeProgram p₁ → next✝¹ = p₁
dst✝ src✝ : Source
next✝ : Program
⊢ encodeProgram (Program.recurse dst✝¹ src✝¹ next✝¹) = encodeProgram (Program.recurse dst✝ src✝ next✝) →
    Program.recurse dst✝¹ src✝¹ next✝¹ = Program.recurse dst✝ src✝ next✝
no goals