fact: Definition dec_bs {n} x (ts : Vector.t (tape Σ) (S n)) := TM_facts.doAct_multi (TM_facts.doAct_multi ts (vec_change TM_facts.nop_action x (None, Rmove))) (vec_change TM_facts.nop_action x (Some false, Nmove)).
imports: Undecidability.TM(TM) Undecidability.MinskyMachines(MM MMA.mma_defs Reductions.MMA_computable_to_MMA_mon_computable) Undecidability.Shared.Libs.DLW(Vec.pos Vec.vec Code.sss Code.subcode) Undecidability.Shared.Libs.PSL.FiniteTypes.FinTypesDef Undecidability.Shared.Libs.PSL(CompoundFinTypes) Undecidability.Shared.Libs.PSL.EqDec List Lia PeanoNat Compare_dec Relations ssreflect ssrbool ssrfun