		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-annop

Extdecl-annop

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

Definitions and Theorems

Function: extdecl-annop

(defun extdecl-annop (extdecl)
  (declare (xargs :guard (extdeclp extdecl)))
  (declare (ignorable extdecl))
  (let ((__function__ 'extdecl-annop))
    (declare (ignorable __function__))
    (extdecl-case
         extdecl
         :fundef (fundef-annop (extdecl-fundef->unwrap extdecl))
         :decl (decl-annop (extdecl-decl->unwrap extdecl))
         :empty t
         :asm (asm-stmt-annop (extdecl-asm->unwrap extdecl)))))

Theorem: booleanp-of-extdecl-annop

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

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

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

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

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