fact: Definition UNPACK_codes (A X Y: counter) (offset: nat) : list (nat -> list mm_instr) := JZ X 0 :: ZERO Y :: JMP A ((JZ_len+ZERO_len+JMP_len+INC_len)+offset) :: INC Y :: HALF A X ((JZ_len+ZERO_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