		Search-engine friendly clone of the ACL2 documentation.

Lucid

Vl-lucid-all-slices-p

(vl-lucid-all-slices-p x) recognizes lists where every element satisfies eq.

Signature
(vl-lucid-all-slices-p x) → std::bool

This is an ordinary deflist. It is "loose" in that it does not care whether x is nil-terminated.

Definitions and Theorems

Function: vl-lucid-all-slices-p

(defun vl-lucid-all-slices-p (x)
  (declare (xargs :guard (vl-lucidocclist-p x)))
  (let ((__function__ 'vl-lucid-all-slices-p))
    (declare (ignorable __function__))
    (if (consp x)
        (and (eq (vl-lucidocc-kind (car x)) :slice)
             (vl-lucid-all-slices-p (cdr x)))
      t)))

Subtopics

Vl-lucid-all-slices-p-basics: Basic theorems about vl-lucid-all-slices-p, generated by deflist.