Check if a value is an integer [C:6.2.5/17].
Function:
(defun value-integerp (val) (declare (xargs :guard (valuep val))) (let ((__function__ 'value-integerp)) (declare (ignorable __function__)) (or (value-signed-integerp val) (value-unsigned-integerp val))))
Theorem:
(defthm booleanp-of-value-integerp (b* ((yes/no (value-integerp val))) (booleanp yes/no)) :rule-classes :rewrite)
Theorem:
(defthm value-integerp-of-value-fix-val (equal (value-integerp (value-fix val)) (value-integerp val)))
Theorem:
(defthm value-integerp-value-equiv-congruence-on-val (implies (value-equiv val val-equiv) (equal (value-integerp val) (value-integerp val-equiv))) :rule-classes :congruence)