Extract the lesser of the
(vl-maybe-range-lowidx x) → lowidx
Function:
(defun vl-maybe-range-lowidx (x) (declare (xargs :guard (and (vl-range-p x) (vl-range-resolved-p x)))) (let ((__function__ 'vl-maybe-range-lowidx)) (declare (ignorable __function__)) (if x (vl-range-msbidx x) 0)))
Theorem:
(defthm integerp-of-vl-maybe-range-lowidx (b* ((lowidx (vl-maybe-range-lowidx x))) (integerp lowidx)) :rule-classes :type-prescription)