(vl-paramtype-scan-for-ignore x mwtype) → ignorep
Function:
(defun vl-paramtype-scan-for-ignore (x mwtype) (declare (xargs :guard (and (vl-paramtype-p x) (stringp mwtype)))) (let ((__function__ 'vl-paramtype-scan-for-ignore)) (declare (ignorable __function__)) (vl-paramtype-case x :vl-implicitvalueparam (b* ((ignorep (vl-maybe-range-scan-for-ignore x.range mwtype)) (ignorep1 (vl-maybe-expr-scan-for-ignore x.default mwtype)) (ignorep (or ignorep1 ignorep))) ignorep) :vl-explicitvalueparam (b* ((ignorep (vl-datatype-scan-for-ignore x.type mwtype)) (ignorep1 (vl-maybe-expr-scan-for-ignore x.default mwtype)) (ignorep (or ignorep1 ignorep))) ignorep) :vl-typeparam (b* ((ignorep (vl-maybe-datatype-scan-for-ignore x.default mwtype))) ignorep))))
Theorem:
(defthm booleanp-of-vl-paramtype-scan-for-ignore (b* ((ignorep (vl-paramtype-scan-for-ignore x mwtype))) (booleanp ignorep)) :rule-classes :type-prescription)
Theorem:
(defthm vl-paramtype-scan-for-ignore-of-vl-paramtype-fix-x (equal (vl-paramtype-scan-for-ignore (vl-paramtype-fix x) mwtype) (vl-paramtype-scan-for-ignore x mwtype)))
Theorem:
(defthm vl-paramtype-scan-for-ignore-vl-paramtype-equiv-congruence-on-x (implies (vl-paramtype-equiv x x-equiv) (equal (vl-paramtype-scan-for-ignore x mwtype) (vl-paramtype-scan-for-ignore x-equiv mwtype))) :rule-classes :congruence)
Theorem:
(defthm vl-paramtype-scan-for-ignore-of-str-fix-mwtype (equal (vl-paramtype-scan-for-ignore x (str-fix mwtype)) (vl-paramtype-scan-for-ignore x mwtype)))
Theorem:
(defthm vl-paramtype-scan-for-ignore-streqv-congruence-on-mwtype (implies (streqv mwtype mwtype-equiv) (equal (vl-paramtype-scan-for-ignore x mwtype) (vl-paramtype-scan-for-ignore x mwtype-equiv))) :rule-classes :congruence)