X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_proof_checking%2FcicSubstitution.mli;h=21a1f5d0e579d775c9e1ea2117b56898506f1990;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=b1c09277ba989b086d06e07ab091811f19d1c5b1;hpb=0575a1cb077087970f311b48f2e45dc4a01a6867;p=helm.git

diff --git a/helm/ocaml/cic_proof_checking/cicSubstitution.mli b/helm/ocaml/cic_proof_checking/cicSubstitution.mli
index b1c09277b..21a1f5d0e 100644
--- a/helm/ocaml/cic_proof_checking/cicSubstitution.mli
+++ b/helm/ocaml/cic_proof_checking/cicSubstitution.mli
@@ -31,13 +31,10 @@ exception ReferenceToInductiveDefinition;;
 
 (* lift n t         *)
 (* lifts [t] of [n] *)
+(* NOTE: the opposite function (delift_rels) is defined in CicMetaSubst *)
+(* since it needs to restrict the metavariables in case of failure      *)
 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 *)