fact: Definition HALF_codes (A X: counter) (p: nat) (offset: nat) : list (nat -> list mm_instr) := ZERO A :: MOVE X A :: JMP A ((ZERO_len+MOVE_len+JMP_len+INC_len)+offset) :: INC X :: DEC A ((ZERO_len+MOVE_len+JMP_len+INC_len+DEC_len+JMP_len)+offset) :: JMP A p :: DEC A ((ZERO_len+MOVE_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