X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_refiner%2FnCicMetaSubst.mli;h=1c96577a74121d90639bbc6905dd7345bd5d647a;hb=refs%2Fheads%2Fmatita-lablgtk3;hp=94a77f287e40b76d21f141e46a012f000da9f255;hpb=fb2fabf6c94d6a2f930b7a84673c90af32c48803;p=helm.git

diff --git a/helm/software/components/ng_refiner/nCicMetaSubst.mli b/helm/software/components/ng_refiner/nCicMetaSubst.mli
index 94a77f287..1c96577a7 100644
--- a/helm/software/components/ng_refiner/nCicMetaSubst.mli
+++ b/helm/software/components/ng_refiner/nCicMetaSubst.mli
@@ -41,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: 
@@ -62,5 +67,9 @@ val saturate:
     NCic.context -> NCic.term -> int ->
        NCic.term * NCic.metasenv * NCic.term list
 
+val pack_lc : int * NCic.lc_kind -> int * NCic.lc_kind
+
 val is_out_scope_tag : NCic.meta_attrs -> bool
 val int_of_out_scope_tag : NCic.meta_attrs -> int
+
+val is_flexible : NCic.context -> subst:NCic.substitution -> NCic.term -> bool