Check if a list of types consists of all integer types.
(type-integer-listp x) → std::bool
This is an ordinary std::deflist. It is
"loose" in that it does not care whether
Function:
(defun type-integer-listp (x) (declare (xargs :guard (type-listp x))) (let ((__function__ 'type-integer-listp)) (declare (ignorable __function__)) (if (consp x) (and (type-integerp (car x)) (type-integer-listp (cdr x))) t)))
Theorem:
(defthm type-integer-listp-of-type-list-fix-x (equal (type-integer-listp (type-list-fix x)) (type-integer-listp x)))
Theorem:
(defthm type-integer-listp-type-list-equiv-congruence-on-x (implies (type-list-equiv x x-equiv) (equal (type-integer-listp x) (type-integer-listp x-equiv))) :rule-classes :congruence)