Check if a value is scalar [C:6.2.5/21].
Function:
(defun value-scalarp (val) (declare (xargs :guard (valuep val))) (let ((__function__ 'value-scalarp)) (declare (ignorable __function__)) (or (value-arithmeticp val) (value-case val :pointer))))
Theorem:
(defthm booleanp-of-value-scalarp (b* ((yes/no (value-scalarp val))) (booleanp yes/no)) :rule-classes :rewrite)
Theorem:
(defthm value-scalarp-of-value-fix-val (equal (value-scalarp (value-fix val)) (value-scalarp val)))
Theorem:
(defthm value-scalarp-value-equiv-congruence-on-val (implies (value-equiv val val-equiv) (equal (value-scalarp val) (value-scalarp val-equiv))) :rule-classes :congruence)