(vttree->warnings-acc x context acc) → warnings
Function:
(defun vttree->warnings-acc (x context acc) (declare (xargs :guard (and (vttree-p x) (vl-warninglist-p acc)))) (let ((__function__ 'vttree->warnings-acc)) (declare (ignorable __function__)) (vttree-case x :none (vl-warninglist-fix acc) :warnings (revappend-without-guard (if context (vl-warninglist-add-ctx x.warnings context) x.warnings) (vl-warninglist-fix acc)) :constraints (vl-warninglist-fix acc) :context (vttree->warnings-acc x.subtree (or x.ctx context) acc) :branch (vttree->warnings-acc x.right context (vttree->warnings-acc x.left context acc)))))
Theorem:
(defthm vl-warninglist-p-of-vttree->warnings-acc (b* ((warnings (vttree->warnings-acc x context acc))) (vl-warninglist-p warnings)) :rule-classes :rewrite)
Theorem:
(defthm vttree->warnings-acc-of-vttree-fix-x (equal (vttree->warnings-acc (vttree-fix x) context acc) (vttree->warnings-acc x context acc)))
Theorem:
(defthm vttree->warnings-acc-vttree-equiv-congruence-on-x (implies (vttree-equiv x x-equiv) (equal (vttree->warnings-acc x context acc) (vttree->warnings-acc x-equiv context acc))) :rule-classes :congruence)
Theorem:
(defthm vttree->warnings-acc-of-vl-warninglist-fix-acc (equal (vttree->warnings-acc x context (vl-warninglist-fix acc)) (vttree->warnings-acc x context acc)))
Theorem:
(defthm vttree->warnings-acc-vl-warninglist-equiv-congruence-on-acc (implies (vl-warninglist-equiv acc acc-equiv) (equal (vttree->warnings-acc x context acc) (vttree->warnings-acc x context acc-equiv))) :rule-classes :congruence)