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:         | _ ->
              failwith "Unexpected number of arguments"
      in
      let decidable_equality =
          [{name = Const.op_Eq;
           arity = 3;
           strong_reduction_ok=true;
           interpretation=interp_bool false};
           {name = Const.op_notEq;
           arity = 3;
           strong_reduction_ok=true;
           interpretation=interp_bool true}]
      in
      let propositional_equality =
          {name = Const.eq2_lid;
           arity = 3;
  
negative.code:     List.map as_primitive_step (basic_ops@bounded_arith_ops)
  
  let equality_ops : list<primitive_step> =
      let interp_prop (r:Range.range) (args:args) : option<term> =
          match args with
          | [(_typ, _); (a1, _); (a2, _)]    //eq2
  