• 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
      • Transforms
      • Lint
      • Mlib
      • Server
      • Kit
        • Vl-model
        • Vl-json
        • Vl-gather
        • Vl-server
          • Vl-server-opts-p
            • Parse-vl-server-opts
              • Parse-vl-server-opts-long
              • Parse-vl-server-opts-aux
              • Parse-vl-server-opts-bundle
              • Parse-vl-server-opts-short->long-list
              • Parse-vl-server-opts-short->long
            • Vl-server-opts
            • Make-vl-server-opts
            • Change-vl-server-opts
            • Honsed-vl-server-opts
            • Make-honsed-vl-server-opts
            • *vl-server-opts-usage*
            • Vl-server-opts->root
            • Vl-server-opts->readme
            • Vl-server-opts->public
            • Vl-server-opts->port
            • Vl-server-opts->mem
            • Vl-server-opts->help
        • Vl-pp
        • Vl-lint
        • Vl-main
        • Vl-toolkit-other-command
        • Vl-help
      • Printer
      • Esim-vl
      • Well-formedness
    • Sv
    • Fgl
    • Vwsim
    • Vl
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Math
  • Testing-utilities

• Parse-vl-server-opts

Parse-vl-server-opts-short->long-list

Signature

(parse-vl-server-opts-short->long-list getopt::aliases) 
  → 
(mv getopt::errmsg getopt::longnames)

Arguments

getopt::aliases — Guard (character-listp getopt::aliases).

Returns

getopt::longnames — Type (string-listp getopt::longnames).

Definitions and Theorems

Function: parse-vl-server-opts-short->long-list

(defun parse-vl-server-opts-short->long-list (getopt::aliases)
 (declare (xargs :guard (character-listp getopt::aliases)))
 (let ((__function__ 'parse-vl-server-opts-short->long-list))
  (declare (ignorable __function__))
  (b*
   (((when (atom getopt::aliases))
     (mv nil nil))
    ((mv getopt::err getopt::longname)
     (parse-vl-server-opts-short->long (car getopt::aliases)))
    ((when getopt::err)
     (mv getopt::err nil))
    ((mv getopt::err rest)
     (parse-vl-server-opts-short->long-list (cdr getopt::aliases))))
   (mv getopt::err
       (cons getopt::longname rest)))))

Theorem: string-listp-of-parse-vl-server-opts-short->long-list.longnames

(defthm
    string-listp-of-parse-vl-server-opts-short->long-list.longnames
  (b* (((mv getopt::?errmsg getopt::?longnames)
        (parse-vl-server-opts-short->long-list getopt::aliases)))
    (string-listp getopt::longnames))
  :rule-classes :rewrite)

Theorem: true-listp-of-parse-vl-server-opts-short->long-list

(defthm true-listp-of-parse-vl-server-opts-short->long-list
 (true-listp
   (mv-nth 1
           (parse-vl-server-opts-short->long-list getopt::aliases)))
 :rule-classes :type-prescription)