proposition: Lemma tape_local_move_right (t : tape sig) (x : sig) (xs : list sig) : tape_local t = x :: xs -> tape_local (tape_move_right t) = xs.
proof: Proof. intro H. destruct t eqn:E; cbn in *; try congruence. inv H. destruct xs; cbn; auto. Qed.
imports: Undecidability.Shared.Libs.PSL.Vectors.Vectors Undecidability.TM.TM