(vl-tack-scopes-onto-hid scopes hid) → scopeexpr
Function:
(defun vl-tack-scopes-onto-hid (scopes hid) (declare (xargs :guard (and (vl-scopenamelist-p scopes) (vl-hidexpr-p hid)))) (let ((__function__ 'vl-tack-scopes-onto-hid)) (declare (ignorable __function__)) (if (atom scopes) (make-vl-scopeexpr-end :hid hid) (make-vl-scopeexpr-colon :first (car scopes) :rest (vl-tack-scopes-onto-hid (cdr scopes) hid)))))
Theorem:
(defthm vl-scopeexpr-p-of-vl-tack-scopes-onto-hid (b* ((scopeexpr (vl-tack-scopes-onto-hid scopes hid))) (vl-scopeexpr-p scopeexpr)) :rule-classes :rewrite)