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