doc-src/TutorialI/Misc/cases.thy
author nipkow
Wed, 19 Apr 2000 12:59:38 +0200
changeset 8749 2665170f104a
parent 8745 13b32661dde4
child 8771 026f37a86ea7
permissions -rw-r--r--
Adding generated files
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8745
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
     1
(*<*)
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
     2
theory "cases" = Main:;
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
     3
(*>*)
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
     4
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
     5
lemma "(case xs of [] \\<Rightarrow> [] | y#ys \\<Rightarrow> xs) = xs";
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
     6
apply(case_tac xs);
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
     7
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
     8
txt{*
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
     9
\begin{isabellepar}%
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
    10
~1.~xs~=~[]~{\isasymLongrightarrow}~(case~xs~of~[]~{\isasymRightarrow}~[]~|~y~\#~ys~{\isasymRightarrow}~xs)~=~xs\isanewline
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
    11
~2.~{\isasymAnd}a~list.~xs=a\#list~{\isasymLongrightarrow}~(case~xs~of~[]~{\isasymRightarrow}~[]~|~y\#ys~{\isasymRightarrow}~xs)~=~xs%
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
    12
\end{isabellepar}%
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
    13
*}
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
    14
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
    15
apply(auto).;
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
    16
(**)
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
    17
(*<*)
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
    18
end
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
    19
(*>*)