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