		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-aidentp

Ext-declon-aidentp

Signature
(ext-declon-aidentp ext-declon gcc) → fty::result
Arguments: ext-declon — Guard (ext-declonp ext-declon).; gcc — Guard (booleanp gcc).
Returns: fty::result — Type (booleanp fty::result).

Definitions and Theorems

Function: ext-declon-aidentp

(defun ext-declon-aidentp (ext-declon gcc)
 (declare (xargs :guard (and (ext-declonp ext-declon)
                             (booleanp gcc))))
 (declare (ignorable ext-declon))
 (let ((__function__ 'ext-declon-aidentp))
  (declare (ignorable __function__))
  (ext-declon-case
      ext-declon
      :fundef (fundef-aidentp (ext-declon-fundef->fundef ext-declon)
                              gcc)
      :declon (declon-aidentp (ext-declon-declon->declon ext-declon)
                              gcc)
      :empty t
      :asm (asm-stmt-aidentp (ext-declon-asm->stmt ext-declon)
                             gcc))))

Theorem: booleanp-of-ext-declon-aidentp

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

Theorem: ext-declon-aidentp-of-ext-declon-fix-ext-declon

(defthm ext-declon-aidentp-of-ext-declon-fix-ext-declon
  (equal (ext-declon-aidentp (ext-declon-fix ext-declon)
                             gcc)
         (ext-declon-aidentp ext-declon gcc)))

Theorem: ext-declon-aidentp-ext-declon-equiv-congruence-on-ext-declon

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

Theorem: ext-declon-aidentp-of-bool-fix-gcc

(defthm ext-declon-aidentp-of-bool-fix-gcc
  (equal (ext-declon-aidentp ext-declon (bool-fix gcc))
         (ext-declon-aidentp ext-declon gcc)))

Theorem: ext-declon-aidentp-iff-congruence-on-gcc

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