fact: Definition DoActions_Rel : pRel sigSim unit 1 := ignoreParam (fun tin tout => forall (tps : list (tape sig)), (length tps =? n) = true -> atStart tin[@Fin0] tps -> atNil tout[@Fin0] (map_vect_list (@doAct _) acts tps)).
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)