		Search-engine friendly clone of the ACL2 documentation.

Range-tools

Vl-simplereg->signedp

Signature
(vl-simplereg->signedp x) → signedp
Arguments: x — Guard (vl-vardecl-p x).
Returns: signedp — Type (booleanp signedp).

Definitions and Theorems

Function: vl-simplereg->signedp

(defun vl-simplereg->signedp (x)
  (declare (xargs :guard (vl-vardecl-p x)))
  (declare (xargs :guard (vl-simplereg-p x)))
  (let ((__function__ 'vl-simplereg->signedp))
    (declare (ignorable __function__))
    (b* (((vl-vardecl x) x)
         ((vl-coretype x.type) x.type))
      x.type.signedp)))

Theorem: booleanp-of-vl-simplereg->signedp

(defthm booleanp-of-vl-simplereg->signedp
  (b* ((signedp (vl-simplereg->signedp x)))
    (booleanp signedp))
  :rule-classes :type-prescription)

Theorem: vl-simplereg->signedp-of-vl-vardecl-fix-x

(defthm vl-simplereg->signedp-of-vl-vardecl-fix-x
  (equal (vl-simplereg->signedp (vl-vardecl-fix x))
         (vl-simplereg->signedp x)))

Theorem: vl-simplereg->signedp-vl-vardecl-equiv-congruence-on-x

(defthm vl-simplereg->signedp-vl-vardecl-equiv-congruence-on-x
  (implies (vl-vardecl-equiv x x-equiv)
           (equal (vl-simplereg->signedp x)
                  (vl-simplereg->signedp x-equiv)))
  :rule-classes :congruence)