(vl-genelementlist->generates x) → generates
Function:
(defun vl-genelementlist->generates (x) (declare (xargs :guard (vl-genelementlist-p x))) (let ((__function__ 'vl-genelementlist->generates)) (declare (ignorable __function__)) (b* (((when (atom x)) nil) (x1 (vl-genelement-fix (car x)))) (vl-genelement-case x1 :vl-genbase (vl-genelementlist->generates (cdr x)) :otherwise (cons x1 (vl-genelementlist->generates (cdr x)))))))
Theorem:
(defthm vl-genelementlist-p-of-vl-genelementlist->generates (b* ((generates (vl-genelementlist->generates x))) (vl-genelementlist-p generates)) :rule-classes :rewrite)
Theorem:
(defthm vl-sort-genelements-aux-is-vl-genelementlist->generates (equal (mv-nth 31 (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-genelementlist-fix generates)) (vl-genelementlist->generates x))))
Theorem:
(defthm vl-genelementlist->generates-of-vl-genelementlist-fix-x (equal (vl-genelementlist->generates (vl-genelementlist-fix x)) (vl-genelementlist->generates x)))
Theorem:
(defthm vl-genelementlist->generates-vl-genelementlist-equiv-congruence-on-x (implies (vl-genelementlist-equiv x x-equiv) (equal (vl-genelementlist->generates x) (vl-genelementlist->generates x-equiv))) :rule-classes :congruence)