(fundef-option-unambp fundef-option) → fty::result
Function:
(defun fundef-option-unambp (fundef-option) (declare (xargs :guard (fundef-optionp fundef-option))) (let ((__function__ 'fundef-option-unambp)) (declare (ignorable __function__)) (fundef-option-case fundef-option :some (fundef-unambp (fundef-option-some->val fundef-option)) :none t)))
Theorem:
(defthm booleanp-of-fundef-option-unambp (b* ((fty::result (fundef-option-unambp fundef-option))) (booleanp fty::result)) :rule-classes :rewrite)
Theorem:
(defthm fundef-option-unambp-of-fundef-option-fix-fundef-option (equal (fundef-option-unambp (fundef-option-fix fundef-option)) (fundef-option-unambp fundef-option)))
Theorem:
(defthm fundef-option-unambp-fundef-option-equiv-congruence-on-fundef-option (implies (fundef-option-equiv fundef-option fundef-option-equiv) (equal (fundef-option-unambp fundef-option) (fundef-option-unambp fundef-option-equiv))) :rule-classes :congruence)