Turn a comp-db-arg-list into a string list.
(comp-db-arg-list-to-string-list args) → strings
Function:
(defun comp-db-arg-list-to-string-list (args) (declare (xargs :guard (comp-db-arg-listp args))) (if (endp args) nil (cons (comp-db-arg-to-string (first args)) (comp-db-arg-list-to-string-list (rest args)))))
Theorem:
(defthm string-listp-of-comp-db-arg-list-to-string-list (b* ((strings (comp-db-arg-list-to-string-list args))) (string-listp strings)) :rule-classes :rewrite)
Theorem:
(defthm comp-db-arg-list-to-string-list-of-comp-db-arg-list-fix-args (equal (comp-db-arg-list-to-string-list (comp-db-arg-list-fix args)) (comp-db-arg-list-to-string-list args)))
Theorem:
(defthm comp-db-arg-list-to-string-list-comp-db-arg-list-equiv-congruence-on-args (implies (comp-db-arg-list-equiv args args-equiv) (equal (comp-db-arg-list-to-string-list args) (comp-db-arg-list-to-string-list args-equiv))) :rule-classes :congruence)