fact: Definition NAT_ENC_codes (p offset : nat) : list (nat -> list mm_instr) := let loop := ZERO_len+ZERO_len+ZERO_len+INC_len+PACK_len+INC_len+PACK_len+INC_len+PACK_len in ZERO U :: ZERO B :: ZERO C :: INC U :: PACK A U B :: INC B :: PACK A U B :: INC B :: PACK A U B :: DEC TS ((loop+DEC_len+JMP_len)+offset) :: JMP A p :: ZERO B :: PACK A B C :: INC U :: INC U :: PACK A B U :: MOVE B U :: INC B :: PACK A U B :: INC B :: PACK A U B :: JMP A (loop+offset) :: [].
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