(vl-svex-keyval-default-lookup x) → ans
Function:
(defun vl-svex-keyval-default-lookup (x) (declare (xargs :guard (vl-svex-keyvallist-p x))) (let ((__function__ 'vl-svex-keyval-default-lookup)) (declare (ignorable __function__)) (b* ((x (vl-svex-keyvallist-fix x)) ((when (atom x)) nil) (key (caar x)) ((when (vl-patternkey-case key :default)) (cdar x))) (vl-svex-keyval-default-lookup (cdr x)))))
Theorem:
(defthm return-type-of-vl-svex-keyval-default-lookup (b* ((ans (vl-svex-keyval-default-lookup x))) (implies ans (sv::svex-p ans))) :rule-classes :rewrite)
Theorem:
(defthm vars-of-vl-svex-keyval-default-lookup (b* ((?ans (vl-svex-keyval-default-lookup x))) (implies (and ans (not (member v (vl-svex-keyvallist-vars x)))) (not (member v (sv::svex-vars ans))))))
Theorem:
(defthm vl-svex-keyval-default-lookup-of-vl-svex-keyvallist-fix-x (equal (vl-svex-keyval-default-lookup (vl-svex-keyvallist-fix x)) (vl-svex-keyval-default-lookup x)))
Theorem:
(defthm vl-svex-keyval-default-lookup-vl-svex-keyvallist-equiv-congruence-on-x (implies (vl-svex-keyvallist-equiv x x-equiv) (equal (vl-svex-keyval-default-lookup x) (vl-svex-keyval-default-lookup x-equiv))) :rule-classes :congruence)