fact: Definition DoActions_Loop_Rel (i : Fin.t n) : pRel sigSim unit 1 := fun tin '(yout, tout) => (forall tps1 tps2 tp, (length tps1 =? fin_to_nat i) = true -> (length tps1 + (1 + length tps2) =? n) = true -> atCons tin[@Fin0] (map_vect_list (@doAct sig) acts tps1) tps2 tp -> atNil tout[@Fin0] (map_vect_list (@doAct sig) acts (tps1 ++ tp :: tps2)) ) /\ (forall tps, atNil tin[@Fin0] tps -> atNil tout[@Fin0] 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)