(svexlist-variable-mask-alist x) → varmasks
Function:
(defun svexlist-variable-mask-alist (x) (declare (xargs :guard (svexlist-p x))) (let ((__function__ 'svexlist-variable-mask-alist)) (declare (ignorable __function__)) (b* ((masks-full (svexlist-mask-alist-memo x))) (svex-mask-alist-extract-vars masks-full))))
Theorem:
(defthm svex-mask-alist-p-of-svexlist-variable-mask-alist (b* ((varmasks (svexlist-variable-mask-alist x))) (svex-mask-alist-p varmasks)) :rule-classes :rewrite)
Theorem:
(defthm svexlist-variable-mask-alist-of-svexlist-fix-x (equal (svexlist-variable-mask-alist (svexlist-fix x)) (svexlist-variable-mask-alist x)))
Theorem:
(defthm svexlist-variable-mask-alist-svexlist-equiv-congruence-on-x (implies (svexlist-equiv x x-equiv) (equal (svexlist-variable-mask-alist x) (svexlist-variable-mask-alist x-equiv))) :rule-classes :congruence)