Legacy. vl-modalist-optimized version of vl-find-module.
(vl-fast-find-module name mods modalist) → *
Function:
(defun vl-fast-find-module$inline (name mods modalist) (declare (xargs :guard (and (stringp name) (vl-modulelist-p mods) (equal modalist (vl-modalist mods))))) (let ((__function__ 'vl-fast-find-module)) (declare (ignorable __function__)) (mbe :logic (vl-find-module (string-fix name) mods) :exec (cdr (hons-get name modalist)))))
Theorem:
(defthm vl-fast-find-module$inline-of-str-fix-name (equal (vl-fast-find-module$inline (str-fix name) mods modalist) (vl-fast-find-module$inline name mods modalist)))
Theorem:
(defthm vl-fast-find-module$inline-streqv-congruence-on-name (implies (streqv name name-equiv) (equal (vl-fast-find-module$inline name mods modalist) (vl-fast-find-module$inline name-equiv mods modalist))) :rule-classes :congruence)
Theorem:
(defthm vl-fast-find-module$inline-of-vl-modulelist-fix-mods (equal (vl-fast-find-module$inline name (vl-modulelist-fix mods) modalist) (vl-fast-find-module$inline name mods modalist)))
Theorem:
(defthm vl-fast-find-module$inline-vl-modulelist-equiv-congruence-on-mods (implies (vl-modulelist-equiv mods mods-equiv) (equal (vl-fast-find-module$inline name mods modalist) (vl-fast-find-module$inline name mods-equiv modalist))) :rule-classes :congruence)