# HG changeset patch
# User krauss
# Date 1138026211 -3600
# Node ID 2f55e3e473557138ec7f9becf38299cb1cfb35d5
# Parent  e8a11e84864cf5c7adeff64aaf39f1778c9156bd
Updated to Isabelle 2006-01-23

diff -r e8a11e84864c -r 2f55e3e47355 src/HOL/Nominal/nominal_atoms.ML
--- a/src/HOL/Nominal/nominal_atoms.ML	Mon Jan 23 15:14:06 2006 +0100
+++ b/src/HOL/Nominal/nominal_atoms.ML	Mon Jan 23 15:23:31 2006 +0100
@@ -201,7 +201,7 @@
                         HOLogic.mk_Trueprop (HOLogic.mk_eq (cperm $ pi1 $ x, cperm $ pi2 $ x)));
       in
           AxClass.add_axclass_i (cl_name, ["HOL.type"])
-                [((cl_name^"1", axiom1),[Attrib.theory Simplifier.simp_add]), 
+                [((cl_name^"1", axiom1),[Simplifier.simp_add]), 
                  ((cl_name^"2", axiom2),[]),                           
                  ((cl_name^"3", axiom3),[])] thy                          
       end) ak_names_types thy6;
diff -r e8a11e84864c -r 2f55e3e47355 src/HOL/Nominal/nominal_package.ML
--- a/src/HOL/Nominal/nominal_package.ML	Mon Jan 23 15:14:06 2006 +0100
+++ b/src/HOL/Nominal/nominal_package.ML	Mon Jan 23 15:23:31 2006 +0100
@@ -428,13 +428,13 @@
         (List.take (descr, length new_type_names)) |>
       PureThy.add_thmss
         [((space_implode "_" new_type_names ^ "_unfolded_perm_eq",
-          unfolded_perm_eq_thms), [Attrib.theory Simplifier.simp_add]),
+          unfolded_perm_eq_thms), [Simplifier.simp_add]),
          ((space_implode "_" new_type_names ^ "_perm_empty",
-          perm_empty_thms), [Attrib.theory Simplifier.simp_add]),
+          perm_empty_thms), [Simplifier.simp_add]),
          ((space_implode "_" new_type_names ^ "_perm_append",
-          perm_append_thms), [Attrib.theory Simplifier.simp_add]),
+          perm_append_thms), [Simplifier.simp_add]),
          ((space_implode "_" new_type_names ^ "_perm_eq",
-          perm_eq_thms), [Attrib.theory Simplifier.simp_add])];
+          perm_eq_thms), [Simplifier.simp_add])];
   
     (**** Define representing sets ****)
 
@@ -1071,7 +1071,7 @@
          length new_type_names))
       end) atoms;
 
-    val simp_atts = replicate (length new_type_names) [Attrib.theory Simplifier.simp_add];
+    val simp_atts = replicate (length new_type_names) [Simplifier.simp_add];
 
     val (_, thy9) = thy8 |>
       Theory.add_path big_name |>