fact: Definition box '(q, a) (f : (state M * bool * direction) -> bsm_instr 4) : bsm_instr 4 := match δ (q, a) with | None => JMP 0 | Some t => f t 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