fact: Definition MoveToSymbol_Step_Rel : Rel (tapes sig 1) (option unit * tapes sig 1) := Mk_R_p (fun tin '(yout, tout) => tout = MoveToSymbol_Step_Fun tin /\ yout = match current tin with | Some m => if f m then Some tt else None | _ => (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)