exception Discard
-type levels_spec = (string * bool * int) list
-
-val levels_of_term : Cic.metasenv -> Cic.context -> Cic.term -> levels_spec
-
-val string_of_levels : levels_spec -> string -> string
-
val set_log_file : string -> unit
(* the callback function must return false iff the query must be skipped *)