(vl-operandinfo-index-count x) → count
Function:
(defun vl-operandinfo-index-count (x) (declare (xargs :guard (vl-operandinfo-p x))) (let ((__function__ 'vl-operandinfo-index-count)) (declare (ignorable __function__)) (b* (((vl-operandinfo x))) (+ (vl-seltrace-index-count x.seltrace) (vl-partselect-case x.part :none 0 :otherwise 2)))))
Theorem:
(defthm natp-of-vl-operandinfo-index-count (b* ((count (vl-operandinfo-index-count x))) (natp count)) :rule-classes :type-prescription)
Theorem:
(defthm vl-operandinfo-index-count-of-vl-operandinfo-fix-x (equal (vl-operandinfo-index-count (vl-operandinfo-fix x)) (vl-operandinfo-index-count x)))
Theorem:
(defthm vl-operandinfo-index-count-vl-operandinfo-equiv-congruence-on-x (implies (vl-operandinfo-equiv x x-equiv) (equal (vl-operandinfo-index-count x) (vl-operandinfo-index-count x-equiv))) :rule-classes :congruence)