Recognizer of values of type
(uintp x) → yes/no
Function:
(defun uintp (x) (declare (xargs :guard t)) (let ((__function__ 'uintp)) (declare (ignorable __function__)) (and (consp x) (eq (car x) :uint) (true-listp (cdr x)) (eql (len (cdr x)) 1) (b* ((get (std::da-nth 0 (cdr x)))) (uint-integerp get)))))
Theorem:
(defthm booleanp-of-uintp (b* ((yes/no (uintp x))) (booleanp yes/no)) :rule-classes :rewrite)
Theorem:
(defthm consp-when-uintp (implies (uintp x) (consp x)) :rule-classes :compound-recognizer)