Pretty-print a hexadecimal digit.
(print-hex-digit digit) → part
Function:
(defun print-hex-digit (digit) (declare (xargs :guard (hex-digitp digit))) (let ((__function__ 'print-hex-digit)) (declare (ignorable __function__)) (implode (list (code-char digit)))))
Theorem:
(defthm msgp-of-print-hex-digit (b* ((part (print-hex-digit digit))) (msgp part)) :rule-classes :rewrite)