(parse-vl-zip-opts-short->long-list getopt::aliases) → (mv getopt::errmsg getopt::longnames)
Function:
(defun parse-vl-zip-opts-short->long-list (getopt::aliases) (declare (xargs :guard (character-listp getopt::aliases))) (let ((__function__ 'parse-vl-zip-opts-short->long-list)) (declare (ignorable __function__)) (b* (((when (atom getopt::aliases)) (mv nil nil)) ((mv getopt::err getopt::longname) (parse-vl-zip-opts-short->long (car getopt::aliases))) ((when getopt::err) (mv getopt::err nil)) ((mv getopt::err rest) (parse-vl-zip-opts-short->long-list (cdr getopt::aliases)))) (mv getopt::err (cons getopt::longname rest)))))
Theorem:
(defthm string-listp-of-parse-vl-zip-opts-short->long-list.longnames (b* (((mv getopt::?errmsg getopt::?longnames) (parse-vl-zip-opts-short->long-list getopt::aliases))) (string-listp getopt::longnames)) :rule-classes :rewrite)
Theorem:
(defthm true-listp-of-parse-vl-zip-opts-short->long-list (true-listp (mv-nth 1 (parse-vl-zip-opts-short->long-list getopt::aliases))) :rule-classes :type-prescription)