# HG changeset patch
# User blanchet
# Date 1404898552 -7200
# Node ID d2617d923aa1024cebc71806d43769e3d1792cee
# Parent  99a8e1cc7e9e49483cd611c2d077f0abca170943
got rid of a pointer equality

diff -r 99a8e1cc7e9e -r d2617d923aa1 src/HOL/Tools/BNF/bnf_def.ML
--- a/src/HOL/Tools/BNF/bnf_def.ML	Wed Jul 09 11:35:52 2014 +0200
+++ b/src/HOL/Tools/BNF/bnf_def.ML	Wed Jul 09 11:35:52 2014 +0200
@@ -722,7 +722,8 @@
       end;
 
     fun maybe_restore lthy_old lthy =
-      lthy |> not (pointer_eq (lthy_old, lthy)) ? Local_Theory.restore;
+      lthy |> not (Theory.eq_thy (pairself Proof_Context.theory_of (lthy_old, lthy)))
+        ? Local_Theory.restore;
 
     val map_bind_def =
       (fn () => def_qualify (if Binding.is_empty map_b then mk_prefix_binding mapN else map_b),