fact: Definition ReadCurrentSymbols_Rel : pRel sigSim (Vector.t (option sig) n) 1 := fun tin '(yout, tout) => forall T, tin[@Fin0] ≃ T -> atNil tout[@Fin0] (vector_to_list T) /\ yout = current_chars T.
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)