(vl-unparam-inst->instkey origname paramdecls ifportalist inst-ss mod-ss) → instkey
Function:
(defun vl-unparam-inst->instkey (origname paramdecls ifportalist inst-ss mod-ss) (declare (xargs :guard (and (stringp origname) (vl-paramdecllist-p paramdecls) (vl-ifport-alist-p ifportalist) (vl-scopestack-p inst-ss) (vl-scopestack-p mod-ss)))) (let ((__function__ 'vl-unparam-inst->instkey)) (declare (ignorable __function__)) (make-vl-unparam-instkey :modname origname :ifportalist ifportalist :param-actualkeys (vl-unparam-actualkeys paramdecls inst-ss mod-ss))))
Theorem:
(defthm vl-unparam-instkey-p-of-vl-unparam-inst->instkey (b* ((instkey (vl-unparam-inst->instkey origname paramdecls ifportalist inst-ss mod-ss))) (vl-unparam-instkey-p instkey)) :rule-classes :rewrite)
Theorem:
(defthm vl-unparam-inst->instkey-of-str-fix-origname (equal (vl-unparam-inst->instkey (str-fix origname) paramdecls ifportalist inst-ss mod-ss) (vl-unparam-inst->instkey origname paramdecls ifportalist inst-ss mod-ss)))
Theorem:
(defthm vl-unparam-inst->instkey-streqv-congruence-on-origname (implies (streqv origname origname-equiv) (equal (vl-unparam-inst->instkey origname paramdecls ifportalist inst-ss mod-ss) (vl-unparam-inst->instkey origname-equiv paramdecls ifportalist inst-ss mod-ss))) :rule-classes :congruence)
Theorem:
(defthm vl-unparam-inst->instkey-of-vl-paramdecllist-fix-paramdecls (equal (vl-unparam-inst->instkey origname (vl-paramdecllist-fix paramdecls) ifportalist inst-ss mod-ss) (vl-unparam-inst->instkey origname paramdecls ifportalist inst-ss mod-ss)))
Theorem:
(defthm vl-unparam-inst->instkey-vl-paramdecllist-equiv-congruence-on-paramdecls (implies (vl-paramdecllist-equiv paramdecls paramdecls-equiv) (equal (vl-unparam-inst->instkey origname paramdecls ifportalist inst-ss mod-ss) (vl-unparam-inst->instkey origname paramdecls-equiv ifportalist inst-ss mod-ss))) :rule-classes :congruence)
Theorem:
(defthm vl-unparam-inst->instkey-of-vl-ifport-alist-fix-ifportalist (equal (vl-unparam-inst->instkey origname paramdecls (vl-ifport-alist-fix ifportalist) inst-ss mod-ss) (vl-unparam-inst->instkey origname paramdecls ifportalist inst-ss mod-ss)))
Theorem:
(defthm vl-unparam-inst->instkey-vl-ifport-alist-equiv-congruence-on-ifportalist (implies (vl-ifport-alist-equiv ifportalist ifportalist-equiv) (equal (vl-unparam-inst->instkey origname paramdecls ifportalist inst-ss mod-ss) (vl-unparam-inst->instkey origname paramdecls ifportalist-equiv inst-ss mod-ss))) :rule-classes :congruence)
Theorem:
(defthm vl-unparam-inst->instkey-of-vl-scopestack-fix-inst-ss (equal (vl-unparam-inst->instkey origname paramdecls ifportalist (vl-scopestack-fix inst-ss) mod-ss) (vl-unparam-inst->instkey origname paramdecls ifportalist inst-ss mod-ss)))
Theorem:
(defthm vl-unparam-inst->instkey-vl-scopestack-equiv-congruence-on-inst-ss (implies (vl-scopestack-equiv inst-ss inst-ss-equiv) (equal (vl-unparam-inst->instkey origname paramdecls ifportalist inst-ss mod-ss) (vl-unparam-inst->instkey origname paramdecls ifportalist inst-ss-equiv mod-ss))) :rule-classes :congruence)
Theorem:
(defthm vl-unparam-inst->instkey-of-vl-scopestack-fix-mod-ss (equal (vl-unparam-inst->instkey origname paramdecls ifportalist inst-ss (vl-scopestack-fix mod-ss)) (vl-unparam-inst->instkey origname paramdecls ifportalist inst-ss mod-ss)))
Theorem:
(defthm vl-unparam-inst->instkey-vl-scopestack-equiv-congruence-on-mod-ss (implies (vl-scopestack-equiv mod-ss mod-ss-equiv) (equal (vl-unparam-inst->instkey origname paramdecls ifportalist inst-ss mod-ss) (vl-unparam-inst->instkey origname paramdecls ifportalist inst-ss mod-ss-equiv))) :rule-classes :congruence)