--- 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