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