X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=helm%2Fsoftware%2Fcomponents%2Fng_refiner%2FnCicMetaSubst.mli;h=94a77f287e40b76d21f141e46a012f000da9f255;hb=57a360d659425ce1ee9a69516b66a4d3c7b8eb62;hp=92cfa0908311a30f4a4fbf5fc20779d26e480af7;hpb=53bd7590de050214164c4f6b5181699dc38056f6;p=helm.git

diff --git a/helm/software/components/ng_refiner/nCicMetaSubst.mli b/helm/software/components/ng_refiner/nCicMetaSubst.mli
index 92cfa0908..94a77f287 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
 
@@ -46,18 +48,19 @@ val restrict:
 
 (* bool = true if the type of the new meta is closed *)
 val mk_meta: 
-   ?name:string -> 
+   ?attrs:NCic.meta_attrs -> 
    NCic.metasenv -> NCic.context -> 
-    [ `WithType of NCic.term | `Term | `Type | `Sort ] -> 
+    ?with_type:NCic.term -> NCicUntrusted.meta_kind ->
     NCic.metasenv * int * NCic.term * NCic.term (* menv,metano,instance,type *)
 
+(* extend_meta m n: n must be in m *)
+val extend_meta: NCic.metasenv -> int -> NCic.metasenv * NCic.term
+
 (* 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
 
-val in_scope_tag : string
-val out_scope_tag : int -> string
-val is_out_scope_tag : string -> bool
-val int_of_out_scope_tag : string -> int
+val is_out_scope_tag : NCic.meta_attrs -> bool
+val int_of_out_scope_tag : NCic.meta_attrs -> int