X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_refiner%2FnCicMetaSubst.mli;h=1d7b6729e11ee5d6be2db10be7f2bbe3c8e08ebd;hb=3433ed9a5ba002fca902d0e9b08fb8ecae9df056;hp=8f03ccb11110fcafb541995214572333e18cc4e5;hpb=ee2bbb5aa3f13fbea8cd758e69347d9f1f5ed6bb;p=helm.git

diff --git a/helm/software/components/ng_refiner/nCicMetaSubst.mli b/helm/software/components/ng_refiner/nCicMetaSubst.mli
index 8f03ccb11..1d7b6729e 100644
--- a/helm/software/components/ng_refiner/nCicMetaSubst.mli
+++ b/helm/software/components/ng_refiner/nCicMetaSubst.mli
@@ -46,4 +46,22 @@ val delift :
   NCic.metasenv -> NCic.substitution -> NCic.context -> 
   int -> NCic.local_context -> NCic.term ->
     (NCic.metasenv * NCic.substitution) * NCic.term
- 
+
+val restrict: 
+    NCic.metasenv ->
+    NCic.substitution ->
+      int -> int list -> NCic.metasenv * NCic.substitution * int
+
+(* bool = true if the type of the new meta is closed *)
+val mk_meta: 
+   ?name:string -> 
+   NCic.metasenv -> NCic.context -> 
+    [ `WithType of NCic.term | `Term | `Type | `Sort ] -> 
+    NCic.metasenv * NCic.term * NCic.term (* menv, instance, type *)
+
+(* returns the resulting type, the metasenv and the arguments *)
+val saturate:
+    ?delta:int -> NCic.metasenv -> NCic.substitution -> 
+    NCic.context -> NCic.term -> int ->
+       NCic.term * NCic.metasenv * NCic.term list
+