fact: Definition shift_addr (p : nat) := match p with | 0 => S (length P) | S p' => match (S (length P)) - p' with | 0 => S (length P) | _ => p end 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