diff -r 36b165788421 -r 9ed0548177fb doc-src/TutorialI/ToyList2/ToyList2 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/doc-src/TutorialI/ToyList2/ToyList2 Wed Apr 19 13:40:42 2000 +0200 @@ -0,0 +1,17 @@ +lemma app_Nil2 [simp]: "xs @ [] = xs"; +apply(induct_tac xs); +apply(auto).; + +lemma app_assoc [simp]: "(xs @ ys) @ zs = xs @ (ys @ zs)"; +apply(induct_tac xs); +apply(auto).; + +lemma rev_app [simp]: "rev(xs @ ys) = (rev ys) @ (rev xs)"; +apply(induct_tac xs); +apply(auto).; + +theorem rev_rev [simp]: "rev(rev xs) = xs"; +apply(induct_tac xs); +apply(auto).; + +end