val apply_subst:
lowtac_status -> NCic.context -> cic_term -> lowtac_status * cic_term
+(* CSC: this function must be moved elsewhere *)
+val apply_subst_obj: NCic.substitution -> NCic.obj_kind -> NCic.obj_kind
val get_goalty: lowtac_status -> int -> cic_term
val mk_meta: