fact: Definition ReadCurrentSymbols := match (finMin_opt n) with | None => Return (Move Rmove) (Vector.const None n) | Some min => Move Rmove;; ReadCurrentSymbols_Loop (Vector.const None n, min) 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)