fact: Definition GoToNext_Rel : pRel sigSim bool 1 := fun tin '(yout, tout) => forall tps1 tps2 tp, atCons_current tin[@Fin0] tps1 tps2 tp -> match yout, tps2 with | true, tp' :: tps2' => atCons tout[@Fin0] (tps1 ++ [tp]) tps2' tp' | false, nil => atNil tout[@Fin0] (tps1 ++ [tp]) | _, _ => False 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)