fact: Definition GoToCurrent_Rel : pRel sigSim (option move) 1 := fun tin '(yout, tout) => forall (tps1 tps2 : list (tape sig)) (tp : tape sig), atCons tin[@Fin0] tps1 tps2 tp -> atCons_current tout[@Fin0] tps1 tps2 tp /\ yout = tape_dir tp.
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)