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)) (declor-unambp (fundef->declor fundef)) (attrib-spec-list-unambp (fundef->attribs fundef)) (decl-list-unambp (fundef->decls fundef)) (stmt-unambp (fundef->body fundef)))))
Theorem:
(defthm booleanp-of-fundef-unambp (b* ((yes/no (fundef-unambp fundef))) (booleanp yes/no)) :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)