		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-aidentp

Const-aidentp

Signature
(const-aidentp const gcc) → fty::result
Arguments: const — Guard (constp const).; gcc — Guard (booleanp gcc).
Returns: fty::result — Type (booleanp fty::result).

Definitions and Theorems

Function: const-aidentp

(defun const-aidentp (const gcc)
  (declare (xargs :guard (and (constp const) (booleanp gcc))))
  (declare (ignorable const))
  (let ((__function__ 'const-aidentp))
    (declare (ignorable __function__))
    (const-case const
                :int t
                :float t
                :enum (ident-aidentp (const-enum->unwrap const)
                                     gcc)
                :char t)))

Theorem: booleanp-of-const-aidentp

(defthm booleanp-of-const-aidentp
  (b* ((fty::result (const-aidentp const gcc)))
    (booleanp fty::result))
  :rule-classes :rewrite)

Theorem: const-aidentp-of-const-fix-const

(defthm const-aidentp-of-const-fix-const
  (equal (const-aidentp (const-fix const) gcc)
         (const-aidentp const gcc)))

Theorem: const-aidentp-const-equiv-congruence-on-const

(defthm const-aidentp-const-equiv-congruence-on-const
  (implies (const-equiv const const-equiv)
           (equal (const-aidentp const gcc)
                  (const-aidentp const-equiv gcc)))
  :rule-classes :congruence)

Theorem: const-aidentp-of-bool-fix-gcc

(defthm const-aidentp-of-bool-fix-gcc
  (equal (const-aidentp const (bool-fix gcc))
         (const-aidentp const gcc)))

Theorem: const-aidentp-iff-congruence-on-gcc

(defthm const-aidentp-iff-congruence-on-gcc
  (implies (iff gcc gcc-equiv)
           (equal (const-aidentp const gcc)
                  (const-aidentp const gcc-equiv)))
  :rule-classes :congruence)