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