traces : unit -> {name : string, current_value : int,
                  default_value : int, maximum : int} list
- traces();
> val it =
    [{default = 10, name = "Subgoal number", trace_level = 10},
     {default = 0, name = "Rewrite", trace_level = 0},
     {default = 0, name = "Ho_Rewrite", trace_level = 0}]