Recognize true lists of zp values.
(zp-listp x) → std::bool
A value satisfies zp iff it does not satisfy posp.
We use the
Function:
(defun zp-listp (x) (declare (xargs :guard t)) (let ((__function__ 'zp-listp)) (declare (ignorable __function__)) (if (consp x) (and (not (posp (car x))) (zp-listp (cdr x))) (null x))))