X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fcomponents%2Fng_refiner%2FnCicMetaSubst.mli;h=ca2bfb71415c3776e1550c3b81103594187dc047;hb=424982ded255df68245241f56064202844ed1194;hp=91752fbf75e433b7155581c79859f0ef2d9cabcc;hpb=9182039cdc2a7573f36014f9b266e27ac123a1ad;p=helm.git

diff --git a/helm/software/components/ng_refiner/nCicMetaSubst.mli b/helm/software/components/ng_refiner/nCicMetaSubst.mli
index 91752fbf7..ca2bfb714 100644
--- a/helm/software/components/ng_refiner/nCicMetaSubst.mli
+++ b/helm/software/components/ng_refiner/nCicMetaSubst.mli
@@ -52,3 +52,15 @@ val restrict:
     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 | `Typeless ] -> 
+    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
+