		Search-engine friendly clone of the ACL2 documentation.

Partsum-comp

Partsum-comp-p

Recognizer for partsum-comp structures.

Signature
(partsum-comp-p x) → *

Definitions and Theorems

Function: partsum-comp-p

(defun partsum-comp-p (x)
  (declare (xargs :guard t))
  (let ((__function__ 'partsum-comp-p))
    (declare (ignorable __function__))
    (cond ((stringp x)
           (b* ((val x)) (stringp val)))
          ((atom x) (b* ((val x)) (integerp val)))
          (t (b* ((msb (car x)) (lsb (cdr x)))
               (and (integerp msb) (integerp lsb)))))))