(code-ensemble-rename code subst) → new-code
Function:
(defun code-ensemble-rename (code subst) (declare (xargs :guard (and (code-ensemblep code) (ident-ident-alistp subst)))) (let ((__function__ 'code-ensemble-rename)) (declare (ignorable __function__)) (change-code-ensemble code :transunits (transunit-ensemble-rename (code-ensemble->transunits code) subst))))
Theorem:
(defthm code-ensemblep-of-code-ensemble-rename (b* ((new-code (code-ensemble-rename code subst))) (code-ensemblep new-code)) :rule-classes :rewrite)