Convert a character list into HTML (simple version, no column/tabsize support).
(html-encode-chars-basic-aux x acc) → new-acc
Function:
(defun html-encode-chars-basic-aux (x acc) (declare (xargs :guard (character-listp x))) (let ((acl2::__function__ 'html-encode-chars-basic-aux)) (declare (ignorable acl2::__function__)) (b* (((when (atom x)) acc) (acc (html-encode-char-basic (car x) acc))) (html-encode-chars-basic-aux (cdr x) acc))))
Theorem:
(defthm character-listp-of-html-encode-chars-basic-aux (implies (character-listp acc) (b* ((new-acc (html-encode-chars-basic-aux x acc))) (character-listp new-acc))) :rule-classes :rewrite)
Theorem:
(defthm html-encode-chars-basic-aux-of-make-character-list-x (equal (html-encode-chars-basic-aux (make-character-list x) acc) (html-encode-chars-basic-aux x acc)))
Theorem:
(defthm html-encode-chars-basic-aux-charlisteqv-congruence-on-x (implies (charlisteqv x x-equiv) (equal (html-encode-chars-basic-aux x acc) (html-encode-chars-basic-aux x-equiv acc))) :rule-classes :congruence)