Removed erroneous application of rev in get_clauses that caused
introduction rules taken from the InductivePackage database to
be in the wrong order.

--- a/src/HOL/Tools/inductive_codegen.ML	Fri Apr 13 12:30:47 2007 +0200
+++ b/src/HOL/Tools/inductive_codegen.ML	Fri Apr 13 15:43:25 2007 +0200
@@ -98,7 +98,7 @@
         NONE => NONE
       | SOME ({names, ...}, {intrs, raw_induct, ...}) =>
           SOME (names, thyname_of_const s thy, length (params_of raw_induct),
-            preprocess thy (rev intrs)))
+            preprocess thy intrs))
     | SOME _ =>
         let
           val SOME names = find_first