Build a fast alist associating the name of each port declaration with the whole vl-portdecl-p object.
(vl-make-portdecl-alist x) → palist
Function:
(defun vl-make-portdecl-alist (x) (declare (xargs :guard (vl-portdecllist-p x))) (let ((__function__ 'vl-make-portdecl-alist)) (declare (ignorable __function__)) (make-fast-alist (vl-portdecllist-alist x nil))))
Theorem:
(defthm vl-portdecl-alist-p-of-vl-make-portdecl-alist (implies (and (vl-portdecllist-p x)) (b* ((palist (vl-make-portdecl-alist x))) (vl-portdecl-alist-p palist))) :rule-classes :rewrite)
Theorem:
(defthm alistp-of-vl-make-portdecl-alist (alistp (vl-make-portdecl-alist x)))
Theorem:
(defthm hons-assoc-equal-of-vl-make-portdecl-alist (implies (stringp k) (equal (hons-assoc-equal k (vl-make-portdecl-alist x)) (and (vl-find-portdecl k x) (cons k (vl-find-portdecl k x))))))
Theorem:
(defthm vl-make-portdecl-alist-of-vl-portdecllist-fix-x (equal (vl-make-portdecl-alist (vl-portdecllist-fix x)) (vl-make-portdecl-alist x)))
Theorem:
(defthm vl-make-portdecl-alist-vl-portdecllist-equiv-congruence-on-x (implies (vl-portdecllist-equiv x x-equiv) (equal (vl-make-portdecl-alist x) (vl-make-portdecl-alist x-equiv))) :rule-classes :congruence)