		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-aidentp

Transunit-aidentp

Signature
(transunit-aidentp transunit gcc) → fty::result
Arguments: transunit — Guard (transunitp transunit).; gcc — Guard (booleanp gcc).
Returns: fty::result — Type (booleanp fty::result).

Definitions and Theorems

Function: transunit-aidentp

(defun transunit-aidentp (transunit gcc)
  (declare (xargs :guard (and (transunitp transunit)
                              (booleanp gcc))))
  (declare (ignorable transunit))
  (let ((__function__ 'transunit-aidentp))
    (declare (ignorable __function__))
    (extdecl-list-aidentp (transunit->decls transunit)
                          gcc)))

Theorem: booleanp-of-transunit-aidentp

(defthm booleanp-of-transunit-aidentp
  (b* ((fty::result (transunit-aidentp transunit gcc)))
    (booleanp fty::result))
  :rule-classes :rewrite)

Theorem: transunit-aidentp-of-transunit-fix-transunit

(defthm transunit-aidentp-of-transunit-fix-transunit
  (equal (transunit-aidentp (transunit-fix transunit)
                            gcc)
         (transunit-aidentp transunit gcc)))

Theorem: transunit-aidentp-transunit-equiv-congruence-on-transunit

(defthm transunit-aidentp-transunit-equiv-congruence-on-transunit
  (implies (transunit-equiv transunit transunit-equiv)
           (equal (transunit-aidentp transunit gcc)
                  (transunit-aidentp transunit-equiv gcc)))
  :rule-classes :congruence)

Theorem: transunit-aidentp-of-bool-fix-gcc

(defthm transunit-aidentp-of-bool-fix-gcc
  (equal (transunit-aidentp transunit (bool-fix gcc))
         (transunit-aidentp transunit gcc)))

Theorem: transunit-aidentp-iff-congruence-on-gcc

(defthm transunit-aidentp-iff-congruence-on-gcc
  (implies (iff gcc gcc-equiv)
           (equal (transunit-aidentp transunit gcc)
                  (transunit-aidentp transunit gcc-equiv)))
  :rule-classes :congruence)