		Search-engine friendly clone of the ACL2 documentation.

Iconst

Iconstp

Recognizer for iconst structures.

Signature
(iconstp x) → *

Definitions and Theorems

Function: iconstp

(defun iconstp (x)
  (declare (xargs :guard t))
  (let ((__function__ 'iconstp))
    (declare (ignorable __function__))
    (and (mbe :logic (and (alistp x)
                          (equal (strip-cars x) '(core suffix?)))
              :exec (fty::alist-with-carsp x '(core suffix?)))
         (b* ((core (cdr (std::da-nth 0 x)))
              (suffix? (cdr (std::da-nth 1 x))))
           (and (dec/oct/hex-constp core)
                (isuffix-optionp suffix?))))))

Theorem: consp-when-iconstp

(defthm consp-when-iconstp
  (implies (iconstp x) (consp x))
  :rule-classes :compound-recognizer)