X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_refiner%2FnCicMetaSubst.mli;h=77c6d479c732dd65005c5ff92aa877dc8891c50b;hb=5c7b30c4b1033352578c6e38e4fcff4eb0930c44;hp=3223304888fcef0b87302147a62210e5234eb032;hpb=27bce1d83422883b6415862ec92e75baf4f87186;p=helm.git

diff --git a/helm/software/components/ng_refiner/nCicMetaSubst.mli b/helm/software/components/ng_refiner/nCicMetaSubst.mli
index 322330488..77c6d479c 100644
--- a/helm/software/components/ng_refiner/nCicMetaSubst.mli
+++ b/helm/software/components/ng_refiner/nCicMetaSubst.mli
@@ -45,5 +45,20 @@ val restrict :
 val delift : 
   NCic.metasenv -> NCic.substitution -> NCic.context -> 
   int -> NCic.local_context -> NCic.term ->
-    Cic.metasenv * Cic.substitution * Cic.term
- 
+    (NCic.metasenv * NCic.substitution) * NCic.term
+
+val restrict: 
+    NCic.metasenv ->
+    NCic.substitution ->
+      int -> int list -> NCic.metasenv * NCic.substitution * int
+
+val mk_meta: 
+    ?name:string -> 
+    NCic.metasenv -> NCic.context -> NCic.term option -> 
+      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.context -> NCic.term -> int ->
+       NCic.term * NCic.metasenv * NCic.term list
+