fact: Definition s_proj k (p : pos k) : natfun k := fun v x => vec_pos v p = x.
imports: Arith Lia List Bool Eqdep_dec Undecidability.Shared.Libs.DLW(utils_tac utils_nat utils_list finite pos vec) Undecidability.MuRec.MuRec