Finds the hidexpr nested inside the scopeexpr.
(vl-scopeexpr->hid x) → hid
Function:
(defun vl-scopeexpr->hid (x) (declare (xargs :guard (vl-scopeexpr-p x))) (let ((__function__ 'vl-scopeexpr->hid)) (declare (ignorable __function__)) (vl-scopeexpr-case x :end x.hid :colon (vl-scopeexpr->hid x.rest))))
Theorem:
(defthm vl-hidexpr-p-of-vl-scopeexpr->hid (b* ((hid (vl-scopeexpr->hid x))) (vl-hidexpr-p hid)) :rule-classes :rewrite)
Theorem:
(defthm count-of-vl-scopeexpr->hid (b* ((?hid (vl-scopeexpr->hid x))) (< (vl-hidexpr-count hid) (vl-scopeexpr-count x))) :rule-classes :linear)
Theorem:
(defthm vl-scopeexpr->hid-of-vl-scopeexpr-fix-x (equal (vl-scopeexpr->hid (vl-scopeexpr-fix x)) (vl-scopeexpr->hid x)))
Theorem:
(defthm vl-scopeexpr->hid-vl-scopeexpr-equiv-congruence-on-x (implies (vl-scopeexpr-equiv x x-equiv) (equal (vl-scopeexpr->hid x) (vl-scopeexpr->hid x-equiv))) :rule-classes :congruence)