fact: Definition ReadCurrentSymbols_Step : forall (st : Vector.t (option sig) n * Fin.t n), pTM sigSim (Vector.t (option sig) n * Fin.t n + Vector.t (option sig) n) 1 := fun '(readSymbols, i) => If IsCons (GoToCurrent;; Switch (ReadCurrent) (fun (c : option sig) => Return (GoToNext) (match finSucc_opt i with | None => inr (insertKnownSymbol readSymbols i c) | Some i' => inl (insertKnownSymbol readSymbols i c, i') end))) (Return Nop (inr readSymbols)).
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)