X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_unification%2FcicMetaSubst.mli;h=6ebd5a5b9e7ec788dd37eac817ef85503f2aa0cf;hb=3bb4ce11fb9d4c6375483a80344beb94c4517dd7;hp=14d6da3f6de183460f47bc909d223f0cdb917817;hpb=57b385b0d728a06d50d3011473e9afeaf51b674f;p=helm.git

diff --git a/helm/ocaml/cic_unification/cicMetaSubst.mli b/helm/ocaml/cic_unification/cicMetaSubst.mli
index 14d6da3f6..6ebd5a5b9 100644
--- a/helm/ocaml/cic_unification/cicMetaSubst.mli
+++ b/helm/ocaml/cic_unification/cicMetaSubst.mli
@@ -31,7 +31,7 @@ exception SubstNotFound of int
 
 (* The entry (i,t) in a substitution means that *)
 (* (META i) have been instantiated with t.      *)
-type substitution = (int * (Cic.context * Cic.term)) list
+type substitution = (int * (Cic.context * Cic.term)) list 
 
   (** @raise SubstNotFound *)
 val lookup_subst: int -> substitution -> Cic.context * Cic.term
@@ -66,9 +66,12 @@ val delift :
   int -> substitution -> Cic.context -> Cic.metasenv ->
   (Cic.term option) list -> Cic.term ->
     Cic.term * Cic.metasenv * substitution
-
+val restrict :
+  substitution -> (int * int) list -> Cic.metasenv -> 
+  Cic.metasenv * substitution 
 (** {2 Pretty printers} *)
 
+val ppsubst_unfolded: substitution -> string
 val ppsubst: substitution -> string
 val ppterm: substitution -> Cic.term -> string
 val ppcontext: ?sep: string -> substitution -> Cic.context -> string
@@ -92,3 +95,6 @@ val print_counters: unit -> unit
 val reset_counters: unit -> unit
 *)
 
+(* val clean_up_meta :
+  substitution -> Cic.metasenv -> Cic.term -> Cic.term
+*)