fact: Fixpoint compose (codes : list (nat -> list mm_instr)) (offset : nat) := match codes with | nil => [] | code :: codes => code offset ++ compose codes ((length (code offset))+offset) end.
imports: Undecidability(MinskyMachines.MM MinskyMachines.MMA) Undecidability.Shared.Libs.DLW(Vec.pos Vec.vec Code.sss) PeanoNat List Lia Wf_nat ssreflect ssrbool ssrfun