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