fact: Definition P : list (bsm_instr 4) := JMP (!q0) :: flat_map PROG (all_fins (num_states M)).
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