anchor.diff:      let d = match d with
           | [] -> [Env.NoDelta]
           | _ -> d in
  -    {tcenv=e; steps=s; delta_level=d; primitive_steps=built_in_primitive_steps@equality_ops}
  +    {tcenv=e; steps=s; delta_level=d; primitive_steps=built_in_primitive_steps}
   
   let normalize_with_primitive_steps ps s e t =
       let c = config s e in
  
positive.code:              (Const.string_of_int_lid, 1, unary_op arg_as_int string_of_int);
               (Const.string_of_bool_lid, 1, unary_op arg_as_bool string_of_bool);
               (Const.string_compare, 2, binary_op arg_as_string string_compare');
               (Const.p2l ["FStar"; "String"; "list_of_string"],
                                      1, unary_op arg_as_string list_of_string');
               (Const.p2l ["FStar"; "String"; "string_of_list"],
  
negative.code:          interpretation = interp_prop}
      in
  
      [propositional_equality; hetero_propositional_equality]
  
  let reduce_primops cfg tm =
      if not <| List.contains Primops cfg.steps
  