fact: Definition to_Instruction (i : mm_instr (pos 2)) : MPM2.Instruction := match i with | INC d => MPM2.inc (if case_pos2 d then false else true) | DEC d p => MPM2.dec (if case_pos2 d then false else true) (if p is S q then q else length P) end.
imports: PeanoNat Lia List Undecidability.MinskyMachines(MM MM_sss) Undecidability.Shared.Libs.DLW(Vec.pos Vec.vec Code.sss) ssreflect ssrbool ssrfun