fact: Fixpoint mm_multi_copy k src dst i := match k with | 0 => nil | S k => mm_copy src dst tmp zero i ++ mm_multi_copy k (S src) (S dst) (9+i) end.
imports: List Arith Lia Undecidability.Shared.Libs.DLW(utils pos vec subcode sss) Undecidability.MinskyMachines.MMenv(env mme_defs)