universe -> Cic.context -> Cic.term -> Cic.term -> universe
val index_local_term:
universe -> Cic.context -> Cic.term -> Cic.term -> universe
+(* pairs are (term,ty) *)
val index_list:
universe -> Cic.context -> (Cic.term*Cic.term) list -> universe
val remove: