proposition: Fact vec_map_list_one n p f : vec_map_list (@vec_one n p) f = f p :: @nil X.
proof: Proof. revert f; induction p; intro. + rewrite vec_one_fst; simpl; rewrite vec_map_list_zero; auto. + rewrite vec_one_nxt; simpl; rewrite IHp; auto. Qed.
imports: Arith Lia List Permutation Undecidability.Shared.Libs.DLW.Utils(utils) Undecidability.Shared.Libs.DLW.Vec(pos)