(rename-extdecl-list extdecls subst) → new-extdecls
Function:
(defun rename-extdecl-list (extdecls subst) (declare (xargs :guard (and (extdecl-listp extdecls) (ident-ident-alistp subst)))) (declare (ignorable extdecls subst)) (let ((__function__ 'rename-extdecl-list)) (declare (ignorable __function__)) (if (endp extdecls) nil (cons (rename-extdecl (car extdecls) subst) (rename-extdecl-list (cdr extdecls) subst)))))
Theorem:
(defthm extdecl-listp-of-rename-extdecl-list (b* ((new-extdecls (rename-extdecl-list extdecls subst))) (extdecl-listp new-extdecls)) :rule-classes :rewrite)