# HG changeset patch
# User haftmann
# Date 1283868320 -7200
# Node ID 13c6e91efcb671f21ec2401155455b5a915b99ba
# Parent  3d30f501b7c220e4952e39c1b65485381dcb4d53
dropped outdated substitution

diff -r 3d30f501b7c2 -r 13c6e91efcb6 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