(wrb-field i bsp j) is analogous to Common Lisp's
Function:
(defun wrb-field (i bsp j) (declare (xargs :guard (and (integerp i) (bspp bsp) (integerp j)))) (let ((__function__ 'wrb-field)) (declare (ignorable __function__)) (wrb (rdb bsp i) bsp j)))
Theorem:
(defthm wrb-field-type (b* ((int (wrb-field i bsp j))) (integerp int)) :rule-classes :type-prescription)