speedup in fixing the graph closures

[helm.git] / helm / software / components / cic / cicInspect.mli

diff --git a/helm/software/components/cic/cicInspect.mli b/helm/software/components/cic/cicInspect.mli
index c4bcd8aaf060a8e54216e9faf68455f3aa2a6d79..e7ee2ed8dd72adcef986ecf401336a57cf981907 100644 (file)
--- a/helm/software/components/cic/cicInspect.mli
+++ b/helm/software/components/cic/cicInspect.mli
@@ -30,3 +30,6 @@ val overlaps: S.t -> S.t -> bool
 val get_rels_from_premise: int -> Cic.term -> S.t
 
 val get_mutinds_of_uri: UriManager.uri -> Cic.term -> S.t
+
+(* count_nodes n t returns n + the number of nodes in t *)
+val count_nodes: int -> Cic.term -> int