--- a/src/Pure/simplifier.ML Thu Mar 27 15:32:12 2008 +0100
+++ b/src/Pure/simplifier.ML Thu Mar 27 15:32:15 2008 +0100
@@ -105,7 +105,7 @@
fun merge _ (ref ss1, ref ss2) = ref (merge_ss (ss1, ss2));
);
-val _ = Context.add_setup GlobalSimpset.init;
+val _ = Context.>> GlobalSimpset.init;
fun print_simpset thy = print_ss (! (GlobalSimpset.get thy));
val get_simpset = ! o GlobalSimpset.get;
@@ -369,7 +369,7 @@
(* setup attributes *)
-val _ = Context.add_setup
+val _ = Context.>>
(Attrib.add_attributes
[(simpN, Attrib.add_del_args simp_add simp_del, "declaration of Simplifier rewrite rule"),
(congN, Attrib.add_del_args cong_add cong_del, "declaration of Simplifier congruence rule"),