# HG changeset patch
# User wenzelm
# Date 1004734961 -3600
# Node ID 8809efda06d324c1e4493493255cbd8304f69edc
# Parent  a243730869083679de912a6eaa11c998e7a05e5e
declare transitive;

diff -r a24373086908 -r 8809efda06d3 src/Pure/Isar/calculation.ML
--- a/src/Pure/Isar/calculation.ML	Fri Nov 02 22:01:58 2001 +0100
+++ b/src/Pure/Isar/calculation.ML	Fri Nov 02 22:02:41 2001 +0100
@@ -174,7 +174,8 @@
 (** theory setup **)
 
 val setup = [GlobalCalculation.init, LocalCalculation.init,
-  Attrib.add_attributes [("trans", trans_attr, "declaration of transitivity rule")]];
+  Attrib.add_attributes [("trans", trans_attr, "declaration of transitivity rule")],
+  #1 o PureThy.add_thms [(("", transitive_thm), [trans_add_global])]];
 
 
 end;