		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-collect-idents

Transunit-collect-idents

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

Definitions and Theorems

Function: transunit-collect-idents

(defun transunit-collect-idents (transunit)
 (declare (xargs :guard (transunitp transunit)))
 (declare (ignorable transunit))
 (let ((__function__ 'transunit-collect-idents))
   (declare (ignorable __function__))
   (ext-declon-list-collect-idents (transunit->declons transunit))))

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

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

Theorem: transunit-collect-idents-of-transunit-fix-transunit

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

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

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