(vl-alias-ctxexprs x mod ss) → ctxexprs
Function:
(defun vl-alias-ctxexprs (x mod ss) (declare (xargs :guard (and (vl-alias-p x) (stringp mod) (vl-scopestack-p ss)))) (let ((__function__ 'vl-alias-ctxexprs)) (declare (ignorable __function__)) (let ((x (vl-alias-fix x))) (vl-exprlist-ctxexprs (vl-alias-allexprs x) (make-vl-context1 :mod mod :elem x) ss))))
Theorem:
(defthm vl-ctxexprlist-p-of-vl-alias-ctxexprs (b* ((ctxexprs (vl-alias-ctxexprs x mod ss))) (vl-ctxexprlist-p ctxexprs)) :rule-classes :rewrite)
Theorem:
(defthm vl-alias-ctxexprs-of-vl-alias-fix-x (equal (vl-alias-ctxexprs (vl-alias-fix x) mod ss) (vl-alias-ctxexprs x mod ss)))
Theorem:
(defthm vl-alias-ctxexprs-vl-alias-equiv-congruence-on-x (implies (vl-alias-equiv x x-equiv) (equal (vl-alias-ctxexprs x mod ss) (vl-alias-ctxexprs x-equiv mod ss))) :rule-classes :congruence)
Theorem:
(defthm vl-alias-ctxexprs-of-str-fix-mod (equal (vl-alias-ctxexprs x (str-fix mod) ss) (vl-alias-ctxexprs x mod ss)))
Theorem:
(defthm vl-alias-ctxexprs-streqv-congruence-on-mod (implies (streqv mod mod-equiv) (equal (vl-alias-ctxexprs x mod ss) (vl-alias-ctxexprs x mod-equiv ss))) :rule-classes :congruence)
Theorem:
(defthm vl-alias-ctxexprs-of-vl-scopestack-fix-ss (equal (vl-alias-ctxexprs x mod (vl-scopestack-fix ss)) (vl-alias-ctxexprs x mod ss)))
Theorem:
(defthm vl-alias-ctxexprs-vl-scopestack-equiv-congruence-on-ss (implies (vl-scopestack-equiv ss ss-equiv) (equal (vl-alias-ctxexprs x mod ss) (vl-alias-ctxexprs x mod ss-equiv))) :rule-classes :congruence)