(vl-elabindex->ss &optional (elabindex 'elabindex)) → ss
Function:
(defun vl-elabindex->ss-fn (elabindex) (declare (xargs :stobjs (elabindex))) (declare (xargs :guard t)) (let ((__function__ 'vl-elabindex->ss)) (declare (ignorable __function__)) (vl-scopestack-fix (vl-elabindex->ss1 elabindex))))
Theorem:
(defthm vl-scopestack-p-of-vl-elabindex->ss (b* ((ss (vl-elabindex->ss-fn elabindex))) (vl-scopestack-p ss)) :rule-classes :rewrite)