X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_refiner%2FnCicMetaSubst.mli;h=92cfa0908311a30f4a4fbf5fc20779d26e480af7;hb=3d3d0248bf4770c63361f7805d2099b2a607f44d;hp=1ed2fcee3f607c3960ae450d3833a88707cfd094;hpb=d174e54c365ab9df38367de9336c213a03be3c27;p=helm.git

diff --git a/helm/software/components/ng_refiner/nCicMetaSubst.mli b/helm/software/components/ng_refiner/nCicMetaSubst.mli
index 1ed2fcee3..92cfa0908 100644
--- a/helm/software/components/ng_refiner/nCicMetaSubst.mli
+++ b/helm/software/components/ng_refiner/nCicMetaSubst.mli
@@ -14,22 +14,12 @@
 exception MetaSubstFailure of string Lazy.t
 exception Uncertain of string Lazy.t
 
-(*
-exception AssertFailure of string Lazy.t
-exception DeliftingARelWouldCaptureAFreeVariable;;
-val apply_subst : Cic.substitution -> Cic.term -> Cic.term 
-val apply_subst_context : Cic.substitution -> Cic.context -> Cic.context 
-val apply_subst_metasenv: Cic.substitution -> Cic.metasenv -> Cic.metasenv 
-
-(*** delifting ***)
-
-val restrict :
-  Cic.substitution -> (int * int) list -> Cic.metasenv -> 
-  Cic.metasenv * Cic.substitution 
-*)
+(* 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 Rel in t with its position in
+ * and a term t, and substitutes every subterm t' of t with its position 
+ * (searched up-to unification) in
  * the local_context (which is the Rel moved to the canonical context).
  * Typically, the list of optional terms is the explicit
  * substitution that is applied to a metavariable occurrence and the result of
@@ -67,8 +57,6 @@ 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