X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_proof_checking%2FcicSubstitution.mli;h=21a1f5d0e579d775c9e1ea2117b56898506f1990;hb=e5014674aed0dab6f3aa43773c8caeffcfe0ac32;hp=5c8fa7ca59b8e31bc3019f71ef0a3cbd91ac0354;hpb=47c9a0967ce271e551d4cbc8ac388097d774a3ef;p=helm.git

diff --git a/helm/ocaml/cic_proof_checking/cicSubstitution.mli b/helm/ocaml/cic_proof_checking/cicSubstitution.mli
index 5c8fa7ca5..21a1f5d0e 100644
--- a/helm/ocaml/cic_proof_checking/cicSubstitution.mli
+++ b/helm/ocaml/cic_proof_checking/cicSubstitution.mli
@@ -28,17 +28,13 @@ exception RelToHiddenHypothesis;;
 exception ReferenceToVariable;;
 exception ReferenceToConstant;;
 exception ReferenceToInductiveDefinition;;
-exception DeliftingWouldCaptureAFreeVariable;;
 
 (* 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 *)