Convert a list of natural numbers into a list of bit strings.
(nat-to-bin-string-list x) → strs
Function:
(defun nat-to-bin-string-list (x) (declare (xargs :guard (nat-listp x))) (let ((acl2::__function__ 'nat-to-bin-string-list)) (declare (ignorable acl2::__function__)) (if (atom x) nil (cons (nat-to-bin-string (car x)) (nat-to-bin-string-list (cdr x))))))
Theorem:
(defthm string-listp-of-nat-to-bin-string-list (b* ((strs (nat-to-bin-string-list x))) (string-listp strs)) :rule-classes :rewrite)
Theorem:
(defthm nat-to-bin-string-list-when-atom (implies (atom x) (equal (nat-to-bin-string-list x) nil)))
Theorem:
(defthm nat-to-bin-string-list-of-cons (equal (nat-to-bin-string-list (cons a x)) (cons (nat-to-bin-string a) (nat-to-bin-string-list x))))