fact: Definition MOVE (X: counter) (Ys : list counter) (offset: nat) : list mm_instr := concat ( JMP (JMP_len + length Ys + offset) :: map (@INC _) Ys :: [DEC X (2+offset)] :: []).
imports: Undecidability(MinskyMachines.MM MinskyMachines.MMA LambdaCalculus.Krivine LambdaCalculus.Util.Krivine_facts) Undecidability.Shared.Libs.DLW(Vec.pos Vec.vec Code.sss) PeanoNat List Lia ssreflect ssrbool ssrfun