fact: Definition DoActions_steps (tps : list (tape sig)) : nat := match finMin_opt n with | None => 1 | Some i => match tps with | nil => 0 | tp :: tps => 2 + DoActions_Loop_steps_cons i [] tps tp end 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)