Recognizer for vl-module structures.
(vl-module-p x) → *
Function:
(defun vl-module-p (x) (declare (xargs :guard t)) (let ((__function__ 'vl-module-p)) (declare (ignorable __function__)) (and (consp x) (eq (car x) :vl-module) (consp (cdr x)) (consp (car (cdr x))) (consp (car (car (cdr x)))) (consp (car (car (car (cdr x))))) (consp (car (car (car (car (cdr x)))))) (consp (cdr (car (car (car (cdr x)))))) (consp (cdr (cdr (car (car (car (cdr x))))))) (consp (cdr (car (car (cdr x))))) (consp (car (cdr (car (car (cdr x)))))) (consp (cdr (cdr (car (car (cdr x)))))) (consp (cdr (cdr (cdr (car (car (cdr x))))))) (consp (cdr (car (cdr x)))) (consp (car (cdr (car (cdr x))))) (consp (car (car (cdr (car (cdr x)))))) (consp (cdr (car (cdr (car (cdr x)))))) (consp (cdr (cdr (car (cdr (car (cdr x))))))) (consp (cdr (cdr (car (cdr x))))) (consp (car (cdr (cdr (car (cdr x)))))) (consp (cdr (cdr (cdr (car (cdr x)))))) (consp (cdr (cdr (cdr (cdr (car (cdr x))))))) (consp (cdr (cdr x))) (consp (car (cdr (cdr x)))) (consp (car (car (cdr (cdr x))))) (consp (car (car (car (cdr (cdr x)))))) (consp (cdr (car (car (cdr (cdr x)))))) (consp (cdr (cdr (car (car (cdr (cdr x))))))) (consp (cdr (car (cdr (cdr x))))) (consp (car (cdr (car (cdr (cdr x)))))) (consp (cdr (cdr (car (cdr (cdr x)))))) (consp (cdr (cdr (cdr (car (cdr (cdr x))))))) (consp (cdr (cdr (cdr x)))) (consp (car (cdr (cdr (cdr x))))) (consp (car (car (cdr (cdr (cdr x)))))) (consp (cdr (car (cdr (cdr (cdr x)))))) (consp (cdr (cdr (car (cdr (cdr (cdr x))))))) (consp (cdr (cdr (cdr (cdr x))))) (consp (car (cdr (cdr (cdr (cdr x)))))) (consp (cdr (car (cdr (cdr (cdr (cdr x))))))) (consp (cdr (cdr (cdr (cdr (cdr x)))))) (consp (cdr (cdr (cdr (cdr (cdr (cdr x))))))) (b* ((name (car (car (car (car (car (cdr x))))))) (minloc (cdr (car (car (car (car (cdr x))))))) (maxloc (car (cdr (car (car (car (cdr x))))))) (origname (car (cdr (cdr (car (car (car (cdr x)))))))) (ports (cdr (cdr (cdr (car (car (car (cdr x)))))))) (portdecls (car (car (cdr (car (car (cdr x))))))) (vardecls (cdr (car (cdr (car (car (cdr x))))))) (modinsts (car (cdr (cdr (car (car (cdr x))))))) (assigns (car (cdr (cdr (cdr (car (car (cdr x)))))))) (gateinsts (cdr (cdr (cdr (cdr (car (car (cdr x)))))))) (paramdecls (car (car (car (cdr (car (cdr x))))))) (imports (cdr (car (car (cdr (car (cdr x))))))) (atts (car (cdr (car (cdr (car (cdr x))))))) (warnings (car (cdr (cdr (car (cdr (car (cdr x)))))))) (comments (cdr (cdr (cdr (car (cdr (car (cdr x)))))))) (timeunit (car (car (cdr (cdr (car (cdr x))))))) (timeprecision (cdr (car (cdr (cdr (car (cdr x))))))) (alwayses (car (cdr (cdr (cdr (car (cdr x))))))) (genvars (car (cdr (cdr (cdr (cdr (car (cdr x)))))))) (generates (cdr (cdr (cdr (cdr (cdr (car (cdr x)))))))) (fundecls (car (car (car (car (cdr (cdr x))))))) (taskdecls (cdr (car (car (car (cdr (cdr x))))))) (typedefs (car (cdr (car (car (cdr (cdr x))))))) (initials (car (cdr (cdr (car (car (cdr (cdr x)))))))) (finals (cdr (cdr (cdr (car (car (cdr (cdr x)))))))) (aliases (car (car (cdr (car (cdr (cdr x))))))) (assertions (cdr (car (cdr (car (cdr (cdr x))))))) (cassertions (car (cdr (cdr (car (cdr (cdr x))))))) (properties (car (cdr (cdr (cdr (car (cdr (cdr x)))))))) (sequences (cdr (cdr (cdr (cdr (car (cdr (cdr x)))))))) (clkdecls (car (car (car (cdr (cdr (cdr x))))))) (gclkdecls (cdr (car (car (cdr (cdr (cdr x))))))) (defaultdisables (car (cdr (car (cdr (cdr (cdr x))))))) (dpiimports (car (cdr (cdr (car (cdr (cdr (cdr x)))))))) (dpiexports (cdr (cdr (cdr (car (cdr (cdr (cdr x)))))))) (binds (car (car (cdr (cdr (cdr (cdr x))))))) (classes (car (cdr (car (cdr (cdr (cdr (cdr x)))))))) (covergroups (cdr (cdr (car (cdr (cdr (cdr (cdr x)))))))) (elabtasks (car (cdr (cdr (cdr (cdr (cdr x))))))) (parse-temps (car (cdr (cdr (cdr (cdr (cdr (cdr x)))))))) (?params (cdr (cdr (cdr (cdr (cdr (cdr (cdr x))))))))) (and (stringp name) (vl-location-p minloc) (vl-location-p maxloc) (stringp origname) (vl-portlist-p ports) (vl-portdecllist-p portdecls) (vl-vardecllist-p vardecls) (vl-modinstlist-p modinsts) (vl-assignlist-p assigns) (vl-gateinstlist-p gateinsts) (vl-paramdecllist-p paramdecls) (vl-importlist-p imports) (vl-atts-p atts) (vl-warninglist-p warnings) (vl-commentmap-p comments) (vl-maybe-timeunitdecl-p timeunit) (vl-maybe-timeprecisiondecl-p timeprecision) (vl-alwayslist-p alwayses) (vl-genvarlist-p genvars) (vl-genelementlist-p generates) (vl-fundecllist-p fundecls) (vl-taskdecllist-p taskdecls) (vl-typedeflist-p typedefs) (vl-initiallist-p initials) (vl-finallist-p finals) (vl-aliaslist-p aliases) (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-maybe-parse-temps-p parse-temps))))))
Theorem:
(defthm consp-when-vl-module-p (implies (vl-module-p x) (consp x)) :rule-classes :compound-recognizer)