		Search-engine friendly clone of the ACL2 documentation.

Call-graphs

Call-graph-declon

Signature
(call-graph-declon declon fn-name filepath valid-table call-graph) → call-graph$
Arguments: declon — Guard (declonp declon).; fn-name — Guard (qualified-identp fn-name).; filepath — Guard (filepathp filepath).; valid-table — Guard (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-declon

(defun call-graph-declon
       (declon fn-name filepath valid-table call-graph)
  (declare (xargs :guard (and (declonp declon)
                              (qualified-identp fn-name)
                              (filepathp filepath)
                              (valid-tablep valid-table)
                              (call-graphp call-graph))))
  (let ((__function__ 'call-graph-declon))
    (declare (ignorable __function__))
    (declon-case
         declon
         :declon (call-graph-init-declor-list
                      declon.declors
                      fn-name filepath valid-table call-graph)
         :statassert
         (call-graph-statassert declon.statassert fn-name
                                filepath valid-table call-graph))))

Theorem: call-graphp-of-call-graph-declon

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