diff -r 37a6e2f55230 -r 44ff2275d44f IOA/example/Lemmas.ML
--- a/IOA/example/Lemmas.ML	Wed Nov 09 19:50:36 1994 +0100
+++ b/IOA/example/Lemmas.ML	Wed Nov 09 19:51:09 1994 +0100
@@ -1,3 +1,13 @@
+(*  Title:      HOL/IOA/example/Lemmas.ML
+    ID:         $Id$
+    Author:     Tobias Nipkow & Konrad Slind
+    Copyright   1994  TU Muenchen
+
+(Mostly) Arithmetic lemmas
+Should realy go in Arith.ML.
+Also: Get rid of all the --> in favour of ==> !!!
+*)
+
 (* Logic *)
 val prems = goal HOL.thy "(P ==> Q-->R) ==> P&Q --> R";
   by(fast_tac (HOL_cs addDs prems) 1);