		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-annop

Ident-list-annop

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

Definitions and Theorems

Function: ident-list-annop

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

Theorem: booleanp-of-ident-list-annop

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

Theorem: ident-list-annop-of-ident-list-fix-ident-list

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

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

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