(vl-remove-temp-bases x) → new-x
Function:
(defun vl-remove-temp-bases (x) (declare (xargs :guard (string-listp x))) (let ((__function__ 'vl-remove-temp-bases)) (declare (ignorable __function__)) (cond ((atom x) nil) ((str::strprefixp "_temp_" (car x)) (vl-remove-temp-bases (cdr x))) (t (cons (string-fix (car x)) (vl-remove-temp-bases (cdr x)))))))
Theorem:
(defthm string-listp-of-vl-remove-temp-bases (b* ((new-x (vl-remove-temp-bases x))) (string-listp new-x)) :rule-classes :rewrite)