(vl-lucid-summarize-bits x) → summary
Function:
(defun vl-lucid-summarize-bits (x) (declare (xargs :guard (and (integer-listp x) (setp x)))) (let ((__function__ 'vl-lucid-summarize-bits)) (declare (ignorable __function__)) (with-local-ps (vl-lucid-pp-bits x))))
Theorem:
(defthm stringp-of-vl-lucid-summarize-bits (b* ((summary (vl-lucid-summarize-bits x))) (stringp summary)) :rule-classes :type-prescription)