(bspp bsp) recognizes objects produced by bsp.
(bspp bsp) → bool
Function:
(defun bspp (bsp) (declare (xargs :guard t)) (let ((__function__ 'bspp)) (declare (ignorable __function__)) (and (consp bsp) (integerp (car bsp)) (>= (car bsp) 0) (integerp (cdr bsp)) (>= (cdr bsp) 0))))
Theorem:
(defthm bspp-bsp (implies (and (integerp size) (>= size 0) (integerp pos) (>= pos 0)) (bspp (bsp size pos))))