8749
|
1 |
\begin{isabelle}%
|
|
2 |
\isanewline
|
9541
|
3 |
\isacommand{lemma}\ {"}(case\ xs\ of\ []\ {\isasymRightarrow}\ []\ |\ y\#ys\ {\isasymRightarrow}\ xs)\ =\ xs{"}\isanewline
|
|
4 |
\isacommand{apply}(case\_tac\ xs)%
|
8749
|
5 |
\begin{isamarkuptxt}%
|
8771
|
6 |
\noindent
|
|
7 |
results in the proof state
|
8749
|
8 |
\begin{isabellepar}%
|
|
9 |
~1.~xs~=~[]~{\isasymLongrightarrow}~(case~xs~of~[]~{\isasymRightarrow}~[]~|~y~\#~ys~{\isasymRightarrow}~xs)~=~xs\isanewline
|
|
10 |
~2.~{\isasymAnd}a~list.~xs=a\#list~{\isasymLongrightarrow}~(case~xs~of~[]~{\isasymRightarrow}~[]~|~y\#ys~{\isasymRightarrow}~xs)~=~xs%
|
8771
|
11 |
\end{isabellepar}%
|
|
12 |
which is solved automatically:%
|
8749
|
13 |
\end{isamarkuptxt}%
|
9458
|
14 |
\isacommand{by}(auto)\isanewline
|
8749
|
15 |
\end{isabelle}%
|
9145
|
16 |
%%% Local Variables:
|
|
17 |
%%% mode: latex
|
|
18 |
%%% TeX-master: "root"
|
|
19 |
%%% End:
|