fact: Definition PACK_codes (A X Y : counter) (offset: nat) : list (nat -> list mm_instr) := ZERO A :: MOVE2 X A A :: INC A :: MOVE A X :: JMP A ((ZERO_len+MOVE2_len+INC_len+MOVE_len+JMP_len+MOVE2_len+MOVE_len)+offset) :: MOVE2 X A A :: MOVE A X :: DEC Y ((ZERO_len+MOVE2_len+INC_len+MOVE_len+JMP_len)+offset) :: [].
imports: Undecidability(MinskyMachines.MM MinskyMachines.MMA) Undecidability.Shared.Libs.DLW(Vec.pos Vec.vec Code.sss) PeanoNat List Lia Wf_nat ssreflect ssrbool ssrfun