fact: Definition shift_instr (instr : mm_instr (pos num_counters)) : mm_instr (pos num_counters') := match instr with | INC X => INC (shift_counter X) | DEC X p => DEC (shift_counter X) (shift_addr p) end.
imports: Undecidability(TM.TM) Undecidability.MinskyMachines(MM MMA MMA.mma_defs Util.MMA_computable) Undecidability.Shared.Libs.DLW(Vec.pos Vec.vec Code.sss) List PeanoNat Lia Relations ssreflect