		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-collect-idents

Ext-declon-collect-idents

Signature
(ext-declon-collect-idents c$::ext-declon) → fty::result
Arguments: c$::ext-declon — Guard (ext-declonp c$::ext-declon).
Returns: fty::result — Type (ident-setp fty::result).

Definitions and Theorems

Function: ext-declon-collect-idents

(defun ext-declon-collect-idents (c$::ext-declon)
 (declare (xargs :guard (ext-declonp c$::ext-declon)))
 (declare (ignorable c$::ext-declon))
 (let ((__function__ 'ext-declon-collect-idents))
   (declare (ignorable __function__))
   (ext-declon-case
        c$::ext-declon
        :fundef (fundef-collect-idents
                     (ext-declon-fundef->fundef c$::ext-declon))
        :declon (declon-collect-idents
                     (c$::ext-declon-declon->declon c$::ext-declon))
        :empty nil
        :asm (asm-stmt-collect-idents
                  (c$::ext-declon-asm->stmt c$::ext-declon)))))

Theorem: ident-setp-of-ext-declon-collect-idents

(defthm ident-setp-of-ext-declon-collect-idents
  (b* ((fty::result (ext-declon-collect-idents c$::ext-declon)))
    (ident-setp fty::result))
  :rule-classes :rewrite)

Theorem: ext-declon-collect-idents-of-ext-declon-fix-ext-declon

(defthm ext-declon-collect-idents-of-ext-declon-fix-ext-declon
  (equal (ext-declon-collect-idents (ext-declon-fix c$::ext-declon))
         (ext-declon-collect-idents c$::ext-declon)))

Theorem: ext-declon-collect-idents-ext-declon-equiv-congruence-on-ext-declon

(defthm
 ext-declon-collect-idents-ext-declon-equiv-congruence-on-ext-declon
 (implies (c$::ext-declon-equiv c$::ext-declon ext-declon-equiv)
          (equal (ext-declon-collect-idents c$::ext-declon)
                 (ext-declon-collect-idents ext-declon-equiv)))
 :rule-classes :congruence)