(vector-access-type-p x) → ok?
Function:
(defun vector-access-type-p (x) (declare (xargs :guard t)) (let ((__function__ 'vector-access-type-p)) (declare (ignorable __function__)) (or (equal x 1) (equal x 2) (equal x 3) (equal x 4))))
Theorem:
(defthm booleanp-of-vector-access-type-p (b* ((ok? (vector-access-type-p x))) (booleanp ok?)) :rule-classes :type-prescription)