		Search-engine friendly clone of the ACL2 documentation.

Copy-fn

Copy-fn-code-ensemble

Transform a code ensemble.

Signature
(copy-fn-code-ensemble code target-fn new-fn) → new-code
Arguments: code — Guard (code-ensemblep code).; target-fn — Guard (identp target-fn).; new-fn — Guard (identp new-fn).
Returns: new-code — Type (code-ensemblep new-code).

Definitions and Theorems

Function: copy-fn-code-ensemble

(defun copy-fn-code-ensemble (code target-fn new-fn)
  (declare (xargs :guard (and (code-ensemblep code)
                              (identp target-fn)
                              (identp new-fn))))
  (declare (xargs :guard (code-ensemble-annop code)))
  (let ((__function__ 'copy-fn-code-ensemble))
    (declare (ignorable __function__))
    (b* (((code-ensemble code) code))
      (change-code-ensemble
           code
           :transunits (copy-fn-transunit-ensemble
                            code.transunits target-fn new-fn)))))

Theorem: code-ensemblep-of-copy-fn-code-ensemble

(defthm code-ensemblep-of-copy-fn-code-ensemble
  (b* ((new-code (copy-fn-code-ensemble code target-fn new-fn)))
    (code-ensemblep new-code))
  :rule-classes :rewrite)