fact: Definition DECODE_NAT_codes (offset : nat) : list (nat -> list mm_instr) := let delta_var := JZ_len+DEC_len+UNPACK_len+UNPACK_len+JMP_len+UNPACK_len+ZERO_len+PACK_len+JMP_len in let delta_lam := PACK_len+PACK_len+PACK_len+JMP_len in let delta_app := INC_len+ZERO_len+MOVE_len+JMP_len in UNPACK A U B :: DEC B ((UNPACK_len+DEC_len+delta_var) + offset) :: JZ CTX ((UNPACK_len+DEC_len+delta_var+DEC_len+delta_lam+delta_app)+offset) :: DEC U ((UNPACK_len+DEC_len+JZ_len+DEC_len+UNPACK_len+UNPACK_len+JMP_len)+offset) :: UNPACK A CTX U :: UNPACK A U CTX :: JMP A offset :: UNPACK A CTX B :: ZERO B :: PACK A U B :: JMP A offset :: DEC B ((UNPACK_len+DEC_len+delta_var+DEC_len+delta_lam)+offset) :: PACK A B C :: PACK A B C :: PACK A CTX B :: JMP A offset :: INC TS :: ZERO U :: MOVE B U :: JMP A offset :: ZERO CTX :: ZERO U :: [].
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