fact: Definition GoToNext_steps' (t : tape sig) := match t with | niltape _ => 8 | leftof r rs => 16 + 4 * length rs | rightof r rs => 8 | midtape ls m rs => 16 + 4 * length rs end.
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)