(ident-rename ident subst) → fty::result
Function:
(defun ident-rename (ident subst) (declare (xargs :guard (and (identp ident) (ident-ident-alistp subst)))) (declare (ignorable ident subst)) (let ((__function__ 'ident-rename)) (declare (ignorable __function__)) (ident-ident-subst ident subst)))
Theorem:
(defthm identp-of-ident-rename (b* ((fty::result (ident-rename ident subst))) (identp fty::result)) :rule-classes :rewrite)
Theorem:
(defthm ident-rename-of-ident-fix-ident (equal (ident-rename (ident-fix ident) subst) (ident-rename ident subst)))
Theorem:
(defthm ident-rename-ident-equiv-congruence-on-ident (implies (c$::ident-equiv ident ident-equiv) (equal (ident-rename ident subst) (ident-rename ident-equiv subst))) :rule-classes :congruence)
Theorem:
(defthm ident-rename-of-ident-ident-alist-fix-subst (equal (ident-rename ident (ident-ident-alist-fix subst)) (ident-rename ident subst)))
Theorem:
(defthm ident-rename-ident-ident-alist-equiv-congruence-on-subst (implies (ident-ident-alist-equiv subst subst-equiv) (equal (ident-rename ident subst) (ident-rename ident subst-equiv))) :rule-classes :congruence)