Split command line arguments into plusargs and non-plusargs.
(split-plusargs args) → (mv normal plusargs)
Function:
(defun split-plusargs (args) (declare (xargs :guard (string-listp args))) (let ((__function__ 'split-plusargs)) (declare (ignorable __function__)) (b* (((mv acc plusacc) (split-plusargs-exec args nil nil))) (mv (reverse acc) (reverse plusacc)))))
Theorem:
(defthm string-listp-of-split-plusargs.normal (b* (((mv ?normal ?plusargs) (split-plusargs args))) (string-listp normal)) :rule-classes :rewrite)
Theorem:
(defthm string-listp-of-split-plusargs.plusargs (b* (((mv ?normal ?plusargs) (split-plusargs args))) (string-listp plusargs)) :rule-classes :rewrite)