Recognizer for vl-interface structures.
(vl-interface-p x) → *
Function:
(defun vl-interface-p (x) (declare (xargs :guard t)) (let ((__function__ 'vl-interface-p)) (declare (ignorable __function__)) (and (consp x) (eq (car x) :vl-interface) (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-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-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* ((name (std::prod-car (std::prod-car (std::prod-car (std::prod-car (std::prod-car (cdr x))))))) (imports (std::prod-cdr (std::prod-car (std::prod-car (std::prod-car (std::prod-car (cdr x))))))) (ports (std::prod-car (std::prod-cdr (std::prod-car (std::prod-car (std::prod-car (cdr x))))))) (portdecls (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-car (std::prod-car (cdr x))))))) (modports (std::prod-car (std::prod-car (std::prod-cdr (std::prod-car (std::prod-car (cdr x))))))) (vardecls (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-car (std::prod-car (cdr x))))))) (paramdecls (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-car (cdr x))))))) (fundecls (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-car (cdr x)))))))) (taskdecls (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-car (cdr x)))))))) (typedefs (std::prod-car (std::prod-car (std::prod-car (std::prod-cdr (std::prod-car (cdr x))))))) (dpiimports (std::prod-cdr (std::prod-car (std::prod-car (std::prod-cdr (std::prod-car (cdr x))))))) (dpiexports (std::prod-car (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-car (cdr x))))))) (properties (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-car (cdr x))))))) (sequences (std::prod-car (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-car (cdr x))))))) (clkdecls (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-car (cdr x))))))) (gclkdecls (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-car (cdr x))))))) (defaultdisables (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-car (cdr x)))))))) (binds (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-car (cdr x)))))))) (classes (std::prod-car (std::prod-car (std::prod-car (std::prod-car (std::prod-cdr (cdr x))))))) (elabtasks (std::prod-cdr (std::prod-car (std::prod-car (std::prod-car (std::prod-cdr (cdr x))))))) (modinsts (std::prod-car (std::prod-cdr (std::prod-car (std::prod-car (std::prod-cdr (cdr x))))))) (assigns (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-car (std::prod-cdr (cdr x))))))) (aliases (std::prod-car (std::prod-car (std::prod-cdr (std::prod-car (std::prod-cdr (cdr x))))))) (assertions (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-car (std::prod-cdr (cdr x))))))) (cassertions (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-cdr (cdr x))))))) (alwayses (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-cdr (cdr x)))))))) (initials (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-cdr (cdr x)))))))) (finals (std::prod-car (std::prod-car (std::prod-car (std::prod-cdr (std::prod-cdr (cdr x))))))) (generates (std::prod-cdr (std::prod-car (std::prod-car (std::prod-cdr (std::prod-cdr (cdr x))))))) (genvars (std::prod-car (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-cdr (cdr x))))))) (warnings (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-cdr (cdr x)))))))) (minloc (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-cdr (cdr x)))))))) (maxloc (std::prod-car (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-cdr (cdr x))))))) (atts (std::prod-cdr (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-cdr (cdr x))))))) (origname (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (cdr x))))))) (comments (std::prod-car (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (cdr x)))))))) (parse-temps (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (std::prod-cdr (cdr x))))))))) (and (stringp name) (vl-importlist-p imports) (vl-portlist-p ports) (vl-portdecllist-p portdecls) (vl-modportlist-p modports) (vl-vardecllist-p vardecls) (vl-paramdecllist-p paramdecls) (vl-fundecllist-p fundecls) (vl-taskdecllist-p taskdecls) (vl-typedeflist-p typedefs) (vl-dpiimportlist-p dpiimports) (vl-dpiexportlist-p dpiexports) (vl-propertylist-p properties) (vl-sequencelist-p sequences) (vl-clkdecllist-p clkdecls) (vl-gclkdecllist-p gclkdecls) (vl-defaultdisablelist-p defaultdisables) (vl-bindlist-p binds) (vl-classlist-p classes) (vl-elabtasklist-p elabtasks) (vl-modinstlist-p modinsts) (vl-assignlist-p assigns) (vl-aliaslist-p aliases) (vl-assertionlist-p assertions) (vl-cassertionlist-p cassertions) (vl-alwayslist-p alwayses) (vl-initiallist-p initials) (vl-finallist-p finals) (vl-genelementlist-p generates) (vl-genvarlist-p genvars) (vl-warninglist-p warnings) (vl-location-p minloc) (vl-location-p maxloc) (vl-atts-p atts) (stringp origname) (vl-commentmap-p comments) (vl-maybe-parse-temps-p parse-temps))))))
Theorem:
(defthm consp-when-vl-interface-p (implies (vl-interface-p x) (consp x)) :rule-classes :compound-recognizer)