		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-unambp

Extdecl-unambp

Signature
(extdecl-unambp extdecl) → yes/no
Arguments: extdecl — Guard (extdeclp extdecl).
Returns: yes/no — Type (booleanp yes/no).

Definitions and Theorems

Function: extdecl-unambp

(defun extdecl-unambp (extdecl)
 (declare (xargs :guard (extdeclp extdecl)))
 (let ((__function__ 'extdecl-unambp))
  (declare (ignorable __function__))
  (extdecl-case
      extdecl
      :fundef (and (fundef-unambp (extdecl-fundef->unwrap extdecl)))
      :decl (and (decl-unambp (extdecl-decl->unwrap extdecl)))
      :empty t
      :asm (and (asm-stmt-unambp (extdecl-asm->unwrap extdecl))))))

Theorem: booleanp-of-extdecl-unambp

(defthm booleanp-of-extdecl-unambp
  (b* ((yes/no (extdecl-unambp extdecl)))
    (booleanp yes/no))
  :rule-classes :rewrite)

Theorem: extdecl-unambp-of-extdecl-fix-extdecl

(defthm extdecl-unambp-of-extdecl-fix-extdecl
  (equal (extdecl-unambp (extdecl-fix extdecl))
         (extdecl-unambp extdecl)))

Theorem: extdecl-unambp-extdecl-equiv-congruence-on-extdecl

(defthm extdecl-unambp-extdecl-equiv-congruence-on-extdecl
  (implies (extdecl-equiv extdecl extdecl-equiv)
           (equal (extdecl-unambp extdecl)
                  (extdecl-unambp extdecl-equiv)))
  :rule-classes :congruence)