fact: Definition MoveToStart_steps (tps : list (tape sig)) := 8 + 4 * length (encode_list (@encode_tape sig) tps).
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)