Create the arguments that
(vl-create-namedargs-for-dotstar missing ss warnings inst) → (mv successp warnings new-args)
Function:
(defun vl-create-namedargs-for-dotstar (missing ss warnings inst) (declare (xargs :guard (and (string-listp missing) (vl-scopestack-p ss) (vl-warninglist-p warnings) (vl-modinst-p inst)))) (let ((__function__ 'vl-create-namedargs-for-dotstar)) (declare (ignorable __function__)) (b* (((when (atom missing)) (mv t (ok) nil)) ((mv okp1 warnings args1) (vl-create-namedarg-for-dotstar (car missing) ss warnings inst)) ((mv okp2 warnings args2) (vl-create-namedargs-for-dotstar (cdr missing) ss warnings inst))) (mv (and okp1 okp2) warnings (append args1 args2)))))
Theorem:
(defthm booleanp-of-vl-create-namedargs-for-dotstar.successp (b* (((mv ?successp ?warnings ?new-args) (vl-create-namedargs-for-dotstar missing ss warnings inst))) (booleanp successp)) :rule-classes :type-prescription)
Theorem:
(defthm vl-warninglist-p-of-vl-create-namedargs-for-dotstar.warnings (b* (((mv ?successp ?warnings ?new-args) (vl-create-namedargs-for-dotstar missing ss warnings inst))) (vl-warninglist-p warnings)) :rule-classes :rewrite)
Theorem:
(defthm vl-namedarglist-p-of-vl-create-namedargs-for-dotstar.new-args (b* (((mv ?successp ?warnings ?new-args) (vl-create-namedargs-for-dotstar missing ss warnings inst))) (vl-namedarglist-p new-args)) :rule-classes :rewrite)
Theorem:
(defthm true-listp-of-vl-create-namedargs-for-dotstar.new-args (b* (((mv ?successp ?warnings ?new-args) (vl-create-namedargs-for-dotstar missing ss warnings inst))) (true-listp new-args)) :rule-classes :type-prescription)
Theorem:
(defthm vl-create-namedargs-for-dotstar-of-string-list-fix-missing (equal (vl-create-namedargs-for-dotstar (string-list-fix missing) ss warnings inst) (vl-create-namedargs-for-dotstar missing ss warnings inst)))
Theorem:
(defthm vl-create-namedargs-for-dotstar-string-list-equiv-congruence-on-missing (implies (str::string-list-equiv missing missing-equiv) (equal (vl-create-namedargs-for-dotstar missing ss warnings inst) (vl-create-namedargs-for-dotstar missing-equiv ss warnings inst))) :rule-classes :congruence)
Theorem:
(defthm vl-create-namedargs-for-dotstar-of-vl-scopestack-fix-ss (equal (vl-create-namedargs-for-dotstar missing (vl-scopestack-fix ss) warnings inst) (vl-create-namedargs-for-dotstar missing ss warnings inst)))
Theorem:
(defthm vl-create-namedargs-for-dotstar-vl-scopestack-equiv-congruence-on-ss (implies (vl-scopestack-equiv ss ss-equiv) (equal (vl-create-namedargs-for-dotstar missing ss warnings inst) (vl-create-namedargs-for-dotstar missing ss-equiv warnings inst))) :rule-classes :congruence)
Theorem:
(defthm vl-create-namedargs-for-dotstar-of-vl-warninglist-fix-warnings (equal (vl-create-namedargs-for-dotstar missing ss (vl-warninglist-fix warnings) inst) (vl-create-namedargs-for-dotstar missing ss warnings inst)))
Theorem:
(defthm vl-create-namedargs-for-dotstar-vl-warninglist-equiv-congruence-on-warnings (implies (vl-warninglist-equiv warnings warnings-equiv) (equal (vl-create-namedargs-for-dotstar missing ss warnings inst) (vl-create-namedargs-for-dotstar missing ss warnings-equiv inst))) :rule-classes :congruence)
Theorem:
(defthm vl-create-namedargs-for-dotstar-of-vl-modinst-fix-inst (equal (vl-create-namedargs-for-dotstar missing ss warnings (vl-modinst-fix inst)) (vl-create-namedargs-for-dotstar missing ss warnings inst)))
Theorem:
(defthm vl-create-namedargs-for-dotstar-vl-modinst-equiv-congruence-on-inst (implies (vl-modinst-equiv inst inst-equiv) (equal (vl-create-namedargs-for-dotstar missing ss warnings inst) (vl-create-namedargs-for-dotstar missing ss warnings inst-equiv))) :rule-classes :congruence)