(fundef-rename fundef subst) → fty::result
Function:
(defun fundef-rename (fundef subst) (declare (xargs :guard (and (fundefp fundef) (ident-ident-alistp subst)))) (declare (ignorable fundef subst)) (let ((__function__ 'fundef-rename)) (declare (ignorable __function__)) (fundef (c$::fundef->extension fundef) (decl-spec-list-rename (c$::fundef->spec fundef) subst) (declor-rename (fundef->declor fundef) subst) (c$::fundef->asm? fundef) (attrib-spec-list-rename (c$::fundef->attribs fundef) subst) (decl-list-rename (c$::fundef->decls fundef) subst) (stmt-rename (c$::fundef->body fundef) subst))))
Theorem:
(defthm fundefp-of-fundef-rename (b* ((fty::result (fundef-rename fundef subst))) (fundefp fty::result)) :rule-classes :rewrite)
Theorem:
(defthm fundef-rename-of-fundef-fix-fundef (equal (fundef-rename (fundef-fix fundef) subst) (fundef-rename fundef subst)))
Theorem:
(defthm fundef-rename-fundef-equiv-congruence-on-fundef (implies (c$::fundef-equiv fundef fundef-equiv) (equal (fundef-rename fundef subst) (fundef-rename fundef-equiv subst))) :rule-classes :congruence)
Theorem:
(defthm fundef-rename-of-ident-ident-alist-fix-subst (equal (fundef-rename fundef (ident-ident-alist-fix subst)) (fundef-rename fundef subst)))
Theorem:
(defthm fundef-rename-ident-ident-alist-equiv-congruence-on-subst (implies (ident-ident-alist-equiv subst subst-equiv) (equal (fundef-rename fundef subst) (fundef-rename fundef subst-equiv))) :rule-classes :congruence)