		Search-engine friendly clone of the ACL2 documentation.

Vl-arithclass-max

Vl-arithclass-rank

Rankings of vl-arithclass-ps used in vl-arithclass-max.

Signature
(vl-arithclass-rank x) → rank
Arguments: x — Guard (vl-arithclass-p x).
Returns: rank — Type (natp rank).

Definitions and Theorems

Function: vl-arithclass-rank$inline

(defun vl-arithclass-rank$inline (x)
  (declare (xargs :guard (vl-arithclass-p x)))
  (let ((__function__ 'vl-arithclass-rank))
    (declare (ignorable __function__))
    (case (vl-arithclass-fix x)
          (:vl-signed-int-class 1)
          (:vl-unsigned-int-class 2)
          (:vl-shortreal-class 3)
          (:vl-real-class 4)
          (:vl-other-class 5)
          (:vl-error-class 6)
          (otherwise (nfix (impossible))))))

Theorem: natp-of-vl-arithclass-rank

(defthm natp-of-vl-arithclass-rank
  (b* ((rank (vl-arithclass-rank$inline x)))
    (natp rank))
  :rule-classes :type-prescription)

Theorem: vl-arithclass-rank$inline-of-vl-arithclass-fix-x

(defthm vl-arithclass-rank$inline-of-vl-arithclass-fix-x
  (equal (vl-arithclass-rank$inline (vl-arithclass-fix x))
         (vl-arithclass-rank$inline x)))

Theorem: vl-arithclass-rank$inline-vl-arithclass-equiv-congruence-on-x

(defthm
      vl-arithclass-rank$inline-vl-arithclass-equiv-congruence-on-x
  (implies (vl-arithclass-equiv x x-equiv)
           (equal (vl-arithclass-rank$inline x)
                  (vl-arithclass-rank$inline x-equiv)))
  :rule-classes :congruence)