(vl-genblob->elems x orig-elements) → new-elements
Function:
(defun vl-genblob->elems (x orig-elements) (declare (xargs :guard (and (vl-genblob-p x) (vl-genelementlist-p orig-elements)))) (let ((__function__ 'vl-genblob->elems)) (declare (ignorable __function__)) (b* (((vl-genblob x))) (vl-genblob->elems-aux (vl-genelementlist-fix orig-elements) x.portdecls x.assigns x.aliases x.vardecls x.paramdecls x.fundecls x.taskdecls x.modinsts x.gateinsts x.alwayses x.initials x.finals x.typedefs x.imports x.fwdtypedefs x.modports x.genvars x.assertions x.cassertions x.properties x.sequences x.clkdecls x.gclkdecls x.defaultdisables x.dpiimports x.dpiexports x.binds x.classes x.covergroups x.elabtasks x.letdecls x.generates nil))))
Theorem:
(defthm vl-genelementlist-p-of-vl-genblob->elems (b* ((new-elements (vl-genblob->elems x orig-elements))) (vl-genelementlist-p new-elements)) :rule-classes :rewrite)
Theorem:
(defthm vl-genblob->elems-of-vl-genblob-fix-x (equal (vl-genblob->elems (vl-genblob-fix x) orig-elements) (vl-genblob->elems x orig-elements)))
Theorem:
(defthm vl-genblob->elems-vl-genblob-equiv-congruence-on-x (implies (vl-genblob-equiv x x-equiv) (equal (vl-genblob->elems x orig-elements) (vl-genblob->elems x-equiv orig-elements))) :rule-classes :congruence)
Theorem:
(defthm vl-genblob->elems-of-vl-genelementlist-fix-orig-elements (equal (vl-genblob->elems x (vl-genelementlist-fix orig-elements)) (vl-genblob->elems x orig-elements)))
Theorem:
(defthm vl-genblob->elems-vl-genelementlist-equiv-congruence-on-orig-elements (implies (vl-genelementlist-equiv orig-elements orig-elements-equiv) (equal (vl-genblob->elems x orig-elements) (vl-genblob->elems x orig-elements-equiv))) :rule-classes :congruence)