author | haftmann |
Tue, 07 Sep 2010 16:05:20 +0200 | |
changeset 39205 | 13c6e91efcb6 |
parent 39204 | 3d30f501b7c2 |
child 39206 | 303b63be1a9d |
--- 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