Recognizer for floating-pointx-value.
(floating-pointx-valuep x) → yes/no
Function:
(defun floating-pointx-valuep (x) (declare (xargs :guard t)) (let ((__function__ 'floating-pointx-valuep)) (declare (ignorable __function__)) (or (floating-point-valuep x) (floatx-valuep x) (doublex-valuep x))))
Theorem:
(defthm booleanp-of-floating-pointx-valuep (b* ((yes/no (floating-pointx-valuep x))) (booleanp yes/no)) :rule-classes :rewrite)
Theorem:
(defthm floating-pointx-valuep-when-floating-point-valuep (implies (floating-point-valuep x) (floating-pointx-valuep x)))
Theorem:
(defthm floating-pointx-valuep-when-floatx-valuep (implies (floatx-valuep x) (floating-pointx-valuep x)))
Theorem:
(defthm floating-pointx-valuep-when-doublex-valuep (implies (doublex-valuep x) (floating-pointx-valuep x)))