merged
authorberghofe
Thu, 18 Feb 2010 17:28:46 +0100
changeset 35212 5cc73912ebce
parent 35209 86fd2d02ff74 (diff)
parent 35211 5d2fe4e09354 (current diff)
child 35217 01e968432467
merged
--- a/Admin/isatest/settings/at64-poly-5.1-para	Thu Feb 18 17:28:02 2010 +0100
+++ b/Admin/isatest/settings/at64-poly-5.1-para	Thu Feb 18 17:28:46 2010 +0100
@@ -1,10 +1,10 @@
 # -*- shell-script -*- :mode=shellscript:
 
-  POLYML_HOME="/home/polyml/polyml-5.2.1"
-  ML_SYSTEM="polyml-5.2.1"
+  POLYML_HOME="/home/polyml/polyml-5.3.0"
+  ML_SYSTEM="polyml-5.3.0"
   ML_PLATFORM="x86_64-linux"
   ML_HOME="$POLYML_HOME/$ML_PLATFORM"
-  ML_OPTIONS="-H 500"
+  ML_OPTIONS="-H 1000"
 
 ISABELLE_HOME_USER=~/isabelle-at64-poly-para-e
 
--- a/src/HOL/List.thy	Thu Feb 18 17:28:02 2010 +0100
+++ b/src/HOL/List.thy	Thu Feb 18 17:28:46 2010 +0100
@@ -720,6 +720,11 @@
 lemma map_map [simp]: "map f (map g xs) = map (f \<circ> g) xs"
 by (induct xs) auto
 
+lemma map_comp_map[simp]: "((map f) o (map g)) = map(f o g)"
+apply(rule ext)
+apply(simp)
+done
+
 lemma rev_map: "rev (map f xs) = map f (rev xs)"
 by (induct xs) auto