(vl-interface-bindelim-insttable x itbl) → itbl
Function:
(defun vl-interface-bindelim-insttable (x itbl) (declare (xargs :guard (and (vl-interface-p x) (vl-bindelim-insttable-p itbl)))) (let ((__function__ 'vl-interface-bindelim-insttable)) (declare (ignorable __function__)) (b* ((x (vl-interface-fix x))) (vl-genblob-bindelim-insttable (vl-interface->genblob x) x nil itbl))))
Theorem:
(defthm vl-bindelim-insttable-p-of-vl-interface-bindelim-insttable (b* ((itbl (vl-interface-bindelim-insttable x itbl))) (vl-bindelim-insttable-p itbl)) :rule-classes :rewrite)
Theorem:
(defthm vl-interface-bindelim-insttable-of-vl-interface-fix-x (equal (vl-interface-bindelim-insttable (vl-interface-fix x) itbl) (vl-interface-bindelim-insttable x itbl)))
Theorem:
(defthm vl-interface-bindelim-insttable-vl-interface-equiv-congruence-on-x (implies (vl-interface-equiv x x-equiv) (equal (vl-interface-bindelim-insttable x itbl) (vl-interface-bindelim-insttable x-equiv itbl))) :rule-classes :congruence)
Theorem:
(defthm vl-interface-bindelim-insttable-of-vl-bindelim-insttable-fix-itbl (equal (vl-interface-bindelim-insttable x (vl-bindelim-insttable-fix itbl)) (vl-interface-bindelim-insttable x itbl)))
Theorem:
(defthm vl-interface-bindelim-insttable-vl-bindelim-insttable-equiv-congruence-on-itbl (implies (vl-bindelim-insttable-equiv itbl itbl-equiv) (equal (vl-interface-bindelim-insttable x itbl) (vl-interface-bindelim-insttable x itbl-equiv))) :rule-classes :congruence)