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=2032869911d35fa6154298b7c1bb10d1fa77dff0;hpb=9ea87248101d774e1b4c4b706d8d99444b2e5907;p=helm.git

diff --git a/helm/ocaml/cic_proof_checking/cicSubstitution.mli b/helm/ocaml/cic_proof_checking/cicSubstitution.mli
index 203286991..21a1f5d0e 100644
--- a/helm/ocaml/cic_proof_checking/cicSubstitution.mli
+++ b/helm/ocaml/cic_proof_checking/cicSubstitution.mli
@@ -31,8 +31,15 @@ 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
 
+
+(* 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,7 +49,8 @@ val subst : Cic.term -> Cic.term -> Cic.term
 val subst_vars :
  Cic.term Cic.explicit_named_substitution -> Cic.term -> Cic.term
 
-(* lift_meta [t_1 ; ... ; t_n] t                                *)
+(* 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 lift_meta : (Cic.term option) list -> Cic.term -> Cic.term
+val subst_meta : (Cic.term option) list -> Cic.term -> Cic.term
+