got rid of a pointer equality
authorblanchet
Wed, 09 Jul 2014 11:35:52 +0200
changeset 57534 d2617d923aa1
parent 57533 99a8e1cc7e9e
child 57535 9b99b773acd4
got rid of a pointer equality
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),