fact: Definition Shift_Step_Rel (s : sig) : pRel sig (sig + unit) 1 := fun tin '(yout, tout) => match current tin[@Fin0] with | Some c => if f c then tout[@Fin0] = doAct tin[@Fin0] (Some s, Nmove) /\ yout = inr tt else tout[@Fin0] = doAct tin[@Fin0] (Some s, Rmove) /\ yout = inl c | None => tout[@Fin0] = tape_write tin[@Fin0] (Some s) /\ yout = 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)