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