(vl-interface/type-warn-about-unexpected-lookup name lookup expected-tags) → warnings
Function:
(defun vl-interface/type-warn-about-unexpected-lookup (name lookup expected-tags) (declare (xargs :guard (and (stringp name) (symbol-listp expected-tags)))) (let ((__function__ 'vl-interface/type-warn-about-unexpected-lookup)) (declare (ignorable __function__)) (b* ((warnings nil)) (if (and (consp lookup) (not (member-eq (tag lookup) (acl2::symbol-list-fix expected-tags)))) (warn :type :vl-bad-type-or-interface :msg "Identifier ~a0 looks like it should be a type or ~ interface name, but we found ~a1 instead." :args (list (string-fix name) lookup)) (ok)))))
Theorem:
(defthm vl-warninglist-p-of-vl-interface/type-warn-about-unexpected-lookup (b* ((warnings (vl-interface/type-warn-about-unexpected-lookup name lookup expected-tags))) (vl-warninglist-p warnings)) :rule-classes :rewrite)
Theorem:
(defthm vl-interface/type-warn-about-unexpected-lookup-of-str-fix-name (equal (vl-interface/type-warn-about-unexpected-lookup (str-fix name) lookup expected-tags) (vl-interface/type-warn-about-unexpected-lookup name lookup expected-tags)))
Theorem:
(defthm vl-interface/type-warn-about-unexpected-lookup-streqv-congruence-on-name (implies (streqv name name-equiv) (equal (vl-interface/type-warn-about-unexpected-lookup name lookup expected-tags) (vl-interface/type-warn-about-unexpected-lookup name-equiv lookup expected-tags))) :rule-classes :congruence)
Theorem:
(defthm vl-interface/type-warn-about-unexpected-lookup-of-symbol-list-fix-expected-tags (equal (vl-interface/type-warn-about-unexpected-lookup name lookup (acl2::symbol-list-fix expected-tags)) (vl-interface/type-warn-about-unexpected-lookup name lookup expected-tags)))
Theorem:
(defthm vl-interface/type-warn-about-unexpected-lookup-symbol-list-equiv-congruence-on-expected-tags (implies (acl2::symbol-list-equiv expected-tags expected-tags-equiv) (equal (vl-interface/type-warn-about-unexpected-lookup name lookup expected-tags) (vl-interface/type-warn-about-unexpected-lookup name lookup expected-tags-equiv))) :rule-classes :congruence)