X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fcomponents%2Fng_refiner%2FnCicMetaSubst.mli;h=fd101414df75853f61fe6eabb926ead6ab559036;hb=f1fc99e982ca6c9c939504c4dcf773edf582792a;hp=0cedc5258db577288cc0e1be10173c9229b1dd97;hpb=f8d45b2e4fa7817d7ef8312b3bb8a7439bd7fb8c;p=helm.git

diff --git a/helm/software/components/ng_refiner/nCicMetaSubst.mli b/helm/software/components/ng_refiner/nCicMetaSubst.mli
index 0cedc5258..fd101414d 100644
--- a/helm/software/components/ng_refiner/nCicMetaSubst.mli
+++ b/helm/software/components/ng_refiner/nCicMetaSubst.mli
@@ -14,6 +14,8 @@
 exception MetaSubstFailure of string Lazy.t
 exception Uncertain of string Lazy.t
 
+val debug: bool ref
+
 (* the index of the last created meta *)
 val maxmeta: unit -> int
 
@@ -39,10 +41,15 @@ val delift :
   int -> NCic.local_context -> NCic.term ->
     (NCic.metasenv * NCic.substitution) * NCic.term
 
+(* restrict metasenv subst n l
+   returns metasenv, subst, created meta and l' where l' is the list of
+   additional (i.e. l' does not intersects l) positions whose restriction was
+   forced because of type dependencies *)
 val restrict: 
     NCic.metasenv ->
     NCic.substitution ->
-      int -> int list -> NCic.metasenv * NCic.substitution * int
+    int -> int list ->
+     NCic.metasenv * NCic.substitution * int * int list
 
 (* bool = true if the type of the new meta is closed *)
 val mk_meta: