		Search-engine friendly clone of the ACL2 documentation.

Atc-pretty-printer

Expr-grade-index

Signature
(expr-grade-index grade) → index
Arguments: grade — Guard (expr-gradep grade).
Returns: index — Type (natp index).

Definitions and Theorems

Function: expr-grade-index

(defun expr-grade-index (grade)
  (declare (xargs :guard (expr-gradep grade)))
  (let ((__function__ 'expr-grade-index))
    (declare (ignorable __function__))
    (expr-grade-case grade
                     :top 16
                     :assignment 15
                     :conditional 14
                     :logical-or 13
                     :logical-and 12
                     :ior 11
                     :xor 10
                     :and 9
                     :equality 8
                     :relational 7
                     :shift 6
                     :additive 5
                     :multiplicative 4
                     :cast 3
                     :unary 2
                     :postfix 1
                     :primary 0)))

Theorem: natp-of-expr-grade-index

(defthm natp-of-expr-grade-index
  (b* ((index (expr-grade-index grade)))
    (natp index))
  :rule-classes :rewrite)

Theorem: expr-grade-index-of-expr-grade-fix-grade

(defthm expr-grade-index-of-expr-grade-fix-grade
  (equal (expr-grade-index (expr-grade-fix grade))
         (expr-grade-index grade)))

Theorem: expr-grade-index-expr-grade-equiv-congruence-on-grade

(defthm expr-grade-index-expr-grade-equiv-congruence-on-grade
  (implies (expr-grade-equiv grade grade-equiv)
           (equal (expr-grade-index grade)
                  (expr-grade-index grade-equiv)))
  :rule-classes :congruence)