(vl-paramdecllist-scan-for-ignore x mwtype) → ignorep
Function:
(defun vl-paramdecllist-scan-for-ignore (x mwtype) (declare (xargs :guard (and (vl-paramdecllist-p x) (stringp mwtype)))) (let ((__function__ 'vl-paramdecllist-scan-for-ignore)) (declare (ignorable __function__)) (b* (((when (atom x)) (b* ((ignorep nil)) ignorep)) (ignorep (vl-paramdecl-scan-for-ignore (car x) mwtype)) (ignorep1 (vl-paramdecllist-scan-for-ignore (cdr x) mwtype)) (ignorep (or ignorep1 ignorep))) ignorep)))
Theorem:
(defthm booleanp-of-vl-paramdecllist-scan-for-ignore (b* ((ignorep (vl-paramdecllist-scan-for-ignore x mwtype))) (booleanp ignorep)) :rule-classes :type-prescription)
Theorem:
(defthm vl-paramdecllist-scan-for-ignore-of-vl-paramdecllist-fix-x (equal (vl-paramdecllist-scan-for-ignore (vl-paramdecllist-fix x) mwtype) (vl-paramdecllist-scan-for-ignore x mwtype)))
Theorem:
(defthm vl-paramdecllist-scan-for-ignore-vl-paramdecllist-equiv-congruence-on-x (implies (vl-paramdecllist-equiv x x-equiv) (equal (vl-paramdecllist-scan-for-ignore x mwtype) (vl-paramdecllist-scan-for-ignore x-equiv mwtype))) :rule-classes :congruence)
Theorem:
(defthm vl-paramdecllist-scan-for-ignore-of-str-fix-mwtype (equal (vl-paramdecllist-scan-for-ignore x (str-fix mwtype)) (vl-paramdecllist-scan-for-ignore x mwtype)))
Theorem:
(defthm vl-paramdecllist-scan-for-ignore-streqv-congruence-on-mwtype (implies (streqv mwtype mwtype-equiv) (equal (vl-paramdecllist-scan-for-ignore x mwtype) (vl-paramdecllist-scan-for-ignore x mwtype-equiv))) :rule-classes :congruence)