fact: Definition mma_instr_compile lnk (_ : nat) (ii : mm_instr (pos n)) := match ii with | INCₐ k => INCₐ k :: nil | DECₐ k j => DECₐ k (lnk j) :: nil end.
imports: List Arith Lia Undecidability.Shared.Libs.DLW(utils pos vec subcode sss compiler_correction) Undecidability.MinskyMachines.MMA(mma_defs mma_utils)