(vl-packagemap-find-name name map) → *
Function:
(defun vl-packagemap-find-name (name map) (declare (xargs :guard (and (stringp name) (vl-packagemap-p map)))) (let ((__function__ 'vl-packagemap-find-name)) (declare (ignorable __function__)) (if (atom map) nil (or (and (mbt (consp (car map))) (hons-get (string-fix name) (vl-scopeitem-alist-fix (cdar map)))) (vl-packagemap-find-name name (cdr map))))))
Theorem:
(defthm vl-packagemap-find-name-of-str-fix-name (equal (vl-packagemap-find-name (str-fix name) map) (vl-packagemap-find-name name map)))
Theorem:
(defthm vl-packagemap-find-name-streqv-congruence-on-name (implies (streqv name name-equiv) (equal (vl-packagemap-find-name name map) (vl-packagemap-find-name name-equiv map))) :rule-classes :congruence)
Theorem:
(defthm vl-packagemap-find-name-of-vl-packagemap-fix-map (equal (vl-packagemap-find-name name (vl-packagemap-fix map)) (vl-packagemap-find-name name map)))
Theorem:
(defthm vl-packagemap-find-name-vl-packagemap-equiv-congruence-on-map (implies (vl-packagemap-equiv map map-equiv) (equal (vl-packagemap-find-name name map) (vl-packagemap-find-name name map-equiv))) :rule-classes :congruence)