fact: Definition GoToCurrent_steps' (tp : tape sig) := match tp with | niltape _ => 8 | leftof r rs => 8 | rightof l ls => 16 + 4 * length ls | midtape ls m rs => 16 + 4 * length ls 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)