val do_profile : string -> ('a * Tacexpr.ltac_call_kind) list -> ?count_call:bool -> 'b Proofview.tactic -> 'b Proofview.tactic
val set_profiling : bool -> unit
val print_results : cutoff:float -> unit
val print_results_tactic : string -> unit
val reset_profile : unit -> unit
val restart_timer : string option -> unit
val finish_timing : prefix:string -> string option -> unit
val do_print_results_at_close : unit -> unit
type treenode
=
{
}
val get_local_profiling_results : unit -> treenode
val feedback_results : treenode -> unit