author | wenzelm |
Tue, 28 Aug 2007 19:45:45 +0200 | |
changeset 24464 | 58d24cbe5fa6 |
parent 24463 | 841c2e24761f |
child 24465 | 70f0214b3ecc |
--- 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