		Search-engine friendly clone of the ACL2 documentation.

Scopestack

Vl-scopestack-find-class

Look up a plain identifier in the current scope stack.

Signature
(vl-scopestack-find-class name ss) → class
Arguments: name — Guard (stringp name).; ss — Guard (vl-scopestack-p ss).
Returns: class — Type (iff (vl-class-p class) class).

Definitions and Theorems

Function: vl-scopestack-find-class

(defun vl-scopestack-find-class (name ss)
  (declare (xargs :guard (and (stringp name)
                              (vl-scopestack-p ss))))
  (let ((__function__ 'vl-scopestack-find-class))
    (declare (ignorable __function__))
    (b* (((mv class &)
          (vl-scopestack-find-class/ss name ss)))
      class)))

Theorem: return-type-of-vl-scopestack-find-class

(defthm return-type-of-vl-scopestack-find-class
  (b* ((class (vl-scopestack-find-class name ss)))
    (iff (vl-class-p class) class))
  :rule-classes :rewrite)

Theorem: vl-scopestack-find-class-of-str-fix-name

(defthm vl-scopestack-find-class-of-str-fix-name
  (equal (vl-scopestack-find-class (str-fix name)
                                   ss)
         (vl-scopestack-find-class name ss)))

Theorem: vl-scopestack-find-class-streqv-congruence-on-name

(defthm vl-scopestack-find-class-streqv-congruence-on-name
  (implies (streqv name name-equiv)
           (equal (vl-scopestack-find-class name ss)
                  (vl-scopestack-find-class name-equiv ss)))
  :rule-classes :congruence)

Theorem: vl-scopestack-find-class-of-vl-scopestack-fix-ss

(defthm vl-scopestack-find-class-of-vl-scopestack-fix-ss
  (equal (vl-scopestack-find-class name (vl-scopestack-fix ss))
         (vl-scopestack-find-class name ss)))

Theorem: vl-scopestack-find-class-vl-scopestack-equiv-congruence-on-ss

(defthm
      vl-scopestack-find-class-vl-scopestack-equiv-congruence-on-ss
  (implies (vl-scopestack-equiv ss ss-equiv)
           (equal (vl-scopestack-find-class name ss)
                  (vl-scopestack-find-class name ss-equiv)))
  :rule-classes :congruence)