		Search-engine friendly clone of the ACL2 documentation.

Lucid

Vl-lucid-some-solo-occp

Signature
(vl-lucid-some-solo-occp x) → solop
Arguments: x — Guard (vl-lucidocclist-p x).
Returns: solop — Type (booleanp solop).

Definitions and Theorems

Function: vl-lucid-some-solo-occp

(defun vl-lucid-some-solo-occp (x)
  (declare (xargs :guard (vl-lucidocclist-p x)))
  (let ((__function__ 'vl-lucid-some-solo-occp))
    (declare (ignorable __function__))
    (if (atom x)
        nil
      (or (eq (vl-lucidocc-kind (car x)) :solo)
          (vl-lucid-some-solo-occp (cdr x))))))

Theorem: booleanp-of-vl-lucid-some-solo-occp

(defthm booleanp-of-vl-lucid-some-solo-occp
  (b* ((solop (vl-lucid-some-solo-occp x)))
    (booleanp solop))
  :rule-classes :type-prescription)

Theorem: vl-lucid-some-solo-occp-of-vl-lucidocclist-fix-x

(defthm vl-lucid-some-solo-occp-of-vl-lucidocclist-fix-x
  (equal (vl-lucid-some-solo-occp (vl-lucidocclist-fix x))
         (vl-lucid-some-solo-occp x)))

Theorem: vl-lucid-some-solo-occp-vl-lucidocclist-equiv-congruence-on-x

(defthm
      vl-lucid-some-solo-occp-vl-lucidocclist-equiv-congruence-on-x
  (implies (vl-lucidocclist-equiv x x-equiv)
           (equal (vl-lucid-some-solo-occp x)
                  (vl-lucid-some-solo-occp x-equiv)))
  :rule-classes :congruence)