		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-standardp

Fundef-standardp

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

Definitions and Theorems

Function: fundef-standardp

(defun fundef-standardp (fundef)
  (declare (xargs :guard (fundefp fundef)))
  (declare (ignorable fundef))
  (let ((__function__ 'fundef-standardp))
    (declare (ignorable __function__))
    (and (not (fundef->extension fundef))
         (decl-spec-list-standardp (fundef->specs fundef))
         (declor-standardp (fundef->declor fundef))
         (asm-name-spec-option-case (fundef->asm? fundef)
                                    :none)
         (endp (fundef->attribs fundef))
         (declon-list-standardp (fundef->declons fundef))
         (comp-stmt-standardp (fundef->body fundef)))))

Theorem: booleanp-of-fundef-standardp

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

Theorem: fundef-standardp-of-fundef-fix-fundef

(defthm fundef-standardp-of-fundef-fix-fundef
  (equal (fundef-standardp (fundef-fix fundef))
         (fundef-standardp fundef)))

Theorem: fundef-standardp-fundef-equiv-congruence-on-fundef

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