proposition: Fact encode_mm_instr_regular' n i l : fractran_regular (@encode_mm_instr n i l).
proof: Proof. generalize (@encode_mm_instr_regular n i l); apply Forall_impl; tauto. Qed.
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)