Function:
(defun fundef-unambp (fundef) (declare (xargs :guard (fundefp fundef))) (declare (ignorable fundef)) (let ((__function__ 'fundef-unambp)) (declare (ignorable __function__)) (and (decl-spec-list-unambp (fundef->spec fundef)) (and (declor-unambp (fundef->declor fundef)) (and (attrib-spec-list-unambp (fundef->attribs fundef)) (and (decl-list-unambp (fundef->decls fundef)) (comp-stmt-unambp (fundef->body fundef))))))))
Theorem:
(defthm booleanp-of-fundef-unambp (b* ((fty::result (fundef-unambp fundef))) (booleanp fty::result)) :rule-classes :rewrite)
Theorem:
(defthm fundef-unambp-of-fundef-fix-fundef (equal (fundef-unambp (fundef-fix fundef)) (fundef-unambp fundef)))
Theorem:
(defthm fundef-unambp-fundef-equiv-congruence-on-fundef (implies (fundef-equiv fundef fundef-equiv) (equal (fundef-unambp fundef) (fundef-unambp fundef-equiv))) :rule-classes :congruence)