src/Pure/simplifier.ML

   fun copy (ref ss) = ref ss: T;
   fun extend (ref ss) = ref (MetaSimplifier.inherit_context empty_ss ss);
   fun merge _ (ref ss1, ref ss2) = ref (merge_ss (ss1, ss2));
 );
 
-val _ = Context.>> GlobalSimpset.init;
+val _ = Context.>> (Context.map_theory GlobalSimpset.init);
 fun print_simpset thy = print_ss (! (GlobalSimpset.get thy));
 val get_simpset = ! o GlobalSimpset.get;
 
 fun change_simpset_of thy f = CRITICAL (fn () => change (GlobalSimpset.get thy) f);
 fun change_simpset f = CRITICAL (fn () => change_simpset_of (ML_Context.the_global_context ()) f);

 end;
 
 
 (* setup attributes *)
 
-val _ = Context.>>
+val _ = Context.>> (Context.map_theory
  (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"),
     ("simproc", simproc_att, "declaration of simplification procedures"),
-    ("simplified", simplified, "simplified rule")]);
+    ("simplified", simplified, "simplified rule")]));
 
 
 
 (** proof methods **)