fact: Definition Shift_Step (s : sig) : pTM sig (sig + unit) 1 := Switch (ReadChar) (fun c => match c with | Some c => if f c then Return (Write s) (inr tt) else Return (WriteMove s Rmove) (inl c) | None => Return (Write s) (inr 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)