(vcd-indexlist-p x len) recognizes lists where every element satisfies vcd-index-p.
(vcd-indexlist-p x len) → std::bool
This is an ordinary deflist. It is
"loose" in that it does not care whether
Function:
(defun vcd-indexlist-p (x len) (declare (xargs :guard (natp len))) (let ((__function__ 'vcd-indexlist-p)) (declare (ignorable __function__)) (if (consp x) (and (vcd-index-p (car x) len) (vcd-indexlist-p (cdr x) len)) t)))