Now CicMetaSubst.delift_rels restricts the Metas when a failure is faced.

[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 04e493ec27b46fce5f0c403a4096b4e469deac82..a816d86b9cc8af9d333263a18b9a59e98927ae9d 100644 (file)
--- a/helm/ocaml/cic_unification/cicMetaSubst.mli
+++ b/helm/ocaml/cic_unification/cicMetaSubst.mli
@@ -55,7 +55,9 @@ val restrict :
 (** delifts the Rels in t of n
  *  @raise DeliftingARelWouldCaptureAFreeVariable
  *)
-val delift_rels : int -> Cic.term -> Cic.term
+val delift_rels :
+ Cic.substitution -> Cic.metasenv -> int -> Cic.term ->
+  Cic.term * Cic.substitution * Cic.metasenv
  
 (** {2 Pretty printers} *)