Function:
(defun extdecl-aidentp (extdecl gcc) (declare (xargs :guard (and (extdeclp extdecl) (booleanp gcc)))) (declare (ignorable extdecl)) (let ((__function__ 'extdecl-aidentp)) (declare (ignorable __function__)) (extdecl-case extdecl :fundef (fundef-aidentp (extdecl-fundef->unwrap extdecl) gcc) :decl (decl-aidentp (extdecl-decl->unwrap extdecl) gcc) :empty t :asm (asm-stmt-aidentp (extdecl-asm->unwrap extdecl) gcc))))
Theorem:
(defthm booleanp-of-extdecl-aidentp (b* ((fty::result (extdecl-aidentp extdecl gcc))) (booleanp fty::result)) :rule-classes :rewrite)
Theorem:
(defthm extdecl-aidentp-of-extdecl-fix-extdecl (equal (extdecl-aidentp (extdecl-fix extdecl) gcc) (extdecl-aidentp extdecl gcc)))
Theorem:
(defthm extdecl-aidentp-extdecl-equiv-congruence-on-extdecl (implies (extdecl-equiv extdecl extdecl-equiv) (equal (extdecl-aidentp extdecl gcc) (extdecl-aidentp extdecl-equiv gcc))) :rule-classes :congruence)
Theorem:
(defthm extdecl-aidentp-of-bool-fix-gcc (equal (extdecl-aidentp extdecl (bool-fix gcc)) (extdecl-aidentp extdecl gcc)))
Theorem:
(defthm extdecl-aidentp-iff-congruence-on-gcc (implies (iff gcc gcc-equiv) (equal (extdecl-aidentp extdecl gcc) (extdecl-aidentp extdecl gcc-equiv))) :rule-classes :congruence)