		Search-engine friendly clone of the ACL2 documentation.

Copy-fn

Rename-fn-ident

Signature
(rename-fn-ident ident old-fn new-fn) → new-ident
Arguments: ident — Guard (identp ident).; old-fn — Guard (identp old-fn).; new-fn — Guard (identp new-fn).
Returns: new-ident — Type (identp new-ident).

Definitions and Theorems

Function: rename-fn-ident

(defun rename-fn-ident (ident old-fn new-fn)
  (declare (xargs :guard (and (identp ident)
                              (identp old-fn)
                              (identp new-fn))))
  (declare (ignorable ident old-fn new-fn))
  (let ((__function__ 'rename-fn-ident))
    (declare (ignorable __function__))
    (ident-fix ident)))

Theorem: identp-of-rename-fn-ident

(defthm identp-of-rename-fn-ident
  (b* ((new-ident (rename-fn-ident ident old-fn new-fn)))
    (identp new-ident))
  :rule-classes :rewrite)