		Search-engine friendly clone of the ACL2 documentation.

Vl-function-specialization

Vl-function-specialization-p

Recognizer for vl-function-specialization structures.

Signature
(vl-function-specialization-p x) → *

Definitions and Theorems

Function: vl-function-specialization-p

(defun vl-function-specialization-p (x)
  (declare (xargs :guard t))
  (let ((__function__ 'vl-function-specialization-p))
    (declare (ignorable __function__))
    (and (true-listp x)
         (eql (len x) 4)
         (b* ((function (std::da-nth 0 x))
              (body (std::da-nth 1 x))
              (constraints (std::da-nth 2 x))
              (?successp (std::da-nth 3 x)))
           (and (sv::svex-p function)
                (vl-stmt-p body)
                (sv::constraintlist-p constraints))))))

Theorem: consp-when-vl-function-specialization-p

(defthm consp-when-vl-function-specialization-p
  (implies (vl-function-specialization-p x)
           (consp x))
  :rule-classes :compound-recognizer)