		Search-engine friendly clone of the ACL2 documentation.

Genblob

Vl-genelementlist->sequences

Signature
(vl-genelementlist->sequences x) → sequences
Arguments: x — Guard (vl-genelementlist-p x).
Returns: sequences — Type (vl-sequencelist-p sequences).

Definitions and Theorems

Function: vl-genelementlist->sequences

(defun vl-genelementlist->sequences (x)
  (declare (xargs :guard (vl-genelementlist-p x)))
  (let ((__function__ 'vl-genelementlist->sequences))
    (declare (ignorable __function__))
    (b* (((when (atom x)) nil) (x1 (car x)))
      (vl-genelement-case
           x1 :vl-genbase
           (if (eq (tag x1.item) :vl-sequence)
               (cons x1.item
                     (vl-genelementlist->sequences (cdr x)))
             (vl-genelementlist->sequences (cdr x)))
           :otherwise (vl-genelementlist->sequences (cdr x))))))

Theorem: vl-sequencelist-p-of-vl-genelementlist->sequences

(defthm vl-sequencelist-p-of-vl-genelementlist->sequences
  (b* ((sequences (vl-genelementlist->sequences x)))
    (vl-sequencelist-p sequences))
  :rule-classes :rewrite)

Theorem: vl-sort-genelements-aux-is-vl-genelementlist->sequences

(defthm vl-sort-genelements-aux-is-vl-genelementlist->sequences
 (equal
  (mv-nth
    20
    (vl-sort-genelements-aux x portdecls assigns aliases
                             vardecls paramdecls fundecls taskdecls
                             modinsts gateinsts alwayses initials
                             finals typedefs imports fwdtypedefs
                             modports genvars assertions cassertions
                             properties sequences clkdecls
                             gclkdecls defaultdisables dpiimports
                             dpiexports binds classes covergroups
                             elabtasks letdecls generates))
  (append (rev (vl-sequencelist-fix sequences))
          (vl-genelementlist->sequences x))))

Theorem: vl-genelementlist->sequences-of-vl-genelementlist-fix-x

(defthm vl-genelementlist->sequences-of-vl-genelementlist-fix-x
  (equal (vl-genelementlist->sequences (vl-genelementlist-fix x))
         (vl-genelementlist->sequences x)))

Theorem: vl-genelementlist->sequences-vl-genelementlist-equiv-congruence-on-x

(defthm
 vl-genelementlist->sequences-vl-genelementlist-equiv-congruence-on-x
 (implies (vl-genelementlist-equiv x x-equiv)
          (equal (vl-genelementlist->sequences x)
                 (vl-genelementlist->sequences x-equiv)))
 :rule-classes :congruence)