(vl-user-paramsettings-for-top-names top-names) → paramsettings
Function:
(defun vl-user-paramsettings-for-top-names (top-names) (declare (xargs :guard (string-listp top-names))) (let ((__function__ 'vl-user-paramsettings-for-top-names)) (declare (ignorable __function__)) (if (atom top-names) nil (cons (make-vl-user-paramsetting :modname (car top-names) :unparam-name (car top-names) :settings nil) (vl-user-paramsettings-for-top-names (cdr top-names))))))
Theorem:
(defthm vl-user-paramsettings-p-of-vl-user-paramsettings-for-top-names (b* ((paramsettings (vl-user-paramsettings-for-top-names top-names))) (vl-user-paramsettings-p paramsettings)) :rule-classes :rewrite)
Theorem:
(defthm vl-user-paramsettings-for-top-names-of-string-list-fix-top-names (equal (vl-user-paramsettings-for-top-names (string-list-fix top-names)) (vl-user-paramsettings-for-top-names top-names)))
Theorem:
(defthm vl-user-paramsettings-for-top-names-string-list-equiv-congruence-on-top-names (implies (str::string-list-equiv top-names top-names-equiv) (equal (vl-user-paramsettings-for-top-names top-names) (vl-user-paramsettings-for-top-names top-names-equiv))) :rule-classes :congruence)