1.1 --- a/src/Tools/Code/code_thingol.ML	Tue Sep 07 16:05:18 2010 +0200
     1.2 +++ b/src/Tools/Code/code_thingol.ML	Tue Sep 07 16:05:20 2010 +0200
     1.3 @@ -271,7 +271,6 @@
     1.4         of SOME (tyco, _) => Codegen.thyname_of_type thy tyco
     1.5          | NONE => Codegen.thyname_of_const thy c);
     1.6    fun purify_base "==>" = "follows"
     1.7 -    | purify_base "op =" = "eq"
     1.8      | purify_base s = Name.desymbolize false s;
     1.9    fun namify thy get_basename get_thyname name =
    1.10      let