(vl-design-descriptions x) → descriptions
Function:
(defun vl-design-descriptions (x) (declare (xargs :guard (vl-design-p x))) (let ((__function__ 'vl-design-descriptions)) (declare (ignorable __function__)) (b* (((vl-design x))) (append-without-guard x.mods x.udps x.interfaces x.programs x.classes x.packages x.configs x.vardecls x.taskdecls x.fundecls x.paramdecls x.imports x.fwdtypes x.typedefs x.dpiimports x.dpiexports x.binds x.properties x.sequences))))
Theorem:
(defthm vl-descriptionlist-p-of-vl-design-descriptions (b* ((descriptions (vl-design-descriptions x))) (vl-descriptionlist-p descriptions)) :rule-classes :rewrite)
Theorem:
(defthm vl-design-descriptions-of-vl-design-fix-x (equal (vl-design-descriptions (vl-design-fix x)) (vl-design-descriptions x)))
Theorem:
(defthm vl-design-descriptions-vl-design-equiv-congruence-on-x (implies (vl-design-equiv x x-equiv) (equal (vl-design-descriptions x) (vl-design-descriptions x-equiv))) :rule-classes :congruence)