(vl-namedb-pset-okp pmap pset) → *
Function:
(defun vl-namedb-pset-okp (pmap pset) (declare (xargs :guard (and (vl-namedb-prefixmap-p pmap) (vl-namedb-nameset-p pset)))) (let ((__function__ 'vl-namedb-pset-okp)) (declare (ignorable __function__)) (b* ((pmap (vl-namedb-prefixmap-fix pmap)) (pset (vl-namedb-nameset-fix pset))) (set-equiv (alist-keys pset) (alist-keys pmap)))))
Theorem:
(defthm vl-namedb-pset-okp-of-vl-namedb-prefixmap-fix-pmap (equal (vl-namedb-pset-okp (vl-namedb-prefixmap-fix pmap) pset) (vl-namedb-pset-okp pmap pset)))
Theorem:
(defthm vl-namedb-pset-okp-vl-namedb-prefixmap-equiv-congruence-on-pmap (implies (vl-namedb-prefixmap-equiv pmap pmap-equiv) (equal (vl-namedb-pset-okp pmap pset) (vl-namedb-pset-okp pmap-equiv pset))) :rule-classes :congruence)
Theorem:
(defthm vl-namedb-pset-okp-of-vl-namedb-nameset-fix-pset (equal (vl-namedb-pset-okp pmap (vl-namedb-nameset-fix pset)) (vl-namedb-pset-okp pmap pset)))
Theorem:
(defthm vl-namedb-pset-okp-vl-namedb-nameset-equiv-congruence-on-pset (implies (vl-namedb-nameset-equiv pset pset-equiv) (equal (vl-namedb-pset-okp pmap pset) (vl-namedb-pset-okp pmap pset-equiv))) :rule-classes :congruence)