(call-graph-ext-declon-list extdecls
filepath valid-table call-graph)
→
call-graph$Function:
(defun call-graph-ext-declon-list (extdecls filepath valid-table call-graph) (declare (xargs :guard (and (ext-declon-listp extdecls) (filepathp filepath) (valid-tablep valid-table) (call-graphp call-graph)))) (let ((__function__ 'call-graph-ext-declon-list)) (declare (ignorable __function__)) (if (endp extdecls) (call-graph-fix call-graph) (call-graph-ext-declon-list (rest extdecls) filepath valid-table (call-graph-ext-declon (first extdecls) filepath valid-table call-graph)))))
Theorem:
(defthm call-graphp-of-call-graph-ext-declon-list (b* ((call-graph$ (call-graph-ext-declon-list extdecls filepath valid-table call-graph))) (call-graphp call-graph$)) :rule-classes :rewrite)