Build a call graph corresponding to a translation unit ensemble.
(call-graph-transunit-ensemble ensemble) → call-graph$
Function:
(defun call-graph-transunit-ensemble (ensemble) (declare (xargs :guard (transunit-ensemblep ensemble))) (declare (xargs :guard (transunit-ensemble-annop ensemble))) (let ((__function__ 'call-graph-transunit-ensemble)) (declare (ignorable __function__)) (call-graph-filepath-transunit-map (transunit-ensemble->units ensemble) nil)))
Theorem:
(defthm call-graphp-of-call-graph-transunit-ensemble (b* ((call-graph$ (call-graph-transunit-ensemble ensemble))) (call-graphp call-graph$)) :rule-classes :rewrite)