(rename-ident ident subst) → new-ident
Function:
(defun rename-ident (ident subst) (declare (xargs :guard (and (identp ident) (ident-ident-alistp subst)))) (declare (ignorable ident subst)) (let ((__function__ 'rename-ident)) (declare (ignorable __function__)) (ident-ident-subst ident subst)))
Theorem:
(defthm identp-of-rename-ident (b* ((new-ident (rename-ident ident subst))) (identp new-ident)) :rule-classes :rewrite)