		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-purep

Unop-purep

Signature
(unop-purep unop) → fty::result
Arguments: unop — Guard (unopp unop).
Returns: fty::result — Type (booleanp fty::result).

Definitions and Theorems

Function: unop-purep

(defun unop-purep (unop)
  (declare (xargs :guard (unopp unop)))
  (declare (ignorable unop))
  (let ((__function__ 'unop-purep))
    (declare (ignorable __function__))
    (unop-case unop
               :address t
               :indir t
               :plus t
               :minus t
               :bitnot t
               :lognot t
               :preinc nil
               :predec nil
               :postinc nil
               :postdec nil
               :sizeof t)))

Theorem: booleanp-of-unop-purep

(defthm booleanp-of-unop-purep
  (b* ((fty::result (unop-purep unop)))
    (booleanp fty::result))
  :rule-classes :rewrite)

Theorem: unop-purep-of-unop-fix-unop

(defthm unop-purep-of-unop-fix-unop
  (equal (unop-purep (unop-fix unop))
         (unop-purep unop)))

Theorem: unop-purep-unop-equiv-congruence-on-unop

(defthm unop-purep-unop-equiv-congruence-on-unop
  (implies (unop-equiv unop unop-equiv)
           (equal (unop-purep unop)
                  (unop-purep unop-equiv)))
  :rule-classes :congruence)