declare transitive;
authorwenzelm
Fri, 02 Nov 2001 22:02:41 +0100
changeset 12021 8809efda06d3
parent 12020 a24373086908
child 12022 9c3377b133c0
declare transitive;
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;