fact: Definition MoveToSymbol_Step : pTM sig (option unit) 1 := Switch (ReadChar) (fun b : option sig => match b with | Some x => if f x then Return (Write (g x)) (Some tt) else Return (WriteMove (g x) Rmove) (None) | _ => Return (Nop) (Some tt) end).
imports: Undecidability(TM.Util.Prelim) Undecidability(TM.Basic.Mono) Undecidability(TM.Combinators.Combinators) Undecidability(TM.Compound.TMTac) Undecidability(TM.Compound.Multi) Coq(FunInd) Coq(Recdef)