		Search-engine friendly clone of the ACL2 documentation.

Vttree

Vttree-p

Recognizer for vttree structures.

Signature
(vttree-p x) → *

Definitions and Theorems

Function: vttree-p

(defun vttree-p (x)
  (declare (xargs :guard t))
  (let ((__function__ 'vttree-p))
    (declare (ignorable __function__))
    (cond ((atom x) (and (eq x nil) (b* nil t)))
          ((eq (car x) :warnings)
           (b* ((warnings (cdr x)))
             (vl-warninglist-p warnings)))
          ((eq (car x) :constraints)
           (b* ((constraints (cdr x)))
             (sv::constraintlist-p constraints)))
          ((eq (car x) :context)
           (and (consp (cdr x))
                (b* ((acl2::?ctx (cadr x))
                     (subtree (cddr x)))
                  (vttree-p subtree))))
          (t (b* ((left (car x)) (right (cdr x)))
               (and (vttree-p left)
                    (vttree-p right)))))))