fact: Definition UNPACK (A X Y: counter) (offset: nat) := compose (UNPACK_codes A X Y offset) 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