Subst has been added to the kernel.

[helm.git] / helm / ocaml / cic_unification / cicMetaSubst.mli

diff --git a/helm/ocaml/cic_unification/cicMetaSubst.mli b/helm/ocaml/cic_unification/cicMetaSubst.mli
index 14d6da3f6de183460f47bc909d223f0cdb917817..6ebd5a5b9e7ec788dd37eac817ef85503f2aa0cf 100644 (file)
--- 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
+*)