(call-graph-decl decl fn-name filepath valid-table call-graph) → call-graph$
Function:
(defun call-graph-decl (decl fn-name filepath valid-table call-graph) (declare (xargs :guard (and (declp decl) (qualified-identp fn-name) (filepathp filepath) (c$::valid-tablep valid-table) (call-graphp call-graph)))) (let ((__function__ 'call-graph-decl)) (declare (ignorable __function__)) (decl-case decl :decl (call-graph-initdeclor-list decl.init fn-name filepath valid-table call-graph) :statassert (call-graph-statassert decl.unwrap fn-name filepath valid-table call-graph))))
Theorem:
(defthm call-graphp-of-call-graph-decl (b* ((call-graph$ (call-graph-decl decl fn-name filepath valid-table call-graph))) (call-graphp call-graph$)) :rule-classes :rewrite)