fact: Definition shift_counter (X : pos num_counters) : pos num_counters' := match pos_both _ _ X with | inl Fin.F1 => F1' | inl Y => pos_left _ Y | inr Y => pos_right _ (pos_left _ Y) 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