8749
|
1 |
\begin{isabelle}%
|
|
2 |
\isanewline
|
9673
|
3 |
\isacommand{lemma}\ {\isachardoublequote}{\isacharparenleft}case\ xs\ of\ {\isacharbrackleft}{\isacharbrackright}\ {\isasymRightarrow}\ {\isacharbrackleft}{\isacharbrackright}\ {\isacharbar}\ y{\isacharhash}ys\ {\isasymRightarrow}\ xs{\isacharparenright}\ {\isacharequal}\ xs{\isachardoublequote}\isanewline
|
|
4 |
\isacommand{apply}{\isacharparenleft}case{\isacharunderscore}tac\ xs{\isacharparenright}%
|
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}%
|
9673
|
14 |
\isacommand{by}{\isacharparenleft}auto{\isacharparenright}\isanewline
|
8749
|
15 |
\end{isabelle}%
|
9145
|
16 |
%%% Local Variables:
|
|
17 |
%%% mode: latex
|
|
18 |
%%% TeX-master: "root"
|
|
19 |
%%% End:
|