(vls-remove-from-scannedalist names x) → new-x
Function:
(defun vls-remove-from-scannedalist (names x) (declare (xargs :guard (and (string-listp names) (vls-scannedalist-p x)))) (let ((__function__ 'vls-remove-from-scannedalist)) (declare (ignorable __function__)) (cond ((atom x) nil) ((member-equal (caar x) names) (vls-remove-from-scannedalist names (cdr x))) (t (cons (car x) (vls-remove-from-scannedalist names (cdr x)))))))
Theorem:
(defthm vls-scannedalist-p-of-vls-remove-from-scannedalist (implies (vls-scannedalist-p x) (b* ((new-x (vls-remove-from-scannedalist names x))) (vls-scannedalist-p new-x))) :rule-classes :rewrite)