anchor.diff:          | [] -> [Env.NoDelta]
           | _ -> d in
       {tcenv=e;
  +     debug = { gen = Env.debug e (Options.Other "Norm")
  +             ; primop = Env.debug e (Options.Other "Primops")
  +             ; b380 = Env.debug e (Options.Other "380")
  +             ; norm_delayed = Env.debug e (Options.Other "NormDelayed")
  +             ; print_normalized = Env.debug e (Options.Other "print_normalized_terms") };
        steps=to_fsteps s;
        delta_level=d;
        primitive_steps=built_in_primitive_steps;
  
positive.code:     | Univ _ -> "Univ"
      | Dummy -> "dummy"
  
  type cfg = {
      steps: fsteps;
      tcenv: Env.env;
      delta_level: list<Env.delta_level>;  // Controls how much unfolding of definitions should be performed
      primitive_steps:list<primitive_step>;
      strong : bool;                       // under a binder
  
negative.code:   | [] -> t
  
    | Debug (tm, time_then) :: stack ->
      if cfg.debug.print_normalized
      then begin
        let time_now = BU.now () in
        BU.print3 "Normalized (%s ms) %s\n\tto %s\n"
  