(vl-svex-keyvallist-vars x) → *
Function:
(defun vl-svex-keyvallist-vars (x) (declare (xargs :guard (vl-svex-keyvallist-p x))) (let ((__function__ 'vl-svex-keyvallist-vars)) (declare (ignorable __function__)) (b* ((x (vl-svex-keyvallist-fix x))) (if (atom x) nil (append (sv::svex-vars (cdar x)) (vl-svex-keyvallist-vars (cdr x)))))))
Theorem:
(defthm vl-svex-keyvallist-vars-of-pairlis$ (implies (and (not (member v (sv::svexlist-vars vals))) (equal (len keys) (len vals))) (not (member v (vl-svex-keyvallist-vars (pairlis$ keys vals))))))
Theorem:
(defthm vl-svex-keyvallist-vars-of-vl-svex-keyvallist-fix-x (equal (vl-svex-keyvallist-vars (vl-svex-keyvallist-fix x)) (vl-svex-keyvallist-vars x)))
Theorem:
(defthm vl-svex-keyvallist-vars-vl-svex-keyvallist-equiv-congruence-on-x (implies (vl-svex-keyvallist-equiv x x-equiv) (equal (vl-svex-keyvallist-vars x) (vl-svex-keyvallist-vars x-equiv))) :rule-classes :congruence)