fact: Definition DoActions_Step (i : Fin.t n) : pTM sigSim (Fin.t n + unit) 1 := If IsCons (Switch GoToCurrent (fun (d : option move) => Return (DoAction d (acts[@i]);; GoToNext) (opt_to_sum_unit (finSucc_opt i)))) (Return Nop (inr tt)).
imports: Undecidability.TM.Basic.Mono Undecidability.TM.Combinators.Combinators Undecidability.TM.Code.Code Undecidability.TM.Single.EncodeTapes Undecidability.TM.Compound(TMTac MoveToSymbol Multi Shift)