• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Debugging
    • Projects
    • Std
      • Std/lists
      • Std/alists
      • Obags
      • Std/util
      • Std/strings
        • Pretty-printing
        • Printtree
        • Base64
        • Charset-p
        • Strtok!
        • Cases
        • Concatenation
        • Html-encoding
          • Html-encode-string-aux
          • Html-encode-chars-aux
          • Html-encode-push
          • Html-encode-string-basic-aux
          • Html-encode-string
          • Html-encode-char-basic
          • Html-encode-chars-basic-aux
            • Html-encode-string-basic
          • Character-kinds
          • Substrings
          • Strtok
          • Equivalences
          • Url-encoding
          • Lines
          • Explode-implode-equalities
          • Ordering
          • Numbers
          • Pad-trim
          • Coercion
          • Std/strings-extensions
          • Std/strings/digit-to-char
          • Substitution
          • Symbols
        • Std/io
        • Std/osets
        • Std/system
        • Std/basic
        • Std/typed-lists
        • Std/bitsets
        • Std/testing
        • Std/typed-alists
        • Std/stobjs
        • Std-extensions
      • Proof-automation
      • Macro-libraries
      • ACL2
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • Html-encoding

    Html-encode-chars-basic-aux

    Convert a character list into HTML (simple version, no column/tabsize support).

    Signature
    (html-encode-chars-basic-aux x acc) → new-acc
    Arguments
    x — The characters to convert.
        Guard (character-listp x).
    acc — Accumulator for output characters, reverse order.
    Returns
    new-acc — Type (character-listp new-acc), given (character-listp acc).

    Definitions and Theorems

    Function: html-encode-chars-basic-aux

    (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: character-listp-of-html-encode-chars-basic-aux

    (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: html-encode-chars-basic-aux-of-make-character-list-x

    (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: html-encode-chars-basic-aux-charlisteqv-congruence-on-x

    (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)