(vl-namefactory-namedb-okp mod namedb) → *
Function:
(defun vl-namefactory-namedb-okp (mod namedb) (declare (xargs :guard (and (vl-maybe-module-p mod) (vl-namedb-p namedb)))) (let ((__function__ 'vl-namefactory-namedb-okp)) (declare (ignorable __function__)) (or (not mod) (not (vl-namedb->names namedb)) (subsetp-equal (vl-module->modnamespace mod) (vl-namedb-allnames namedb)))))
Theorem:
(defthm vl-namefactory-namedb-okp-of-nil (vl-namefactory-namedb-okp nil namedb))
Theorem:
(defthm vl-namefactory-namedb-okp-of-vl-empty-namedb (vl-namefactory-namedb-okp mod (vl-empty-namedb)))
Theorem:
(defthm vl-namefactory-namedb-okp-of-vl-starting-namedb (vl-namefactory-namedb-okp mod (vl-starting-namedb (vl-module->modnamespace mod))))
Theorem:
(defthm vl-namefactory-namedb-okp-of-vl-maybe-module-fix-mod (equal (vl-namefactory-namedb-okp (vl-maybe-module-fix mod) namedb) (vl-namefactory-namedb-okp mod namedb)))
Theorem:
(defthm vl-namefactory-namedb-okp-vl-maybe-module-equiv-congruence-on-mod (implies (vl-maybe-module-equiv mod mod-equiv) (equal (vl-namefactory-namedb-okp mod namedb) (vl-namefactory-namedb-okp mod-equiv namedb))) :rule-classes :congruence)
Theorem:
(defthm vl-namefactory-namedb-okp-of-vl-namedb-fix-namedb (equal (vl-namefactory-namedb-okp mod (vl-namedb-fix namedb)) (vl-namefactory-namedb-okp mod namedb)))
Theorem:
(defthm vl-namefactory-namedb-okp-vl-namedb-equiv-congruence-on-namedb (implies (vl-namedb-equiv namedb namedb-equiv) (equal (vl-namefactory-namedb-okp mod namedb) (vl-namefactory-namedb-okp mod namedb-equiv))) :rule-classes :congruence)