(vl-elabindex-update-scopes scopes &optional (elabindex 'elabindex)) → new-elabindex
Function:
(defun vl-elabindex-update-scopes-fn (scopes elabindex) (declare (xargs :stobjs (elabindex))) (declare (xargs :guard (vl-elabscopes-p scopes))) (let ((__function__ 'vl-elabindex-update-scopes)) (declare (ignorable __function__)) (vl-elabindex-update-scopes1 (vl-elabscopes-fix scopes) elabindex)))
Theorem:
(defthm vl-elabindex-update-scopes-fn-of-vl-elabscopes-fix-scopes (equal (vl-elabindex-update-scopes-fn (vl-elabscopes-fix scopes) elabindex) (vl-elabindex-update-scopes-fn scopes elabindex)))
Theorem:
(defthm vl-elabindex-update-scopes-fn-vl-elabscopes-equiv-congruence-on-scopes (implies (vl-elabscopes-equiv scopes scopes-equiv) (equal (vl-elabindex-update-scopes-fn scopes elabindex) (vl-elabindex-update-scopes-fn scopes-equiv elabindex))) :rule-classes :congruence)