(vl-ansi-portdecl-elaborate x elabindex &key (reclimit 'reclimit) (config 'config)) → (mv ok warnings new-x new-elabindex)
Function:
(defun vl-ansi-portdecl-elaborate-fn (x elabindex reclimit config) (declare (xargs :stobjs (elabindex))) (declare (xargs :guard (and (vl-ansi-portdecl-p x) (natp reclimit) (vl-simpconfig-p config)))) (let ((__function__ 'vl-ansi-portdecl-elaborate)) (declare (ignorable __function__)) (b* (((vl-ansi-portdecl x) (vl-ansi-portdecl-fix x))) (b* (((mv ok warnings type elabindex) (vl-maybe-datatype-elaborate-fn x.type elabindex reclimit config)) ((mv ok1 warnings1 pdims elabindex) (vl-dimensionlist-elaborate-fn x.pdims elabindex reclimit config)) (ok (and ok1 ok)) (warnings (append-without-guard warnings1 warnings)) ((mv ok1 warnings1 udims elabindex) (vl-dimensionlist-elaborate-fn x.udims elabindex reclimit config)) (ok (and ok1 ok)) (warnings (append-without-guard warnings1 warnings))) (mv ok warnings (change-vl-ansi-portdecl x :type type :pdims pdims :udims udims) elabindex)))))
Theorem:
(defthm vl-warninglist-p-of-vl-ansi-portdecl-elaborate.warnings (b* (((mv ?ok ?warnings ?new-x ?new-elabindex) (vl-ansi-portdecl-elaborate-fn x elabindex reclimit config))) (vl-warninglist-p warnings)) :rule-classes :rewrite)
Theorem:
(defthm vl-ansi-portdecl-p-of-vl-ansi-portdecl-elaborate.new-x (b* (((mv ?ok ?warnings ?new-x ?new-elabindex) (vl-ansi-portdecl-elaborate-fn x elabindex reclimit config))) (vl-ansi-portdecl-p new-x)) :rule-classes :rewrite)
Theorem:
(defthm vl-ansi-portdecl-elaborate-fn-of-vl-ansi-portdecl-fix-x (equal (vl-ansi-portdecl-elaborate-fn (vl-ansi-portdecl-fix x) elabindex reclimit config) (vl-ansi-portdecl-elaborate-fn x elabindex reclimit config)))
Theorem:
(defthm vl-ansi-portdecl-elaborate-fn-vl-ansi-portdecl-equiv-congruence-on-x (implies (vl-ansi-portdecl-equiv x x-equiv) (equal (vl-ansi-portdecl-elaborate-fn x elabindex reclimit config) (vl-ansi-portdecl-elaborate-fn x-equiv elabindex reclimit config))) :rule-classes :congruence)
Theorem:
(defthm vl-ansi-portdecl-elaborate-fn-of-nfix-reclimit (equal (vl-ansi-portdecl-elaborate-fn x elabindex (nfix reclimit) config) (vl-ansi-portdecl-elaborate-fn x elabindex reclimit config)))
Theorem:
(defthm vl-ansi-portdecl-elaborate-fn-nat-equiv-congruence-on-reclimit (implies (acl2::nat-equiv reclimit reclimit-equiv) (equal (vl-ansi-portdecl-elaborate-fn x elabindex reclimit config) (vl-ansi-portdecl-elaborate-fn x elabindex reclimit-equiv config))) :rule-classes :congruence)
Theorem:
(defthm vl-ansi-portdecl-elaborate-fn-of-vl-simpconfig-fix-config (equal (vl-ansi-portdecl-elaborate-fn x elabindex reclimit (vl-simpconfig-fix config)) (vl-ansi-portdecl-elaborate-fn x elabindex reclimit config)))
Theorem:
(defthm vl-ansi-portdecl-elaborate-fn-vl-simpconfig-equiv-congruence-on-config (implies (vl-simpconfig-equiv config config-equiv) (equal (vl-ansi-portdecl-elaborate-fn x elabindex reclimit config) (vl-ansi-portdecl-elaborate-fn x elabindex reclimit config-equiv))) :rule-classes :congruence)