		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-collect-idents

Ident-collect-idents

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

Definitions and Theorems

Function: ident-collect-idents

(defun ident-collect-idents (ident)
  (declare (xargs :guard (identp ident)))
  (declare (ignorable ident))
  (let ((__function__ 'ident-collect-idents))
    (declare (ignorable __function__))
    (insert (ident-fix ident) nil)))

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

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

Theorem: ident-collect-idents-of-ident-fix-ident

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

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

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