fact: Definition INIT_codes offset : list (nat -> list mm_instr) := JZ CTX ((JZ_len+UNPACK_len+PACK_len+NAT_ENC_len+INC_len+INC_len+UNPACK_len+PACK_len+MOVE_len+JMP_len)+offset) :: UNPACK A CTX TS :: PACK A CTX U :: NAT_ENC ((JZ_len+UNPACK_len+PACK_len+NAT_ENC_len)+offset) :: INC U :: INC U :: UNPACK A CTX B :: PACK A B U :: MOVE B U :: JMP A offset :: PACK A U B :: [].
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