		Search-engine friendly clone of the ACL2 documentation.

Hid-tools

Vl-flatten-hidindex

Converts a vl-hidindex-p into a string like "bar[3][4][5]".

Signature
(vl-flatten-hidindex x) → flat-string
Arguments: x — Guard (vl-hidindex-p x).
Returns: flat-string — Type (stringp flat-string).

Definitions and Theorems

Function: vl-flatten-hidindex

(defun vl-flatten-hidindex (x)
  (declare (xargs :guard (vl-hidindex-p x)))
  (declare (xargs :guard (vl-hidindex-resolved-p x)))
  (let ((__function__ 'vl-flatten-hidindex))
    (declare (ignorable __function__))
    (b* ((name (vl-hidindex->name x))
         (name (if (eq name :vl-$root) "$root" name))
         (indices (vl-hidindex->indices x))
         ((when (atom indices)) name)
         (acc nil)
         (acc (str::revappend-chars name acc))
         (acc (vl-flatten-hidindex-aux indices acc)))
      (str::rchars-to-string acc))))

Theorem: stringp-of-vl-flatten-hidindex

(defthm stringp-of-vl-flatten-hidindex
  (b* ((flat-string (vl-flatten-hidindex x)))
    (stringp flat-string))
  :rule-classes :type-prescription)

Theorem: vl-flatten-hidindex-of-vl-hidindex-fix-x

(defthm vl-flatten-hidindex-of-vl-hidindex-fix-x
  (equal (vl-flatten-hidindex (vl-hidindex-fix x))
         (vl-flatten-hidindex x)))

Theorem: vl-flatten-hidindex-vl-hidindex-equiv-congruence-on-x

(defthm vl-flatten-hidindex-vl-hidindex-equiv-congruence-on-x
  (implies (vl-hidindex-equiv x x-equiv)
           (equal (vl-flatten-hidindex x)
                  (vl-flatten-hidindex x-equiv)))
  :rule-classes :congruence)

Subtopics

Vl-flatten-hidindex-aux