# HG changeset patch
# User kleing
# Date 1072252470 -3600
# Node ID fd063037fdf5fd4a50802fca077f6fc70f629f92
# Parent  9cd4dea593e34fbfd81fa40ce9854ad316f4d066
list_all2_nthD no good as [intro?]

diff -r 9cd4dea593e3 -r fd063037fdf5 src/HOL/List.thy
--- a/src/HOL/List.thy	Tue Dec 23 23:40:16 2003 +0100
+++ b/src/HOL/List.thy	Wed Dec 24 08:54:30 2003 +0100
@@ -1125,7 +1125,7 @@
   "length a = length b \<Longrightarrow> (\<And>n. n < length a \<Longrightarrow> P (a!n) (b!n)) \<Longrightarrow> list_all2 P a b"
   by (simp add: list_all2_conv_all_nth)
 
-lemma list_all2_nthD [intro?]:
+lemma list_all2_nthD:
   "\<lbrakk> list_all2 P xs ys; p < size xs \<rbrakk> \<Longrightarrow> P (xs!p) (ys!p)"
   by (simp add: list_all2_conv_all_nth)