X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic%2FcicInspect.mli;h=e7ee2ed8dd72adcef986ecf401336a57cf981907;hb=18758ebe381286b4aff2232e837a0256c00b400b;hp=c4bcd8aaf060a8e54216e9faf68455f3aa2a6d79;hpb=00e0c1d5cff8d5b5588185e1a70352a2e7a1a8e9;p=helm.git diff --git a/helm/software/components/cic/cicInspect.mli b/helm/software/components/cic/cicInspect.mli index c4bcd8aaf..e7ee2ed8d 100644 --- 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