added delift

[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 9083212ae6737ece3a855c865f9bda6c79037be0..1f0705881994baf0262fffc861e5580b714160a8 100644 (file)
--- a/helm/ocaml/cic_proof_checking/cicSubstitution.mli
+++ b/helm/ocaml/cic_proof_checking/cicSubstitution.mli
@@ -33,6 +33,12 @@ 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