(ext-declon-list-standardp ext-declon-list) → fty::result
Function:
(defun ext-declon-list-standardp (ext-declon-list) (declare (xargs :guard (ext-declon-listp ext-declon-list))) (let ((__function__ 'ext-declon-list-standardp)) (declare (ignorable __function__)) (cond ((endp ext-declon-list) t) (t (and (ext-declon-standardp (car ext-declon-list)) (ext-declon-list-standardp (cdr ext-declon-list)))))))
Theorem:
(defthm booleanp-of-ext-declon-list-standardp (b* ((fty::result (ext-declon-list-standardp ext-declon-list))) (booleanp fty::result)) :rule-classes :rewrite)
Theorem:
(defthm ext-declon-list-standardp-of-ext-declon-list-fix-ext-declon-list (equal (ext-declon-list-standardp (ext-declon-list-fix ext-declon-list)) (ext-declon-list-standardp ext-declon-list)))
Theorem:
(defthm ext-declon-list-standardp-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-standardp ext-declon-list) (ext-declon-list-standardp ext-declon-list-equiv))) :rule-classes :congruence)