(vl-importlist->star-packages x) → packages
Function:
(defun vl-importlist->star-packages (x) (declare (xargs :guard (vl-importlist-p x))) (let ((__function__ 'vl-importlist->star-packages)) (declare (ignorable __function__)) (b* (((when (atom x)) nil) ((vl-import x1) (car x))) (if (eq x1.part :vl-import*) (cons x1.pkg (vl-importlist->star-packages (cdr x))) (vl-importlist->star-packages (cdr x))))))
Theorem:
(defthm string-listp-of-vl-importlist->star-packages (b* ((packages (vl-importlist->star-packages x))) (string-listp packages)) :rule-classes :rewrite)
Theorem:
(defthm vl-importlist->star-packages-of-vl-importlist-fix-x (equal (vl-importlist->star-packages (vl-importlist-fix x)) (vl-importlist->star-packages x)))
Theorem:
(defthm vl-importlist->star-packages-vl-importlist-equiv-congruence-on-x (implies (vl-importlist-equiv x x-equiv) (equal (vl-importlist->star-packages x) (vl-importlist->star-packages x-equiv))) :rule-classes :congruence)