Section MoveToSymbol_Sem.
Local Arguments skipn { A } !n !l.
Local Arguments plus : simpl never.
Local Arguments mult : simpl never.
Variable sig : finType.
(* Halt function *)
Variable stop : sig -> bool.
(* Rewrite function *)
Variable f : sig -> sig.
(* Termination times *)
(* The termination times of CopySymbols and MoveTosymbol only differ in the factors *)

Corollary MoveToSymbol_L_steps_midtape ls ls' x m rs :
stop x = true ->
MoveToSymbol_L_steps stop f (midtape (ls ++ x :: ls') m rs) <= 8 + 4 * length ls.