Extract the LSB (right) index from a resolved vl-maybe-range; treats the empty range as
(vl-maybe-range-lsbidx x) → rsh
Function:
(defun vl-maybe-range-lsbidx (x) (declare (xargs :guard (and (vl-maybe-range-p x) (vl-maybe-range-resolved-p x)))) (let ((__function__ 'vl-maybe-range-lsbidx)) (declare (ignorable __function__)) (b* (((unless x) 0)) (vl-range-lsbidx x))))
Theorem:
(defthm integerp-of-vl-maybe-range-lsbidx (b* ((rsh (vl-maybe-range-lsbidx x))) (integerp rsh)) :rule-classes :type-prescription)