		Search-engine friendly clone of the ACL2 documentation.

Vl-fast-hidpiece-p

Faster version of vl-hidpiece-p, given that vl-atomguts-p is already known.

Signature
(vl-fast-hidpiece-p x) → *
Arguments: x — Guard (vl-atomguts-p x).

We leave this function enabled and reason about vl-hidpiece-p instead.

Definitions and Theorems

Function: vl-fast-hidpiece-p$inline

(defun vl-fast-hidpiece-p$inline (x)
  (declare (xargs :guard (vl-atomguts-p x)))
  (let ((__function__ 'vl-fast-hidpiece-p))
    (declare (ignorable __function__))
    (mbe :logic (vl-hidpiece-p x)
         :exec (eq (tag x) :vl-hidpiece))))