fact: Definition Step : pTM sigSim (state (projT1 pM) + F) 1 := if halt q then Return Nop (inr (projT2 pM q)) else Switch ReadCurrentSymbols (fun (cs : Vector.t (option sig) n) => Return (MoveToStart;; DoActions (snd (trans (q, cs)));; MoveToStart) (inl (fst (trans (q, cs))))).
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)