fact: Definition PROG_codes (offset : nat) : list (nat -> list mm_instr) := ZERO A :: UNPACK A U CTX :: UNPACK A U B :: DEC B ((ZERO_len+UNPACK_len+UNPACK_len+DEC_len+DEC_len+CASE_VAR0_len+CASE_VARS_len)+offset) :: DEC U ((ZERO_len+UNPACK_len+UNPACK_len+DEC_len+DEC_len+CASE_VAR0_len)+offset) :: CASE_VAR0 offset :: CASE_VARS offset :: DEC B ((ZERO_len+UNPACK_len+UNPACK_len+DEC_len+DEC_len+CASE_VAR0_len+CASE_VARS_len+DEC_len+CASE_LAM_len)+offset) :: CASE_LAM offset ((ZERO_len+UNPACK_len+UNPACK_len+DEC_len+DEC_len+CASE_VAR0_len+CASE_VARS_len+DEC_len+CASE_LAM_len+CASE_APP_len)+offset) :: CASE_APP offset :: DECODE_NAT :: ZERO Fin.F1 :: MOVE TS Fin.F1 :: [].
imports: Undecidability(MinskyMachines.MM MinskyMachines.MMA L.L) Undecidability.Shared.Libs.DLW(Vec.pos Vec.vec Code.sss Code.subcode) Undecidability(MinskyMachines.Util.MMA_pairing L.AbstractMachines.wCBV) PeanoNat List Lia Wf_nat ssreflect ssrbool ssrfun