		Search-engine friendly clone of the ACL2 documentation.

Split-fn-implementation

Split-fn-ext-declon-list

Transform a list of external declarations.

Signature
(split-fn-ext-declon-list target-fn new-fn-name extdecls split-point) → (mv er? new-extdecls)
Arguments: target-fn — Guard (identp target-fn).; new-fn-name — Guard (identp new-fn-name).; extdecls — Guard (ext-declon-listp extdecls).; split-point — Guard (natp split-point).
Returns: er? — Type (maybe-msgp er?).; new-extdecls — Type (ext-declon-listp new-extdecls).

Definitions and Theorems

Function: split-fn-ext-declon-list

(defun split-fn-ext-declon-list
       (target-fn new-fn-name extdecls split-point)
  (declare (xargs :guard (and (identp target-fn)
                              (identp new-fn-name)
                              (ext-declon-listp extdecls)
                              (natp split-point))))
  (b*
   (((reterr) nil)
    ((when (endp extdecls)) (retok nil))
    ((erp target-found extdecls1)
     (split-fn-ext-declon target-fn new-fn-name (first extdecls)
                          split-point))
    ((when target-found)
     (retok (append extdecls1
                    (ext-declon-list-fix (rest extdecls)))))
    ((erp extdecls2)
     (split-fn-ext-declon-list target-fn new-fn-name (rest extdecls)
                               split-point)))
   (retok (append extdecls1 extdecls2))))

Theorem: maybe-msgp-of-split-fn-ext-declon-list.er?

(defthm maybe-msgp-of-split-fn-ext-declon-list.er?
 (b* (((mv ?er? ?new-extdecls)
       (split-fn-ext-declon-list target-fn
                                 new-fn-name extdecls split-point)))
   (maybe-msgp er?))
 :rule-classes :rewrite)

Theorem: ext-declon-listp-of-split-fn-ext-declon-list.new-extdecls

(defthm ext-declon-listp-of-split-fn-ext-declon-list.new-extdecls
 (b* (((mv ?er? ?new-extdecls)
       (split-fn-ext-declon-list target-fn
                                 new-fn-name extdecls split-point)))
   (ext-declon-listp new-extdecls))
 :rule-classes :rewrite)