# HG changeset patch
# User wenzelm
# Date 1188323145 -7200
# Node ID 58d24cbe5fa6c7468754b1bf37a1baa8cc8a88f4
# Parent  841c2e24761f905301cbe4bc6a21f4985876d3f0
TheoremHook: fixed copy-paste mistake;

diff -r 841c2e24761f -r 58d24cbe5fa6 src/Pure/Isar/specification.ML
--- a/src/Pure/Isar/specification.ML	Tue Aug 28 18:26:48 2007 +0200
+++ b/src/Pure/Isar/specification.ML	Tue Aug 28 19:45:45 2007 +0200
@@ -250,7 +250,7 @@
   type T = ((bool -> Proof.state -> Proof.state) * stamp) list;
   val empty = [];
   val extend = I;
-  fun merge _ type_checks : T = Library.merge (eq_snd op =) type_checks;
+  fun merge _ hooks : T = Library.merge (eq_snd op =) hooks;
 );
 
 fun gen_theorem prep_att prep_stmt