type db
val index_hint:
- db -> NCic.context -> NCic.term -> NCic.term -> db
+ db -> NCic.context -> NCic.term -> NCic.term -> int -> db
(* gets the old imperative coercion DB *)
val db : unit -> db
-val add_user_provided_hint : Cic.term -> unit
+val add_user_provided_hint : Cic.term -> int -> unit
val empty_db : db