		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-aidentp

Fundef-aidentp

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

Definitions and Theorems

Function: fundef-aidentp

(defun fundef-aidentp (fundef gcc)
 (declare (xargs :guard (and (fundefp fundef) (booleanp gcc))))
 (declare (ignorable fundef))
 (let ((__function__ 'fundef-aidentp))
   (declare (ignorable __function__))
   (and (decl-spec-list-aidentp (fundef->spec fundef)
                                gcc)
        (and (declor-aidentp (fundef->declor fundef)
                             gcc)
             (and (attrib-spec-list-aidentp (fundef->attribs fundef)
                                            gcc)
                  (and (decl-list-aidentp (fundef->decls fundef)
                                          gcc)
                       (stmt-aidentp (fundef->body fundef)
                                     gcc)))))))

Theorem: booleanp-of-fundef-aidentp

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

Theorem: fundef-aidentp-of-fundef-fix-fundef

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

Theorem: fundef-aidentp-fundef-equiv-congruence-on-fundef

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

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

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

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

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