• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Community
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
      • Warnings
      • Primitives
      • Use-set
      • Syntax
      • Getting-started
      • Utilities
      • Loader
        • Preprocessor
        • Vl-loadconfig
        • Lexer
          • Lex-strings
          • Lex-identifiers
          • Vl-typo-uppercase-p
          • Vl-typo-number-p
          • Vl-typo-lowercase-p
          • Lex-numbers
          • Chartypes
          • Vl-lex
          • Defchar
          • Tokens
            • Vl-inttoken-p
            • Vl-plaintoken-p
            • Vl-token->etext
            • Vl-token->type
            • Vl-token-p
            • Vl-idtoken-p
            • Vl-timetoken-p
            • Vl-stringtoken-p
            • Vl-kill-whitespace-and-comments
            • Vl-tokenlist->etext
            • Vl-extinttoken-p
            • Vl-sysidtoken-p
            • Vl-realtoken-p
            • Vl-tokenlist-p
            • Vl-tokenlist->string-with-spaces
            • Vl-idtoken-list-p
            • Vl-token->loc
            • Vl-plaintokentypelist-p
            • Vl-tokenlistlist-p
            • Vl-token->string
          • Lex-keywords
          • Lexstate
          • Make-test-tokens
          • Lexer-utils
          • Lex-comments
          • Vl-typo-uppercase-list-p
          • Vl-typo-lowercase-list-p
          • Vl-typo-number-list-p
        • Vl-loadstate
        • Parser
        • Vl-load-merge-descriptions
        • Scope-of-defines
        • Vl-load-file
        • Vl-flush-out-descriptions
        • Vl-description
        • Vl-loadresult
        • Vl-read-file
        • Vl-find-basename/extension
        • Vl-find-file
        • Vl-read-files
        • Extended-characters
        • Vl-load
        • Vl-load-main
        • Vl-load-description
        • Vl-descriptions-left-to-load
        • Inject-warnings
        • Vl-load-descriptions
        • Vl-load-files
        • Vl-load-summary
        • Vl-collect-modules-from-descriptions
        • Vl-descriptionlist
      • Transforms
      • Lint
      • Mlib
      • Server
      • Kit
      • Printer
      • Esim-vl
      • Well-formedness
    • Sv
    • Fgl
    • Vwsim
    • Vl
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Math
  • Testing-utilities

• Tokens

Vl-tokenlist->etext

Append together all the text for a list of tokens.

This is an ordinary defmapappend.

Function: vl-tokenlist->etext

(defun vl-tokenlist->etext (x)
  (declare (xargs :guard (vl-tokenlist-p x)))
  (mbe :logic
       (if (consp x)
           (append (vl-token->etext (car x))
                   (vl-tokenlist->etext (cdr x)))
         nil)
       :exec (reverse (vl-tokenlist->etext-exec x nil))))

Definitions and Theorems

Function: vl-tokenlist->etext-exec

(defun vl-tokenlist->etext-exec (x acc)
  (declare (xargs :guard (vl-tokenlist-p x)))
  (if (consp x)
      (vl-tokenlist->etext-exec (cdr x)
                                (revappend (vl-token->etext (car x))
                                           acc))
    acc))

Function: vl-tokenlist->etext

(defun vl-tokenlist->etext (x)
  (declare (xargs :guard (vl-tokenlist-p x)))
  (mbe :logic
       (if (consp x)
           (append (vl-token->etext (car x))
                   (vl-tokenlist->etext (cdr x)))
         nil)
       :exec (reverse (vl-tokenlist->etext-exec x nil))))

Theorem: vl-tokenlist->etext-exec-removal

(defthm vl-tokenlist->etext-exec-removal
  (equal (vl-tokenlist->etext-exec acl2::x acl2::acc)
         (revappend (vl-tokenlist->etext acl2::x)
                    acl2::acc))
  :rule-classes ((:rewrite)))

Theorem: set-equiv-congruence-over-vl-tokenlist->etext

(defthm set-equiv-congruence-over-vl-tokenlist->etext
  (implies (set-equiv acl2::x acl2::y)
           (set-equiv (vl-tokenlist->etext acl2::x)
                      (vl-tokenlist->etext acl2::y)))
  :rule-classes ((:congruence)))

Theorem: subsetp-of-vl-tokenlist->etext-when-subsetp

(defthm subsetp-of-vl-tokenlist->etext-when-subsetp
  (implies (subsetp acl2::x acl2::y)
           (subsetp (vl-tokenlist->etext acl2::x)
                    (vl-tokenlist->etext acl2::y)))
  :rule-classes ((:rewrite)))

Theorem: member-in-vl-tokenlist->etext

(defthm member-in-vl-tokenlist->etext
  (implies (and (member acl2::k (vl-token->etext acl2::j))
                (member acl2::j acl2::x))
           (member acl2::k (vl-tokenlist->etext acl2::x)))
  :rule-classes ((:rewrite)))

Theorem: vl-tokenlist->etext-of-list-fix

(defthm vl-tokenlist->etext-of-list-fix
  (equal (vl-tokenlist->etext (list-fix acl2::x))
         (vl-tokenlist->etext acl2::x))
  :rule-classes ((:rewrite)))

Theorem: vl-tokenlist->etext-of-append

(defthm vl-tokenlist->etext-of-append
  (equal (vl-tokenlist->etext (append acl2::a acl2::b))
         (append (vl-tokenlist->etext acl2::a)
                 (vl-tokenlist->etext acl2::b)))
  :rule-classes ((:rewrite)))

Theorem: vl-tokenlist->etext-when-not-consp

(defthm vl-tokenlist->etext-when-not-consp
  (implies (not (consp acl2::x))
           (equal (vl-tokenlist->etext acl2::x)
                  nil))
  :rule-classes ((:rewrite)))

Theorem: vl-tokenlist->etext-of-cons

(defthm vl-tokenlist->etext-of-cons
  (equal (vl-tokenlist->etext (cons acl2::a acl2::b))
         (append (vl-token->etext acl2::a)
                 (vl-tokenlist->etext acl2::b)))
  :rule-classes ((:rewrite)))

Theorem: vl-echarlist-p-of-vl-tokenlist->etext

(defthm vl-echarlist-p-of-vl-tokenlist->etext
  (implies (force (vl-tokenlist-p x))
           (vl-echarlist-p (vl-tokenlist->etext x))))