		Search-engine friendly clone of the ACL2 documentation.

Copy-fn

Copy-fn-ext-declon-list

Transform a list of external declarations.

Signature
(copy-fn-ext-declon-list extdecls target-fn new-fn) → new-extdecls
Arguments: extdecls — Guard (ext-declon-listp extdecls).; target-fn — Guard (identp target-fn).; new-fn — Guard (identp new-fn).
Returns: new-extdecls — Type (ext-declon-listp new-extdecls).

Definitions and Theorems

Function: copy-fn-ext-declon-list

(defun copy-fn-ext-declon-list (extdecls target-fn new-fn)
  (declare (xargs :guard (and (ext-declon-listp extdecls)
                              (identp target-fn)
                              (identp new-fn))))
  (declare (xargs :guard (ext-declon-list-annop extdecls)))
  (let ((__function__ 'copy-fn-ext-declon-list))
    (declare (ignorable __function__))
    (b* (((when (endp extdecls)) nil)
         ((mv found new-extdecls)
          (copy-fn-ext-declon (first extdecls)
                              target-fn new-fn)))
      (append new-extdecls
              (if found (ext-declon-list-fix (rest extdecls))
                (copy-fn-ext-declon-list (rest extdecls)
                                         target-fn new-fn))))))

Theorem: ext-declon-listp-of-copy-fn-ext-declon-list

(defthm ext-declon-listp-of-copy-fn-ext-declon-list
  (b* ((new-extdecls
            (copy-fn-ext-declon-list extdecls target-fn new-fn)))
    (ext-declon-listp new-extdecls))
  :rule-classes :rewrite)