Print zero or more ACL2 hexadecimal digit characters after preprocessing.
(pprint-hex-digit-achars achars bytes) → new-bytes
Function:
(defun pprint-hex-digit-achars (achars bytes) (declare (xargs :guard (and (hex-digit-char-listp achars) (byte-listp bytes)))) (b* (((when (endp achars)) (byte-list-fix bytes)) (bytes (pprint-hex-digit-achar (car achars) bytes))) (pprint-hex-digit-achars (cdr achars) bytes)))
Theorem:
(defthm byte-listp-of-pprint-hex-digit-achars (b* ((new-bytes (pprint-hex-digit-achars achars bytes))) (byte-listp new-bytes)) :rule-classes :rewrite)