modernized structure Rule_Insts;

--- a/src/HOL/Nominal/nominal_fresh_fun.ML	Sat May 14 16:22:53 2011 +0200
+++ b/src/HOL/Nominal/nominal_fresh_fun.ML	Sat May 14 16:27:47 2011 +0200
@@ -34,7 +34,7 @@
   gen_res_inst_tac_term (K Drule.cterm_instantiate) [];
 
 fun cut_inst_tac_term' tinst th =
-  res_inst_tac_term' tinst false (RuleInsts.make_elim_preserve th);
+  res_inst_tac_term' tinst false (Rule_Insts.make_elim_preserve th);
 
 fun get_dyn_thm thy name atom_name =
   Global_Theory.get_thm thy name handle ERROR _ =>

--- a/src/Pure/Isar/rule_insts.ML	Sat May 14 16:22:53 2011 +0200
+++ b/src/Pure/Isar/rule_insts.ML	Sat May 14 16:27:47 2011 +0200
@@ -26,7 +26,7 @@
   val make_elim_preserve: thm -> thm
 end;
 
-structure RuleInsts: RULE_INSTS =
+structure Rule_Insts: RULE_INSTS =
 struct
 
 (** reading instantiations **)
@@ -422,5 +422,5 @@
 
 end;
 
-structure Basic_Rule_Insts: BASIC_RULE_INSTS = RuleInsts;
+structure Basic_Rule_Insts: BASIC_RULE_INSTS = Rule_Insts;
 open Basic_Rule_Insts;