Find a __definition__, as well as info about where it was found.
(vl-scopestack-find-package/ss name ss) → (mv package package-ss)
Function:
(defun vl-scopestack-find-package/ss (name ss) (declare (xargs :guard (and (stringp name) (vl-scopestack-p ss)))) (let ((__function__ 'vl-scopestack-find-package/ss)) (declare (ignorable __function__)) (b* ((ss (vl-scopestack-fix ss))) (vl-scopestack-case ss :null (mv nil nil) :global (b* ((package (vl-scope-find-package-fast name ss.design))) (mv package (vl-scopestack-fix ss))) :local (b* ((package (vl-scope-find-package-fast name ss.top)) ((when package) (mv package ss))) (vl-scopestack-find-package/ss name ss.super))))))
Theorem:
(defthm return-type-of-vl-scopestack-find-package/ss.package (b* (((mv common-lisp::?package ?package-ss) (vl-scopestack-find-package/ss name ss))) (iff (vl-package-p package) package)) :rule-classes :rewrite)
Theorem:
(defthm vl-scopestack-p-of-vl-scopestack-find-package/ss.package-ss (b* (((mv common-lisp::?package ?package-ss) (vl-scopestack-find-package/ss name ss))) (vl-scopestack-p package-ss)) :rule-classes :rewrite)
Theorem:
(defthm vl-scopestack-find-package/ss-of-str-fix-name (equal (vl-scopestack-find-package/ss (str-fix name) ss) (vl-scopestack-find-package/ss name ss)))
Theorem:
(defthm vl-scopestack-find-package/ss-streqv-congruence-on-name (implies (streqv name name-equiv) (equal (vl-scopestack-find-package/ss name ss) (vl-scopestack-find-package/ss name-equiv ss))) :rule-classes :congruence)
Theorem:
(defthm vl-scopestack-find-package/ss-of-vl-scopestack-fix-ss (equal (vl-scopestack-find-package/ss name (vl-scopestack-fix ss)) (vl-scopestack-find-package/ss name ss)))
Theorem:
(defthm vl-scopestack-find-package/ss-vl-scopestack-equiv-congruence-on-ss (implies (vl-scopestack-equiv ss ss-equiv) (equal (vl-scopestack-find-package/ss name ss) (vl-scopestack-find-package/ss name ss-equiv))) :rule-classes :congruence)