Check well-formedness of lvalues in a vl-plainarglist-p.
(vl-plainarglist-lvaluecheck x loc instname warnings) → new-warnings
We check the lvalues throughout
Function:
(defun vl-plainarglist-lvaluecheck (x loc instname warnings) (declare (xargs :guard (and (vl-plainarglist-p x) (vl-warninglist-p warnings)))) (declare (xargs :guard (and (vl-location-p loc) (maybe-stringp instname)))) (let ((__function__ 'vl-plainarglist-lvaluecheck)) (declare (ignorable __function__)) (if (atom x) (ok) (b* ((warnings (vl-plainarg-lvaluecheck (car x) loc instname warnings))) (vl-plainarglist-lvaluecheck (cdr x) loc instname warnings)))))
Theorem:
(defthm vl-warninglist-p-of-vl-plainarglist-lvaluecheck (b* ((new-warnings (vl-plainarglist-lvaluecheck x loc instname warnings))) (vl-warninglist-p new-warnings)) :rule-classes :rewrite)
Theorem:
(defthm vl-plainarglist-lvaluecheck-of-vl-plainarglist-fix-x (equal (vl-plainarglist-lvaluecheck (vl-plainarglist-fix x) loc instname warnings) (vl-plainarglist-lvaluecheck x loc instname warnings)))
Theorem:
(defthm vl-plainarglist-lvaluecheck-vl-plainarglist-equiv-congruence-on-x (implies (vl-plainarglist-equiv x x-equiv) (equal (vl-plainarglist-lvaluecheck x loc instname warnings) (vl-plainarglist-lvaluecheck x-equiv loc instname warnings))) :rule-classes :congruence)
Theorem:
(defthm vl-plainarglist-lvaluecheck-of-vl-warninglist-fix-warnings (equal (vl-plainarglist-lvaluecheck x loc instname (vl-warninglist-fix warnings)) (vl-plainarglist-lvaluecheck x loc instname warnings)))
Theorem:
(defthm vl-plainarglist-lvaluecheck-vl-warninglist-equiv-congruence-on-warnings (implies (vl-warninglist-equiv warnings warnings-equiv) (equal (vl-plainarglist-lvaluecheck x loc instname warnings) (vl-plainarglist-lvaluecheck x loc instname warnings-equiv))) :rule-classes :congruence)