Recognizer for vl-genblob structures.
(vl-genblob-p x) → *
Function:
(defun vl-genblob-p (x) (declare (xargs :guard t)) (let ((__function__ 'vl-genblob-p)) (declare (ignorable __function__)) (and (consp x) (eq (car x) :vl-genblob) (std::prod-consp (cdr x)) (std::prod-consp (std::prod-car (cdr x))) (std::prod-consp (std::prod-car (std::prod-car (cdr x)))) (std::prod-consp (std::prod-car (std::prod-car (std::prod-car (cdr x))))) (std::prod-consp (std::prod-car (std::prod-car (std::prod-car (std::prod-car (cdr x)))))) (std::prod-consp (std::prod-cdr (std::prod-car (std::prod-car (std::prod-car (cdr x)))))) (std::prod-consp (std::prod-cdr (std::prod-car (std::prod-car (cdr x))))) (std::prod-consp (std::prod-car (std::prod-cdr (std::prod-car (std::prod-car (cdr x)))))) (std::prod-consp (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-car (cdr x)))))) (std::prod-consp (std::prod-cdr (std::prod-car (cdr x)))) (std::prod-consp (std::prod-car (std::prod-cdr (std::prod-car (cdr x))))) (std::prod-consp (std::prod-car (std::prod-car (std::prod-cdr (std::prod-car (cdr x)))))) (std::prod-consp (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-car (cdr x)))))) (std::prod-consp (std::prod-cdr (std::prod-cdr (std::prod-car (cdr x))))) (std::prod-consp (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-car (cdr x)))))) (std::prod-consp (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-car (cdr x)))))) (std::prod-consp (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-car (cdr x))))))) (std::prod-consp (std::prod-cdr (cdr x))) (std::prod-consp (std::prod-car (std::prod-cdr (cdr x)))) (std::prod-consp (std::prod-car (std::prod-car (std::prod-cdr (cdr x))))) (std::prod-consp (std::prod-car (std::prod-car (std::prod-car (std::prod-cdr (cdr x)))))) (std::prod-consp (std::prod-cdr (std::prod-car (std::prod-car (std::prod-cdr (cdr x)))))) (std::prod-consp (std::prod-cdr (std::prod-car (std::prod-cdr (cdr x))))) (std::prod-consp (std::prod-car (std::prod-cdr (std::prod-car (std::prod-cdr (cdr x)))))) (std::prod-consp (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-cdr (cdr x)))))) (std::prod-consp (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-cdr (cdr x))))))) (std::prod-consp (std::prod-cdr (std::prod-cdr (cdr x)))) (std::prod-consp (std::prod-car (std::prod-cdr (std::prod-cdr (cdr x))))) (std::prod-consp (std::prod-car (std::prod-car (std::prod-cdr (std::prod-cdr (cdr x)))))) (std::prod-consp (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-cdr (cdr x)))))) (std::prod-consp (std::prod-cdr (std::prod-cdr (std::prod-cdr (cdr x))))) (std::prod-consp (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-cdr (cdr x)))))) (std::prod-consp (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (cdr x)))))) (std::prod-consp (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (cdr x))))))) (b* ((portdecls (std::prod-car (std::prod-car (std::prod-car (std::prod-car (std::prod-car (cdr x))))))) (assigns (std::prod-cdr (std::prod-car (std::prod-car (std::prod-car (std::prod-car (cdr x))))))) (aliases (std::prod-car (std::prod-cdr (std::prod-car (std::prod-car (std::prod-car (cdr x))))))) (vardecls (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-car (std::prod-car (cdr x))))))) (paramdecls (std::prod-car (std::prod-car (std::prod-cdr (std::prod-car (std::prod-car (cdr x))))))) (fundecls (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-car (std::prod-car (cdr x))))))) (taskdecls (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-car (cdr x))))))) (modinsts (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-car (cdr x))))))) (gateinsts (std::prod-car (std::prod-car (std::prod-car (std::prod-cdr (std::prod-car (cdr x))))))) (alwayses (std::prod-cdr (std::prod-car (std::prod-car (std::prod-cdr (std::prod-car (cdr x))))))) (initials (std::prod-car (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-car (cdr x))))))) (finals (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-car (cdr x))))))) (typedefs (std::prod-car (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-car (cdr x))))))) (imports (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-car (cdr x))))))) (fwdtypedefs (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-car (cdr x))))))) (modports (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-car (cdr x)))))))) (genvars (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-car (cdr x)))))))) (assertions (std::prod-car (std::prod-car (std::prod-car (std::prod-car (std::prod-cdr (cdr x))))))) (cassertions (std::prod-cdr (std::prod-car (std::prod-car (std::prod-car (std::prod-cdr (cdr x))))))) (properties (std::prod-car (std::prod-cdr (std::prod-car (std::prod-car (std::prod-cdr (cdr x))))))) (sequences (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-car (std::prod-cdr (cdr x))))))) (clkdecls (std::prod-car (std::prod-car (std::prod-cdr (std::prod-car (std::prod-cdr (cdr x))))))) (gclkdecls (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-car (std::prod-cdr (cdr x))))))) (defaultdisables (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-cdr (cdr x))))))) (dpiimports (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-cdr (cdr x)))))))) (dpiexports (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-cdr (cdr x)))))))) (binds (std::prod-car (std::prod-car (std::prod-car (std::prod-cdr (std::prod-cdr (cdr x))))))) (classes (std::prod-cdr (std::prod-car (std::prod-car (std::prod-cdr (std::prod-cdr (cdr x))))))) (covergroups (std::prod-car (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-cdr (cdr x))))))) (elabtasks (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-cdr (cdr x))))))) (letdecls (std::prod-car (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-cdr (cdr x))))))) (generates (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-cdr (cdr x))))))) (ports (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (cdr x))))))) (scopetype (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (cdr x)))))))) (id (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (cdr x))))))))) (and (vl-portdecllist-p portdecls) (vl-assignlist-p assigns) (vl-aliaslist-p aliases) (vl-vardecllist-p vardecls) (vl-paramdecllist-p paramdecls) (vl-fundecllist-p fundecls) (vl-taskdecllist-p taskdecls) (vl-modinstlist-p modinsts) (vl-gateinstlist-p gateinsts) (vl-alwayslist-p alwayses) (vl-initiallist-p initials) (vl-finallist-p finals) (vl-typedeflist-p typedefs) (vl-importlist-p imports) (vl-fwdtypedeflist-p fwdtypedefs) (vl-modportlist-p modports) (vl-genvarlist-p genvars) (vl-assertionlist-p assertions) (vl-cassertionlist-p cassertions) (vl-propertylist-p properties) (vl-sequencelist-p sequences) (vl-clkdecllist-p clkdecls) (vl-gclkdecllist-p gclkdecls) (vl-defaultdisablelist-p defaultdisables) (vl-dpiimportlist-p dpiimports) (vl-dpiexportlist-p dpiexports) (vl-bindlist-p binds) (vl-classlist-p classes) (vl-covergrouplist-p covergroups) (vl-elabtasklist-p elabtasks) (vl-letdecllist-p letdecls) (vl-genelementlist-p generates) (vl-portlist-p ports) (vl-scopetype-p scopetype) (vl-maybe-scopeid-p id))))))
Theorem:
(defthm consp-when-vl-genblob-p (implies (vl-genblob-p x) (consp x)) :rule-classes :compound-recognizer)