Check if a type is a floating type [C17:6.2.5/11].
Function:
(defun type-floatingp (type) (declare (xargs :guard (typep type))) (or (type-real-floatingp type) (type-complexp type)))
Theorem:
(defthm booleanp-of-type-floatingp (b* ((yes/no (type-floatingp type))) (booleanp yes/no)) :rule-classes :rewrite)
Theorem:
(defthm type-floatingp-when-type-kind-syntaxp (implies (and (equal (type-kind type) kind) (syntaxp (quotep kind))) (equal (type-floatingp type) (or (type-real-floatingp type) (type-complexp type)))))
Theorem:
(defthm type-floatingp-of-type-fix-type (equal (type-floatingp (type-fix type)) (type-floatingp type)))
Theorem:
(defthm type-floatingp-type-equiv-congruence-on-type (implies (type-equiv type type-equiv) (equal (type-floatingp type) (type-floatingp type-equiv))) :rule-classes :congruence)