		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-annop

Transunit-annop

Signature
(transunit-annop transunit) → yes/no
Arguments: transunit — Guard (transunitp transunit).
Returns: yes/no — Type (booleanp yes/no).

Definitions and Theorems

Function: transunit-annop

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

Theorem: booleanp-of-transunit-annop

(defthm booleanp-of-transunit-annop
  (b* ((yes/no (transunit-annop transunit)))
    (booleanp yes/no))
  :rule-classes :rewrite)

Theorem: transunit-annop-of-transunit-fix-transunit

(defthm transunit-annop-of-transunit-fix-transunit
  (equal (transunit-annop (transunit-fix transunit))
         (transunit-annop transunit)))

Theorem: transunit-annop-transunit-equiv-congruence-on-transunit

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