Recognizer of Java
(floatx-valuep x) → yes/no
Function:
(defun floatx-valuep (x) (declare (xargs :guard t)) (let ((__function__ 'floatx-valuep)) (declare (ignorable __function__)) (and (tuplep 2 x) (eq (first x) :floatx) (floatx-value-abs-p (second x)))))
Theorem:
(defthm booleanp-of-floatx-valuep (b* ((yes/no (floatx-valuep x))) (booleanp yes/no)) :rule-classes :rewrite)
Theorem:
(defthm no-floatx-value-when-unsupported (implies (not (floatx-param)) (not (floatx-valuep x))))