# HG changeset patch
# User wenzelm
# Date 1185712201 -7200
# Node ID bead02a55952e78b15e3ca8f220a54728940ab7c
# Parent  8c168f5ef22175b354bcb733bb4deda8ce4dfa34
renamed Drule.add/del/merge_rules to Thm.add/del/merge_thms;
tuned;

diff -r 8c168f5ef221 -r bead02a55952 src/HOL/ex/reflection_data.ML
--- a/src/HOL/ex/reflection_data.ML	Sun Jul 29 14:30:00 2007 +0200
+++ b/src/HOL/ex/reflection_data.ML	Sun Jul 29 14:30:01 2007 +0200
@@ -2,44 +2,44 @@
     ID:         $Id$
     Author:     Amine Chaieb, TU Muenchen
 
-Data for the reification and  reflection Methods
+Data for the reification and reflection methods.
 *)
 
 signature REIFY_DATA =
 sig
-  type entry = (thm list) * (thm list)
+  type entry = thm list * thm list
   val get: Proof.context -> entry
   val del: attribute
-  val add: attribute 
+  val add: attribute
   val setup: theory -> theory
 end;
 
 structure Reify_Data : REIFY_DATA =
 struct
 
-type entry = (thm list) * (thm list);
-fun appair f (x,y) = (f x, f y);
+type entry = thm list * thm list;
 
 structure Data = GenericDataFun
-( val name = "Reify-Data";
+(
   type T = entry
-  val empty = ([],[]);
+  val empty = ([], [])
   val extend = I
-  fun merge _ = appair (Library.merge Thm.eq_thm));
+  fun merge _ = pairself Thm.merge_thms
+);
 
 val get = Data.get o Context.Proof;
 
-val add = Thm.declaration_attribute (fn th => fn context => 
-  context |> Data.map (apfst (Drule.add_rule th )))
+val add = Thm.declaration_attribute (fn th => fn context =>
+  context |> Data.map (apfst (Thm.add_thm th)))
 
-val del = Thm.declaration_attribute (fn th => fn context => 
-  context |> Data.map (apfst(Drule.del_rule th )))
+val del = Thm.declaration_attribute (fn th => fn context =>
+  context |> Data.map (apfst (Thm.del_thm th)))
 
-val radd = Thm.declaration_attribute (fn th => fn context => 
-  context |> Data.map (apsnd(Drule.add_rule th )))
+val radd = Thm.declaration_attribute (fn th => fn context =>
+  context |> Data.map (apsnd (Thm.add_thm th)))
 
-val rdel = Thm.declaration_attribute (fn th => fn context => 
-  context |> Data.map (apsnd(Drule.del_rule th )))
+val rdel = Thm.declaration_attribute (fn th => fn context =>
+  context |> Data.map (apsnd (Thm.del_thm th)))
 
 (* concrete syntax *)
 (*