fact: Definition P' : list (mm_instr (pos num_counters')) := map shift_instr P ++ [INC F1'; DEC F1' (4 + length P); INC Fin.F1; DEC F1' (3 + length P)].
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