# HG changeset patch
# User kleing
# Date 1072219216 -3600
# Node ID 9cd4dea593e34fbfd81fa40ce9854ad316f4d066
# Parent  c817dd885a3204c3eb270f9770fcef8adf360763
list_all2_mono should not be [trans]

diff -r c817dd885a32 -r 9cd4dea593e3 src/HOL/List.thy
--- a/src/HOL/List.thy	Tue Dec 23 18:26:03 2003 +0100
+++ b/src/HOL/List.thy	Tue Dec 23 23:40:16 2003 +0100
@@ -1169,7 +1169,7 @@
   apply (case_tac n, simp, simp)
   done
 
-lemma list_all2_mono [trans, intro?]:
+lemma list_all2_mono [intro?]:
   "\<And>y. list_all2 P x y \<Longrightarrow> (\<And>x y. P x y \<Longrightarrow> Q x y) \<Longrightarrow> list_all2 Q x y"
   apply (induct x, simp)
   apply (case_tac y, auto)