checked in new version of matita from svn

[helm.git] / helm / ocaml / cic_proof_checking / cicSubstitution.mli

diff --git a/helm/ocaml/cic_proof_checking/cicSubstitution.mli b/helm/ocaml/cic_proof_checking/cicSubstitution.mli
index 038b5de3f63c12d364640d9a51728c1a88968b96..b1c09277ba989b086d06e07ab091811f19d1c5b1 100644 (file)
--- a/helm/ocaml/cic_proof_checking/cicSubstitution.mli
+++ b/helm/ocaml/cic_proof_checking/cicSubstitution.mli
@@ -33,6 +33,16 @@ exception ReferenceToInductiveDefinition;;
 (* lifts [t] of [n] *)
 val lift : int -> Cic.term -> Cic.term
 
+(** delifts t of n
+ *  @raise Failure s
+ *)
+val delift : int -> Cic.term -> Cic.term
+ 
+
+(* lift from n t *)
+(* as lift but lifts only indexes >= from *)
+val lift_from: int -> int -> Cic.term -> Cic.term
+
 (* subst t1 t2                          *)
 (* substitutes [t1] for [Rel 1] in [t2] *)
 val subst : Cic.term -> Cic.term -> Cic.term
@@ -42,5 +52,8 @@ val subst : Cic.term -> Cic.term -> Cic.term
 val subst_vars :
  Cic.term Cic.explicit_named_substitution -> Cic.term -> Cic.term
 
-(* ?????????? *)
-val lift_meta : (Cic.term option) list -> Cic.term -> Cic.term
+(* subst_meta [t_1 ; ... ; t_n] t                                *)
+(* returns the term [t] where [Rel i] is substituted with [t_i] *)
+(* [t_i] is lifted as usual when it crosses an abstraction      *)
+val subst_meta : (Cic.term option) list -> Cic.term -> Cic.term
+