		Search-engine friendly clone of the ACL2 documentation.

Network

Proper-node-listp

(proper-node-listp x) recognizes lists where every element satisfies proper-node-p.

Signature
(proper-node-listp x) → std::bool

This is an ordinary deflist. It is "strict" in that it requires x to be a "properly" nil-terminated list.

Definitions and Theorems

Function: proper-node-listp

(defun proper-node-listp (x)
  (declare (xargs :guard t))
  (let ((__function__ 'proper-node-listp))
    (declare (ignorable __function__))
    (if (consp x)
        (and (proper-node-p (car x))
             (proper-node-listp (cdr x)))
      (null x))))

Theorem: proper-node-listp-implies-node-listp

(defthm proper-node-listp-implies-node-listp
  (implies (proper-node-listp x)
           (node-listp x)))

Subtopics

Proper-node-listp-basics: Basic theorems about proper-node-listp, generated by deflist.