Convert a true list of natural numbers below 256 to the corresponding string.
(nats=>string nats) → string
Function:
(defun nats=>string (nats) (declare (xargs :guard (unsigned-byte-listp 8 nats))) (let ((__function__ 'nats=>string)) (declare (ignorable __function__)) (implode (nats=>chars nats))))
Theorem:
(defthm stringp-of-nats=>string (b* ((string (nats=>string nats))) (stringp string)) :rule-classes :rewrite)
Theorem:
(defthm nth-of-explode-of-nats=>string (equal (nth i (explode (nats=>string nats))) (if (< (nfix i) (len nats)) (code-char (nth i nats)) nil)))
Theorem:
(defthm len-of-explode-of-nats=>string (equal (len (explode (nats=>string nats))) (len nats)))
Theorem:
(defthm explode-of-nats=>string (equal (explode (nats=>string nats)) (nats=>chars nats)))