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