src/Pure/simplifier.ML
changeset 26435 bdce320cd426
parent 26425 6561665c5cb1
child 26463 9283b4185fdf
     1.1 --- a/src/Pure/simplifier.ML	Thu Mar 27 15:32:12 2008 +0100
     1.2 +++ b/src/Pure/simplifier.ML	Thu Mar 27 15:32:15 2008 +0100
     1.3 @@ -105,7 +105,7 @@
     1.4    fun merge _ (ref ss1, ref ss2) = ref (merge_ss (ss1, ss2));
     1.5  );
     1.6  
     1.7 -val _ = Context.add_setup GlobalSimpset.init;
     1.8 +val _ = Context.>> GlobalSimpset.init;
     1.9  fun print_simpset thy = print_ss (! (GlobalSimpset.get thy));
    1.10  val get_simpset = ! o GlobalSimpset.get;
    1.11  
    1.12 @@ -369,7 +369,7 @@
    1.13  
    1.14  (* setup attributes *)
    1.15  
    1.16 -val _ = Context.add_setup
    1.17 +val _ = Context.>>
    1.18   (Attrib.add_attributes
    1.19     [(simpN, Attrib.add_del_args simp_add simp_del, "declaration of Simplifier rewrite rule"),
    1.20      (congN, Attrib.add_del_args cong_add cong_del, "declaration of Simplifier congruence rule"),