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