(vl-user-paramsettings->unparam-names x) → unparam-names
Function:
(defun vl-user-paramsettings->unparam-names (x) (declare (xargs :guard (vl-user-paramsettings-p x))) (let ((__function__ 'vl-user-paramsettings->unparam-names)) (declare (ignorable __function__)) (if (atom x) nil (cons (vl-user-paramsetting->unparam-name (car x)) (vl-user-paramsettings->unparam-names (cdr x))))))
Theorem:
(defthm string-listp-of-vl-user-paramsettings->unparam-names (b* ((unparam-names (vl-user-paramsettings->unparam-names x))) (string-listp unparam-names)) :rule-classes :rewrite)