fact: Definition encode_tape (t : tape) : Vector.t (list bool) 4 := match t with | (ls, a, rs) => [ ls ; [a]%list ; rs ; []%list ]%vector end.
imports: Undecidability.StackMachines(BSM BSM.bsm_defs) Undecidability.TM(SBTM Util.SBTM_facts) Undecidability.Shared.Libs.DLW(vec subcode sss) PeanoNat List Lia ssreflect ssrbool ssrfun