		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-collect-idents

Fundef-collect-idents

Signature
(fundef-collect-idents fundef) → fty::result
Arguments: fundef — Guard (fundefp fundef).
Returns: fty::result — Type (ident-setp fty::result).

Definitions and Theorems

Function: fundef-collect-idents

(defun fundef-collect-idents (fundef)
 (declare (xargs :guard (fundefp fundef)))
 (declare (ignorable fundef))
 (let ((__function__ 'fundef-collect-idents))
  (declare (ignorable __function__))
  (union
   (decl-spec-list-collect-idents (c$::fundef->specs fundef))
   (union
    (declor-collect-idents (fundef->declor fundef))
    (union
     (attrib-spec-list-collect-idents (c$::fundef->attribs fundef))
     (union
          (declon-list-collect-idents (c$::fundef->declons fundef))
          (comp-stmt-collect-idents (c$::fundef->body fundef))))))))

Theorem: ident-setp-of-fundef-collect-idents

(defthm ident-setp-of-fundef-collect-idents
  (b* ((fty::result (fundef-collect-idents fundef)))
    (ident-setp fty::result))
  :rule-classes :rewrite)

Theorem: fundef-collect-idents-of-fundef-fix-fundef

(defthm fundef-collect-idents-of-fundef-fix-fundef
  (equal (fundef-collect-idents (fundef-fix fundef))
         (fundef-collect-idents fundef)))

Theorem: fundef-collect-idents-fundef-equiv-congruence-on-fundef

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