(vttree->warnings x) → warnings
Function:
(defun vttree->warnings (x) (declare (xargs :guard (vttree-p x))) (let ((__function__ 'vttree->warnings)) (declare (ignorable __function__)) (mbe :logic (vttree-case x :none nil :warnings (list-fix x.warnings) :constraints nil :context (vl-warninglist-add-ctx (vttree->warnings x.subtree) x.ctx) :branch (append-without-guard (vttree->warnings x.left) (vttree->warnings x.right))) :exec (rev (vttree->warnings-acc x nil nil)))))
Theorem:
(defthm vl-warninglist-p-of-vttree->warnings (b* ((warnings (vttree->warnings x))) (vl-warninglist-p warnings)) :rule-classes :rewrite)
Theorem:
(defthm true-listp-of-vttree->warnings (b* ((?warnings (vttree->warnings x))) (true-listp warnings)) :rule-classes :type-prescription)
Theorem:
(defthm vttree->warnings-of-vttree-fix-x (equal (vttree->warnings (vttree-fix x)) (vttree->warnings x)))
Theorem:
(defthm vttree->warnings-vttree-equiv-congruence-on-x (implies (vttree-equiv x x-equiv) (equal (vttree->warnings x) (vttree->warnings x-equiv))) :rule-classes :congruence)