X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_refiner%2FnCicMetaSubst.mli;h=4cce960956f37a9eae86922aa3b5c2f4e823254d;hb=d00e19c7000a00659ffd609ef79675eb0f010659;hp=3378aa998cd475631b16113a0531dc5ecde946b8;hpb=91f0c0e84bfe6bf22e960d466e16f7260a2882ee;p=helm.git

diff --git a/helm/software/components/ng_refiner/nCicMetaSubst.mli b/helm/software/components/ng_refiner/nCicMetaSubst.mli
index 3378aa998..4cce96095 100644
--- a/helm/software/components/ng_refiner/nCicMetaSubst.mli
+++ b/helm/software/components/ng_refiner/nCicMetaSubst.mli
@@ -14,6 +14,9 @@
 exception MetaSubstFailure of string Lazy.t
 exception Uncertain of string Lazy.t
 
+(* the index of the last created meta *)
+val maxmeta: unit -> int
+
 (* the delift function takes in input a metavariable index, a local_context
  * and a term t, and substitutes every subterm t' of t with its position 
  * (searched up-to unification) in
@@ -43,7 +46,7 @@ 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 ] -> 
     NCic.metasenv * int * NCic.term * NCic.term (* menv,metano,instance,type *)
@@ -54,9 +57,5 @@ val saturate:
     NCic.context -> NCic.term -> int ->
        NCic.term * NCic.metasenv * NCic.term list
 
-val flexible: NCic.substitution -> NCic.term list -> bool
-
-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