		Search-engine friendly clone of the ACL2 documentation.

Call-graphs

Call-graph-statassert

Signature
(call-graph-statassert statassert fn-name filepath valid-table call-graph) → call-graph$
Arguments: statassert — Guard (statassertp statassert).; fn-name — Guard (qualified-identp fn-name).; filepath — Guard (filepathp filepath).; valid-table — Guard (c$::valid-tablep valid-table).; call-graph — Guard (call-graphp call-graph).
Returns: call-graph$ — Type (call-graphp call-graph$).

Definitions and Theorems

Function: call-graph-statassert

(defun call-graph-statassert
       (statassert fn-name filepath valid-table call-graph)
  (declare (xargs :guard (and (statassertp statassert)
                              (qualified-identp fn-name)
                              (filepathp filepath)
                              (c$::valid-tablep valid-table)
                              (call-graphp call-graph))))
  (let ((__function__ 'call-graph-statassert))
    (declare (ignorable __function__))
    (b* (((statassert statassert) statassert))
      (call-graph-const-expr statassert.test fn-name
                             filepath valid-table call-graph))))

Theorem: call-graphp-of-call-graph-statassert

(defthm call-graphp-of-call-graph-statassert
 (b* ((call-graph$
           (call-graph-statassert statassert fn-name
                                  filepath valid-table call-graph)))
   (call-graphp call-graph$))
 :rule-classes :rewrite)