src/Pure/Isar/context_rules.ML
changeset 39557 fe5722fce758
parent 36950 75b8f26f2f07
child 45375 7fe19930dfc9
     1.1 --- a/src/Pure/Isar/context_rules.ML	Mon Sep 20 15:29:53 2010 +0200
     1.2 +++ b/src/Pure/Isar/context_rules.ML	Mon Sep 20 16:05:25 2010 +0200
     1.3 @@ -196,7 +196,7 @@
     1.4  val dest_query  = rule_add elim_queryK Tactic.make_elim;
     1.5  
     1.6  val _ = Context.>> (Context.map_theory
     1.7 -  (snd o PureThy.add_thms [((Binding.empty, Drule.equal_intr_rule), [intro_query NONE])]));
     1.8 +  (snd o Global_Theory.add_thms [((Binding.empty, Drule.equal_intr_rule), [intro_query NONE])]));
     1.9  
    1.10  
    1.11  (* concrete syntax *)