		Search-engine friendly clone of the ACL2 documentation.

Parse-udps

Vl-parse-0+-level-symbols

Matches { level_symbol }

Signature
(vl-parse-0+-level-symbols &key (tokstream 'tokstream) (config 'config)) → (mv errmsg? value new-tokstream)
Arguments: config — Guard (vl-loadconfig-p config).

Definitions and Theorems

Function: vl-parse-0+-level-symbols-fn

(defun vl-parse-0+-level-symbols-fn (tokstream config)
 (declare (xargs :stobjs (tokstream)))
 (declare (xargs :guard (vl-loadconfig-p config)))
 (declare (ignorable config))
 (let ((__function__ 'vl-parse-0+-level-symbols))
  (declare (ignorable __function__))
  (seq
   tokstream
   (unless
    (and (consp (vl-tokstream->tokens))
         (vl-udp-level-symbol-token-p (car (vl-tokstream->tokens))))
    (return nil))
   (first := (vl-match))
   (rest := (vl-parse-0+-level-symbols))
   (return (cons (vl-udp-level-symbol-token->interp first)
                 rest)))))

Theorem: vl-parse-0+-level-symbols-never-fails

(defthm vl-parse-0+-level-symbols-never-fails
  (not (mv-nth 0 (vl-parse-0+-level-symbols))))

Theorem: vl-parse-0+-level-symbols-result

(defthm vl-parse-0+-level-symbols-result
  (implies
       (and (not (mv-nth 0 (vl-parse-0+-level-symbols)))
            (and t))
       (vl-udpentrylist-p (mv-nth 1 (vl-parse-0+-level-symbols)))))

Theorem: vl-parse-0+-level-symbols-true-listp

(defthm vl-parse-0+-level-symbols-true-listp
  (true-listp (mv-nth 1 (vl-parse-0+-level-symbols)))
  :rule-classes :type-prescription)

Theorem: vl-parse-0+-level-symbols-count-strong-on-value

(defthm vl-parse-0+-level-symbols-count-strong-on-value
 (and
     (<= (vl-tokstream-measure
              :tokstream (mv-nth 2 (vl-parse-0+-level-symbols)))
         (vl-tokstream-measure))
     (implies
          (mv-nth 1 (vl-parse-0+-level-symbols))
          (< (vl-tokstream-measure
                  :tokstream (mv-nth 2 (vl-parse-0+-level-symbols)))
             (vl-tokstream-measure))))
 :rule-classes ((:rewrite) (:linear)))