--- a/IOA/example/Action.ML	Wed Nov 09 19:50:36 1994 +0100
+++ b/IOA/example/Action.ML	Wed Nov 09 19:51:09 1994 +0100
@@ -1,3 +1,11 @@
+(*  Title:      HOL/IOA/example/Action.ML
+    ID:         $Id$
+    Author:     Tobias Nipkow & Konrad Slind
+    Copyright   1994  TU Muenchen
+
+Derived rules for actions
+*)
+
 goal Action.thy "!!x. x = y ==> action_case(a,b,c,d,e,f,g,h,i,j,x) =     \
 \                               action_case(a,b,c,d,e,f,g,h,i,j,y)";
 by (asm_simp_tac HOL_ss 1);