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