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