Recognizer for port lists whose expressions are well-formed.
(vl-portlist-wellformed-p x) → std::bool
This is an ordinary deflist. It is
"loose" in that it does not care whether
Function:
(defun vl-portlist-wellformed-p (x) (declare (xargs :guard (vl-portlist-p x))) (let ((__function__ 'vl-portlist-wellformed-p)) (declare (ignorable __function__)) (if (consp x) (and (vl-port-wellformed-p (car x)) (vl-portlist-wellformed-p (cdr x))) t)))
Theorem:
(defthm vl-portlist-wellformed-p-of-vl-portlist-fix-x (equal (vl-portlist-wellformed-p (vl-portlist-fix x)) (vl-portlist-wellformed-p x)))
Theorem:
(defthm vl-portlist-wellformed-p-vl-portlist-equiv-congruence-on-x (implies (vl-portlist-equiv x x-equiv) (equal (vl-portlist-wellformed-p x) (vl-portlist-wellformed-p x-equiv))) :rule-classes :congruence)