(svarlist-addr-p x) recognizes lists where every element satisfies svar-addr-p.
(svarlist-addr-p x) → std::bool
This is an ordinary std::deflist. It is
"loose" in that it does not care whether
Function:
(defun svarlist-addr-p (x) (declare (xargs :guard (svarlist-p x))) (let ((__function__ 'svarlist-addr-p)) (declare (ignorable __function__)) (if (consp x) (and (svar-addr-p (car x)) (svarlist-addr-p (cdr x))) t)))
Theorem:
(defthm svarlist-addr-p-of-svarlist-fix-x (equal (svarlist-addr-p (svarlist-fix x)) (svarlist-addr-p x)))
Theorem:
(defthm svarlist-addr-p-svarlist-equiv-congruence-on-x (implies (svarlist-equiv x x-equiv) (equal (svarlist-addr-p x) (svarlist-addr-p x-equiv))) :rule-classes :congruence)