fact: Definition DoAction_steps (d : option move) (a : option sig * move) (tps1 tps2 : list (tape sig)) := match (fst a) with | Some s => 1 + DoWrite_steps d tps1 tps2 + DoMove_steps | None => DoMove_steps 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)