fact: Fixpoint encode_mm_instr m i (l : list (mm_instr (pos m))) : list (nat * nat) := match l with | nil => nil | rho :: l => encode_one_instr i rho ++ encode_mm_instr (S i) l 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)