anchor.diff:  let tr_norm_steps s =
       List.concatMap tr_norm_step s
   
  -let get_norm_request (full_norm:term -> term) args =
  +let get_norm_request cfg (full_norm:term -> term) args =
       let parse_steps s =
         match EMB.try_unembed (EMB.e_list EMB.e_norm_step) s with
         | Some steps -> Some (tr_norm_steps steps)
         | None -> None
       in
  +    let inherited_steps =
  +        (if cfg.steps.erase_universes then [EraseUniverses] else [])
  +      @ (if cfg.steps.allow_unbound_universes then [AllowUnboundUniverses] else [])
  +    in
       match args with
       | [_; (tm, _)]
       | [(tm, _)] ->
         let s = [Beta; Zeta; Iota; Primops; UnfoldUntil delta_constant; Reify] in
  -      Some (s, tm)
  +      Some (inherited_steps @ s, tm)
       | [(steps, _); _; (tm, _)] ->
         let add_exclude s z = if List.contains z s then s else Exclude z :: s in
         begin
  
positive.code:                                   delta_level=[Unfold delta_constant];
                                    normalize_pure_lets=true} in
              begin
              match get_norm_request (norm cfg' env []) args with
              | None -> //just normalize it as a normal application
                let stack =
                  stack |>
  
negative.code:         let s = Beta::s in
          let s = add_exclude s Zeta in
          let s = add_exclude s Iota in
          Some (inherited_steps @ s, tm)
        end
      | _ ->
        None
  