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