fact: Fixpoint DoActions_Loop_steps_cons (i : Fin.t n) tps1 tps2 tp := match tps2 with | nil => DoActions_Step_steps_cons i tps1 [] tp | tp' :: tps2' => match finSucc_opt i with | None => 0 | Some i' => 1 + DoActions_Step_steps_cons i tps1 tps2 tp + DoActions_Loop_steps_cons i' (tps1 ++ [doAct tp acts[@i]]) tps2' tp' end end.
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)