		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-annop

Extdecl-list-annop

Signature
(extdecl-list-annop extdecl-list) → fty::result
Arguments: extdecl-list — Guard (extdecl-listp extdecl-list).
Returns: fty::result — Type (booleanp fty::result).

Definitions and Theorems

Function: extdecl-list-annop

(defun extdecl-list-annop (extdecl-list)
  (declare (xargs :guard (extdecl-listp extdecl-list)))
  (let ((__function__ 'extdecl-list-annop))
    (declare (ignorable __function__))
    (cond ((endp extdecl-list) t)
          (t (and (extdecl-annop (car extdecl-list))
                  (extdecl-list-annop (cdr extdecl-list)))))))

Theorem: booleanp-of-extdecl-list-annop

(defthm booleanp-of-extdecl-list-annop
  (b* ((fty::result (extdecl-list-annop extdecl-list)))
    (booleanp fty::result))
  :rule-classes :rewrite)

Theorem: extdecl-list-annop-of-extdecl-list-fix-extdecl-list

(defthm extdecl-list-annop-of-extdecl-list-fix-extdecl-list
  (equal (extdecl-list-annop (extdecl-list-fix extdecl-list))
         (extdecl-list-annop extdecl-list)))

Theorem: extdecl-list-annop-extdecl-list-equiv-congruence-on-extdecl-list

(defthm
   extdecl-list-annop-extdecl-list-equiv-congruence-on-extdecl-list
  (implies (extdecl-list-equiv extdecl-list extdecl-list-equiv)
           (equal (extdecl-list-annop extdecl-list)
                  (extdecl-list-annop extdecl-list-equiv)))
  :rule-classes :congruence)