src/Tools/Code/code_thingol.ML

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