		Search-engine friendly clone of the ACL2 documentation.

Address

Address->svar

Turn an address into a variable name.

Signature
(address->svar x) → xvar
Arguments: x — Guard (address-p x).
Returns: xvar — Type (svar-p xvar).

Definitions and Theorems

Function: address->svar

(defun address->svar (x)
  (declare (xargs :guard (address-p x)))
  (let ((__function__ 'address->svar))
    (declare (ignorable __function__))
    (make-svar :name (address-fix x))))

Theorem: svar-p-of-address->svar

(defthm svar-p-of-address->svar
  (b* ((xvar (address->svar x)))
    (svar-p xvar))
  :rule-classes :rewrite)

Theorem: address->svar-of-address-fix-x

(defthm address->svar-of-address-fix-x
  (equal (address->svar (address-fix x))
         (address->svar x)))

Theorem: address->svar-address-equiv-congruence-on-x

(defthm address->svar-address-equiv-congruence-on-x
  (implies (address-equiv x x-equiv)
           (equal (address->svar x)
                  (address->svar x-equiv)))
  :rule-classes :congruence)