proposition: Lemma vector_to_list_eta (X : Type) (n : nat) (v : Vector.t X (S n)) : Vector.hd v :: vector_to_list (Vector.tl v) = vector_to_list v.
proof: Proof. rewrite (Vector.eta v). reflexivity. Qed.
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)