substaux 1
;;
-(* 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 *)
-let lift_meta l t =
+let subst_meta l t =
let module C = Cic in
if l = [] then t else
let rec aux k = function