Legacy. Build a fast alist mapping module names to modules.
(vl-modalist mods) → modalist
Function:
(defun vl-modalist (mods) (declare (xargs :guard (vl-modulelist-p mods))) (let ((__function__ 'vl-modalist)) (declare (ignorable __function__)) (make-fast-alist (vl-modulelist-alist mods nil))))
Theorem:
(defthm vl-module-alist-p-of-vl-modalist (b* ((modalist (vl-modalist mods))) (vl-module-alist-p modalist)) :rule-classes :rewrite)
Theorem:
(defthm vl-modalist-when-not-consp (implies (not (consp x)) (equal (vl-modalist x) nil)))
Theorem:
(defthm vl-modalist-of-cons (equal (vl-modalist (cons a x)) (cons (cons (vl-module->name a) (vl-module-fix a)) (vl-modalist x))))
Theorem:
(defthm alistp-of-vl-modalist (alistp (vl-modalist x)))
Theorem:
(defthm strip-cars-of-vl-modalist (equal (strip-cars (vl-modalist x)) (vl-modulelist->names x)))
Theorem:
(defthm strip-cdrs-of-vl-modalist (equal (strip-cdrs (vl-modalist x)) (vl-modulelist-fix (list-fix x))))
Theorem:
(defthm hons-assoc-equal-of-vl-modalist (implies (stringp name) (equal (hons-assoc-equal name (vl-modalist x)) (if (vl-find-module name x) (cons name (vl-find-module name x)) nil))))
Theorem:
(defthm vl-modalist-of-vl-modulelist-fix-mods (equal (vl-modalist (vl-modulelist-fix mods)) (vl-modalist mods)))
Theorem:
(defthm vl-modalist-vl-modulelist-equiv-congruence-on-mods (implies (vl-modulelist-equiv mods mods-equiv) (equal (vl-modalist mods) (vl-modalist mods-equiv))) :rule-classes :congruence)