fact: Definition PACK (X Y: counter) (offset: nat) : list mm_instr := concat ( DOUBLE X offset :: let i := DOUBLE_len + offset in [INC X] :: let i := 1 + i in JMP (DOUBLE_len+JMP_len+i) :: let i := JMP_len + i in DOUBLE X i :: [DEC Y i] :: []).
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