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