(vl-$test$plusargs-p arg plusargs) → *
Function:
(defun vl-$test$plusargs-p (arg plusargs) (declare (xargs :guard (and (stringp arg) (string-listp plusargs)))) (let ((__function__ 'vl-$test$plusargs-p)) (declare (ignorable __function__)) (cond ((atom plusargs) nil) ((str::strprefixp arg (car plusargs)) t) (t (vl-$test$plusargs-p arg (cdr plusargs))))))
Theorem:
(defthm vl-$test$plusargs-p-of-str-fix-arg (equal (vl-$test$plusargs-p (str-fix arg) plusargs) (vl-$test$plusargs-p arg plusargs)))
Theorem:
(defthm vl-$test$plusargs-p-streqv-congruence-on-arg (implies (streqv arg arg-equiv) (equal (vl-$test$plusargs-p arg plusargs) (vl-$test$plusargs-p arg-equiv plusargs))) :rule-classes :congruence)
Theorem:
(defthm vl-$test$plusargs-p-of-string-list-fix-plusargs (equal (vl-$test$plusargs-p arg (string-list-fix plusargs)) (vl-$test$plusargs-p arg plusargs)))
Theorem:
(defthm vl-$test$plusargs-p-string-list-equiv-congruence-on-plusargs (implies (str::string-list-equiv plusargs plusargs-equiv) (equal (vl-$test$plusargs-p arg plusargs) (vl-$test$plusargs-p arg plusargs-equiv))) :rule-classes :congruence)