proposition: Lemma vec_pos_const {k} {X x} (p : pos k) : @const X x k #> p = x.
proof: Proof. induction p; cbn; eauto. Qed.
imports: Undecidability.MinskyMachines(MM_computable MM_sss mm_utils) Undecidability.StackMachines(BSM_computable) Undecidability.Shared.Libs.DLW(vec pos sss subcode) Lia Vector Nat Arith List Undecidability.MinskyMachines.MM(mm_defs mm_utils mm_comp_strong)