Theorem:
(defthm 4v-nsexpr-p-4v-sexpr-restrict (implies (and (4v-nsexpr-alist-p al) (4v-nsexpr-p x)) (nat-listp (4v-sexpr-vars (4v-sexpr-restrict x al)))))
Theorem:
(defthm 4v-nsexpr-list-p-4v-sexpr-restrict-list (implies (and (4v-nsexpr-alist-p al) (4v-nsexpr-list-p x)) (nat-listp (4v-sexpr-vars-list (4v-sexpr-restrict-list x al)))))