(call-graph-ext-declon extdecl filepath valid-table call-graph) → call-graph$
Function:
(defun call-graph-ext-declon (extdecl filepath valid-table call-graph) (declare (xargs :guard (and (ext-declonp extdecl) (filepathp filepath) (valid-tablep valid-table) (call-graphp call-graph)))) (let ((__function__ 'call-graph-ext-declon)) (declare (ignorable __function__)) (ext-declon-case extdecl :fundef (call-graph-fundef extdecl.fundef filepath valid-table call-graph) :declon (call-graph-fix call-graph) :empty (call-graph-fix call-graph) :asm (call-graph-fix call-graph))))
Theorem:
(defthm call-graphp-of-call-graph-ext-declon (b* ((call-graph$ (call-graph-ext-declon extdecl filepath valid-table call-graph))) (call-graphp call-graph$)) :rule-classes :rewrite)