fact: Definition DoAction_Rel (d : option move) (a : option sig * move) : pRel sigSim unit 1 := ignoreParam (fun tin tout => forall (tps1 tps2 : list (tape sig)) (tp : tape sig), tape_dir tp = d -> atCons_current tin[@Fin0] tps1 tps2 tp -> atCons_current tout[@Fin0] tps1 tps2 (doAct tp a)).
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)