proposition: Lemma INIT_s0_len_spec {offset} : length (INIT_s0 offset) = INIT_s0_len.
proof: Proof. rewrite /INIT_s0 /INIT_s0_codes /INIT_s0_len. elim: (enc_term s0) offset. { done. } move=> n IH offset /=. by rewrite IH. Qed.
imports: Undecidability(MinskyMachines.MM MinskyMachines.MMA L.L) Undecidability.Shared.Libs.DLW(Vec.pos Vec.vec Code.sss Code.subcode) Undecidability(MinskyMachines.Util.MMA_pairing L.AbstractMachines.wCBV) PeanoNat List Lia Wf_nat ssreflect ssrbool ssrfun