fact: Definition strpush_succ (Σ : finType) (s b : Σ) := strpush_common s b ++ encode_sym (projT1 (projT2 (FinTypes.finite_n (finType_CS (boundary + sigList (EncodeTapes.sigTape Σ))))) (inr (sigList_X (EncodeTapes.UnmarkedSymbol s)))).
imports: Undecidability.StackMachines.BSM Undecidability.StackMachines.Util.BSM_computable Undecidability.TM.TM Undecidability.TM.Util.TM_facts Undecidability.TM.Util.TM_computable Undecidability.TM(TM Arbitrary_to_Binary mTM_to_TM HaltTM_1_to_HaltKOSBTM HaltKOSBTM_to_HaltBSM) Undecidability.Shared.Libs.DLW(vec pos sss subcode) Undecidability(bsm_utils bsm_defs) Undecidability.TM.Code.Code Undecidability.TM(Single.EncodeTapes)