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