(vl-modulelist-bindelim-insttable x itbl) → itbl
Function:
(defun vl-modulelist-bindelim-insttable (x itbl) (declare (xargs :guard (and (vl-modulelist-p x) (vl-bindelim-insttable-p itbl)))) (let ((__function__ 'vl-modulelist-bindelim-insttable)) (declare (ignorable __function__)) (b* ((itbl (vl-bindelim-insttable-fix itbl)) ((when (atom x)) itbl) (itbl (vl-module-bindelim-insttable (first x) itbl))) (vl-modulelist-bindelim-insttable (rest x) itbl))))
Theorem:
(defthm vl-bindelim-insttable-p-of-vl-modulelist-bindelim-insttable (b* ((itbl (vl-modulelist-bindelim-insttable x itbl))) (vl-bindelim-insttable-p itbl)) :rule-classes :rewrite)
Theorem:
(defthm vl-modulelist-bindelim-insttable-of-vl-modulelist-fix-x (equal (vl-modulelist-bindelim-insttable (vl-modulelist-fix x) itbl) (vl-modulelist-bindelim-insttable x itbl)))
Theorem:
(defthm vl-modulelist-bindelim-insttable-vl-modulelist-equiv-congruence-on-x (implies (vl-modulelist-equiv x x-equiv) (equal (vl-modulelist-bindelim-insttable x itbl) (vl-modulelist-bindelim-insttable x-equiv itbl))) :rule-classes :congruence)
Theorem:
(defthm vl-modulelist-bindelim-insttable-of-vl-bindelim-insttable-fix-itbl (equal (vl-modulelist-bindelim-insttable x (vl-bindelim-insttable-fix itbl)) (vl-modulelist-bindelim-insttable x itbl)))
Theorem:
(defthm vl-modulelist-bindelim-insttable-vl-bindelim-insttable-equiv-congruence-on-itbl (implies (vl-bindelim-insttable-equiv itbl itbl-equiv) (equal (vl-modulelist-bindelim-insttable x itbl) (vl-modulelist-bindelim-insttable x itbl-equiv))) :rule-classes :congruence)