fact: Definition MOVE_codes (X: counter) (Y : counter) (offset: nat) : list (nat -> list mm_instr) := JMP X ((JMP_len + INC_len) + offset) :: INC Y :: DEC X (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