∀ {Γ : Type u_1} {Λ : Type u_2} (motive : Turing.TM0to1.Λ' Γ Λ → Sort u_3) (q : Λ)
  (h_1 : (q : Λ) → motive (Turing.TM0to1.Λ'.normal q))
  (h_2 : (d : Turing.Dir) → (q : Λ) → motive (Turing.TM0to1.Λ'.act (Turing.TM0.Stmt.move d) q))
  (h_3 : (a : Γ) → (q : Λ) → motive (Turing.TM0to1.Λ'.act (Turing.TM0.Stmt.write a) q)),
  (match Turing.TM0to1.Λ'.normal q with
    | Turing.TM0to1.Λ'.normal q => h_1 q
    | Turing.TM0to1.Λ'.act (Turing.TM0.Stmt.move d) q => h_2 d q
    | Turing.TM0to1.Λ'.act (Turing.TM0.Stmt.write a) q => h_3 a q) =
    h_1 q