(ext-declon-list-unambp ext-declon-list) → fty::result
Function:
(defun ext-declon-list-unambp (ext-declon-list) (declare (xargs :guard (ext-declon-listp ext-declon-list))) (let ((__function__ 'ext-declon-list-unambp)) (declare (ignorable __function__)) (cond ((endp ext-declon-list) t) (t (and (ext-declon-unambp (car ext-declon-list)) (ext-declon-list-unambp (cdr ext-declon-list)))))))
Theorem:
(defthm booleanp-of-ext-declon-list-unambp (b* ((fty::result (ext-declon-list-unambp ext-declon-list))) (booleanp fty::result)) :rule-classes :rewrite)
Theorem:
(defthm ext-declon-list-unambp-of-ext-declon-list-fix-ext-declon-list (equal (ext-declon-list-unambp (ext-declon-list-fix ext-declon-list)) (ext-declon-list-unambp ext-declon-list)))
Theorem:
(defthm ext-declon-list-unambp-ext-declon-list-equiv-congruence-on-ext-declon-list (implies (ext-declon-list-equiv ext-declon-list ext-declon-list-equiv) (equal (ext-declon-list-unambp ext-declon-list) (ext-declon-list-unambp ext-declon-list-equiv))) :rule-classes :congruence)