simplified NetRules;

--- a/src/Pure/Isar/induct_attrib.ML	Wed Dec 05 03:15:15 2001 +0100
+++ b/src/Pure/Isar/induct_attrib.ML	Wed Dec 05 03:15:32 2001 +0100
@@ -83,8 +83,8 @@
 
 type rules = (string * thm) NetRules.T;
 
-val init_rules = NetRules.init (fn ((s1: string, th1), (s2, th2)) => s1 = s2
-  andalso Thm.eq_thm (th1, th2)) (K 0);
+val init_rules =
+  NetRules.init (fn ((s1: string, th1), (s2, th2)) => s1 = s2 andalso Thm.eq_thm (th1, th2));
 
 fun lookup_rule (rs: rules) name = Library.assoc (NetRules.rules rs, name);