# HG changeset patch
# User haftmann
# Date 1285000998 -7200
# Node ID 87a5704673f073c416d8ea3a17e3fcd0c34f93b4
# Parent  f4f87c6e2fad7506b8635875e54e37585c10615d
Pure equality is a regular cpde operation

diff -r f4f87c6e2fad -r 87a5704673f0 src/HOL/HOL.thy
--- a/src/HOL/HOL.thy	Mon Sep 20 15:25:32 2010 +0200
+++ b/src/HOL/HOL.thy	Mon Sep 20 18:43:18 2010 +0200
@@ -742,7 +742,7 @@
   then show False by (rule notE)
 qed
 
-lemma atomize_eq [atomize]: "(x == y) == Trueprop (x = y)"
+lemma atomize_eq [atomize, code]: "(x == y) == Trueprop (x = y)"
 proof
   assume "x == y"
   show "x = y" by (unfold `x == y`) (rule refl)
diff -r f4f87c6e2fad -r 87a5704673f0 src/Tools/Code/code_thingol.ML
--- a/src/Tools/Code/code_thingol.ML	Mon Sep 20 15:25:32 2010 +0200
+++ b/src/Tools/Code/code_thingol.ML	Mon Sep 20 18:43:18 2010 +0200
@@ -275,6 +275,7 @@
        of SOME (tyco, _) => Codegen.thyname_of_type thy tyco
         | NONE => Codegen.thyname_of_const thy c);
   fun purify_base "==>" = "follows"
+    | purify_base "==" = "meta_eq"
     | purify_base s = Name.desymbolize false s;
   fun namify thy get_basename get_thyname name =
     let