		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-annop

Const-option-annop

Signature
(const-option-annop const-option) → fty::result
Arguments: const-option — Guard (const-optionp const-option).
Returns: fty::result — Type (booleanp fty::result).

Definitions and Theorems

Function: const-option-annop

(defun const-option-annop (const-option)
  (declare (xargs :guard (const-optionp const-option)))
  (let ((__function__ 'const-option-annop))
    (declare (ignorable __function__))
    (const-option-case
         const-option
         :some (const-annop (const-option-some->val const-option))
         :none t)))

Theorem: booleanp-of-const-option-annop

(defthm booleanp-of-const-option-annop
  (b* ((fty::result (const-option-annop const-option)))
    (booleanp fty::result))
  :rule-classes :rewrite)

Theorem: const-option-annop-of-const-option-fix-const-option

(defthm const-option-annop-of-const-option-fix-const-option
  (equal (const-option-annop (const-option-fix const-option))
         (const-option-annop const-option)))

Theorem: const-option-annop-const-option-equiv-congruence-on-const-option

(defthm
   const-option-annop-const-option-equiv-congruence-on-const-option
  (implies (const-option-equiv const-option const-option-equiv)
           (equal (const-option-annop const-option)
                  (const-option-annop const-option-equiv)))
  :rule-classes :congruence)