(svex-override-vars x) → vars
Function:
(defun svex-override-vars (x) (declare (xargs :guard (svex-override-p x))) (let ((__function__ 'svex-override-vars)) (declare (ignorable __function__)) (b* (((svex-override x))) (append (svex-vars x.test) (svex-vars x.val)))))
Theorem:
(defthm svarlist-p-of-svex-override-vars (b* ((vars (svex-override-vars x))) (svarlist-p vars)) :rule-classes :rewrite)
Theorem:
(defthm vars-of-svex-override->test (implies (not (member v (svex-override-vars x))) (not (member v (svex-vars (svex-override->test x))))))
Theorem:
(defthm vars-of-svex-override->val (implies (not (member v (svex-override-vars x))) (not (member v (svex-vars (svex-override->val x))))))
Theorem:
(defthm vars-of-svex-override (implies (and (not (member v (svex-vars test))) (not (member v (svex-vars val)))) (not (member v (svex-override-vars (svex-override wire test val))))))
Theorem:
(defthm svex-override-vars-of-svex-override-fix-x (equal (svex-override-vars (svex-override-fix x)) (svex-override-vars x)))
Theorem:
(defthm svex-override-vars-svex-override-equiv-congruence-on-x (implies (svex-override-equiv x x-equiv) (equal (svex-override-vars x) (svex-override-vars x-equiv))) :rule-classes :congruence)