		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-collect-idents

Transunit-ensemble-collect-idents

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

Definitions and Theorems

Function: transunit-ensemble-collect-idents

(defun transunit-ensemble-collect-idents (transunit-ensemble)
  (declare (xargs :guard (transunit-ensemblep transunit-ensemble)))
  (declare (ignorable transunit-ensemble))
  (let ((__function__ 'transunit-ensemble-collect-idents))
    (declare (ignorable __function__))
    (filepath-transunit-map-collect-idents
         (transunit-ensemble->units transunit-ensemble))))

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

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

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

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

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

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