anchor.diff:    | High
     | Extreme
     | Other of string
  -
  -type profile_phase_t = string
   
   type option_val =
     | Bool of bool
  
positive.code: let debug_any                    () = get_debug () <> []
  let debug_module        modul       = (get_debug () |> List.existsb (module_name_eq modul))
  let debug_at_level      modul level = (get_debug () |> List.existsb (module_name_eq modul)) && debug_level_geq level
  let profile_group_by_decls () = get_profile_group_by_decl ()
  let defensive                    () = get_defensive () <> "no"
  let defensive_fail               () = get_defensive () = "fail"
  let dep                          () = get_dep                         ()
  
negative.code:          Const (Bool true),
          "Emit profiles grouped by declaration rather than by module");
  
         ( noshort,
          "profile_component",
           Accumulated (SimpleStr "One or more space-separated occurrences of '[+|-]( * | namespace | module | identifier)'"),
          "\n\t\nSpecific source locations in the compiler are instrumented with profiling counters.\n\t
            Pass `--profile_component FStar.TypeChecker` to enable all counters in the FStar.TypeChecker namespace.\n\t
            This option is a module or namespace selector, like many other options (e.g., `--extract`)");
  
         ( noshort,
           "profile",
           Accumulated (SimpleStr "One or more space-separated occurrences of '[+|-]( * | namespace | module)'"),
          "\n\t\nProfiling can be enabled when the compiler is processing a given set of source modules.\n\t
            Pass `--profile FStar.Pervasives` to enable profiling when the compiler is processing any module in FStar.Pervasives.\n\t
            This option is a module or namespace selector, like many other options (e.g., `--extract`)");
  
         ('h',
          "help", WithSideEffect ((fun _ -> display_usage_aux (specs ()); exit 0),
  