Recognizer for iconst structures.
(iconstp x) → *
Function:
(defun iconstp (x) (declare (xargs :guard t)) (and (consp x) (consp (cdr x)) (b* ((core (car x)) (suffix? (car (cdr x))) (info (cdr (cdr x)))) (and (dec/oct/hex-constp core) (isuffix-optionp suffix?) (acl2::any-p info)))))
Theorem:
(defthm consp-when-iconstp (implies (iconstp x) (consp x)) :rule-classes :compound-recognizer)