fact: Definition DoAction (d : option move) (a : option sig * move) : pTM sigSim unit 1 := match (fst a) with | Some s => DoWrite d s;; DoMove (Some Nmove) (snd a) | None => DoMove d (snd a) 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)