exception MetaSubstFailure of string Lazy.t
 exception Uncertain of string Lazy.t
 
-(*
-exception AssertFailure of string Lazy.t
-exception DeliftingARelWouldCaptureAFreeVariable;;
-val apply_subst : Cic.substitution -> Cic.term -> Cic.term 
-val apply_subst_context : Cic.substitution -> Cic.context -> Cic.context 
-val apply_subst_metasenv: Cic.substitution -> Cic.metasenv -> Cic.metasenv 
-
-(*** delifting ***)
-
-val restrict :
-  Cic.substitution -> (int * int) list -> Cic.metasenv -> 
-  Cic.metasenv * Cic.substitution 
-*)
-
 (* the delift function takes in input a metavariable index, a local_context
  * and a term t, and substitutes every Rel in t with its position in
  * the local_context (which is the Rel moved to the canonical context).