fact: Definition encode_one_instr m i (rho : mm_instr (pos m)) := match rho with | INC u => encode_inc i u :: nil | DEC u j => encode_dec i u j :: encode_dec2 i u j :: nil end.
imports: List Arith Lia Permutation Undecidability.Shared.Libs.DLW(utils utils_tac utils_list utils_nat gcd rel_iter prime pos vec subcode sss) Undecidability.MinskyMachines.MM(mm_defs mm_no_self) Undecidability.FRACTRAN(FRACTRAN fractran_utils prime_seq FRACTRAN_sss)