proposition: Fact mm_multi_erase_length i : length (mm_multi_erase i) = 2*k.
proof: Proof. unfold mm_multi_erase; rew length; auto. Qed.
imports: List Arith Lia Undecidability.Shared.Libs.DLW(utils pos vec subcode sss) Undecidability.MinskyMachines.MMenv(env mme_defs)