Determine signedness for a
(vl-signed-basep base) → signedp
Function:
(defun vl-signed-basep$inline (base) (declare (xargs :guard (character-listp base))) (let ((__function__ 'vl-signed-basep)) (declare (ignorable __function__)) (consp (or (member #\s base) (member #\S base)))))
Theorem:
(defthm booleanp-of-vl-signed-basep (b* ((signedp (vl-signed-basep$inline base))) (booleanp signedp)) :rule-classes :type-prescription)