		Search-engine friendly clone of the ACL2 documentation.

Values

Value-promoted-arithmeticp

Check if a value is a promoted arithmetic value.

Signature
(value-promoted-arithmeticp val) → yes/no
Arguments: val — Guard (valuep val).
Returns: yes/no — Type (booleanp yes/no).

That is, an arithmetic value whose type is a promoted arithmetic type

Definitions and Theorems

Function: value-promoted-arithmeticp

(defun value-promoted-arithmeticp (val)
  (declare (xargs :guard (valuep val)))
  (let ((__function__ 'value-promoted-arithmeticp))
    (declare (ignorable __function__))
    (and (value-arithmeticp val)
         (not (value-case val :schar))
         (not (value-case val :uchar))
         (not (value-case val :sshort))
         (not (value-case val :ushort)))))

Theorem: booleanp-of-value-promoted-arithmeticp

(defthm booleanp-of-value-promoted-arithmeticp
  (b* ((yes/no (value-promoted-arithmeticp val)))
    (booleanp yes/no))
  :rule-classes :rewrite)

Theorem: value-promoted-arithmeticp-of-value-fix-val

(defthm value-promoted-arithmeticp-of-value-fix-val
  (equal (value-promoted-arithmeticp (value-fix val))
         (value-promoted-arithmeticp val)))

Theorem: value-promoted-arithmeticp-value-equiv-congruence-on-val

(defthm value-promoted-arithmeticp-value-equiv-congruence-on-val
  (implies (value-equiv val val-equiv)
           (equal (value-promoted-arithmeticp val)
                  (value-promoted-arithmeticp val-equiv)))
  :rule-classes :congruence)