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