X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCicUntrusted.mli;h=7ff7f9335b6c2b5561171907fae35e12811ed73a;hb=f9f75ab7c53e17d10c8a8fad42a0fe82a7e28b71;hp=01c522ba0a557eb496c70ed1433331e4a2c025f4;hpb=2da35c1dc1aff5f852886ac64d641774f2f187cf;p=helm.git

diff --git a/helm/software/components/ng_kernel/nCicUntrusted.mli b/helm/software/components/ng_kernel/nCicUntrusted.mli
index 01c522ba0..7ff7f9335 100644
--- a/helm/software/components/ng_kernel/nCicUntrusted.mli
+++ b/helm/software/components/ng_kernel/nCicUntrusted.mli
@@ -42,4 +42,6 @@ val apply_subst_context : fix_projections:bool ->
 val apply_subst_metasenv : NCic.substitution -> NCic.metasenv -> NCic.metasenv
 
 val count_occurrences :
-    subst:NCic.substitution -> NCic.context -> int -> NCic.term -> int
+    subst:NCic.substitution -> int -> NCic.term -> int
+(* quick, but with false negatives (since no ~subst), check for closed terms *)
+val looks_closed : NCic.term -> bool