doc-src/TutorialI/Misc/document/case_splits.tex
author wenzelm
Mon, 28 Aug 2000 15:13:55 +0200
changeset 9698 f0740137a65d
parent 9673 1b2d4f995b13
child 9717 699de91b15e2
permissions -rw-r--r--
updated;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     1
\begin{isabelle}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     2
%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     3
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     4
Goals containing \isaindex{if}-expressions are usually proved by case
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     5
distinction on the condition of the \isa{if}. For example the goal%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     6
\end{isamarkuptext}%
9673
1b2d4f995b13 updated;
wenzelm
parents: 9541
diff changeset
     7
\isacommand{lemma}\ {\isachardoublequote}{\isasymforall}xs{\isachardot}\ if\ xs\ {\isacharequal}\ {\isacharbrackleft}{\isacharbrackright}\ then\ rev\ xs\ {\isacharequal}\ {\isacharbrackleft}{\isacharbrackright}\ else\ rev\ xs\ {\isasymnoteq}\ {\isacharbrackleft}{\isacharbrackright}{\isachardoublequote}%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     8
\begin{isamarkuptxt}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     9
\noindent
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    10
can be split into
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    11
\begin{isabellepar}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    12
~1.~{\isasymforall}xs.~(xs~=~[]~{\isasymlongrightarrow}~rev~xs~=~[])~{\isasymand}~(xs~{\isasymnoteq}~[]~{\isasymlongrightarrow}~rev~xs~{\isasymnoteq}~[])%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    13
\end{isabellepar}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    14
by a degenerate form of simplification%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    15
\end{isamarkuptxt}%
9673
1b2d4f995b13 updated;
wenzelm
parents: 9541
diff changeset
    16
\isacommand{apply}{\isacharparenleft}simp\ only{\isacharcolon}\ split{\isacharcolon}\ split{\isacharunderscore}if{\isacharparenright}%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    17
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    18
\noindent
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    19
where no simplification rules are included (\isa{only:} is followed by the
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    20
empty list of theorems) but the rule \isaindexbold{split_if} for
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    21
splitting \isa{if}s is added (via the modifier \isa{split:}). Because
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    22
case-splitting on \isa{if}s is almost always the right proof strategy, the
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    23
simplifier performs it automatically. Try \isacommand{apply}\isa{(simp)}
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    24
on the initial goal above.
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    25
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    26
This splitting idea generalizes from \isa{if} to \isaindex{case}:%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    27
\end{isamarkuptext}%
9673
1b2d4f995b13 updated;
wenzelm
parents: 9541
diff changeset
    28
\isacommand{lemma}\ {\isachardoublequote}{\isacharparenleft}case\ xs\ of\ {\isacharbrackleft}{\isacharbrackright}\ {\isasymRightarrow}\ zs\ {\isacharbar}\ y{\isacharhash}ys\ {\isasymRightarrow}\ y{\isacharhash}{\isacharparenleft}ys{\isacharat}zs{\isacharparenright}{\isacharparenright}\ {\isacharequal}\ xs{\isacharat}zs{\isachardoublequote}%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    29
\begin{isamarkuptxt}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    30
\noindent
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    31
becomes
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    32
\begin{isabellepar}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    33
~1.~(xs~=~[]~{\isasymlongrightarrow}~zs~=~xs~@~zs)~{\isasymand}\isanewline
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    34
~~~~({\isasymforall}a~list.~xs~=~a~\#~list~{\isasymlongrightarrow}~a~\#~list~@~zs~=~xs~@~zs)%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    35
\end{isabellepar}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    36
by typing%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    37
\end{isamarkuptxt}%
9673
1b2d4f995b13 updated;
wenzelm
parents: 9541
diff changeset
    38
\isacommand{apply}{\isacharparenleft}simp\ only{\isacharcolon}\ split{\isacharcolon}\ list{\isachardot}split{\isacharparenright}%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    39
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    40
\noindent
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    41
In contrast to \isa{if}-expressions, the simplifier does not split
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    42
\isa{case}-expressions by default because this can lead to nontermination
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    43
in case of recursive datatypes. Again, if the \isa{only:} modifier is
8771
026f37a86ea7 *** empty log message ***
nipkow
parents: 8749
diff changeset
    44
dropped, the above goal is solved,%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    45
\end{isamarkuptext}%
9673
1b2d4f995b13 updated;
wenzelm
parents: 9541
diff changeset
    46
\isacommand{by}{\isacharparenleft}simp\ split{\isacharcolon}\ list{\isachardot}split{\isacharparenright}%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    47
\begin{isamarkuptext}%
8771
026f37a86ea7 *** empty log message ***
nipkow
parents: 8749
diff changeset
    48
\noindent%
026f37a86ea7 *** empty log message ***
nipkow
parents: 8749
diff changeset
    49
which \isacommand{apply}\isa{(simp)} alone will not do.
026f37a86ea7 *** empty log message ***
nipkow
parents: 8749
diff changeset
    50
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    51
In general, every datatype $t$ comes with a theorem
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    52
\isa{$t$.split} which can be declared to be a \bfindex{split rule} either
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    53
locally as above, or by giving it the \isa{split} attribute globally:%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    54
\end{isamarkuptext}%
9673
1b2d4f995b13 updated;
wenzelm
parents: 9541
diff changeset
    55
\isacommand{lemmas}\ {\isacharbrackleft}split{\isacharbrackright}\ {\isacharequal}\ list{\isachardot}split%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    56
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    57
\noindent
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    58
The \isa{split} attribute can be removed with the \isa{del} modifier,
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    59
either locally%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    60
\end{isamarkuptext}%
9673
1b2d4f995b13 updated;
wenzelm
parents: 9541
diff changeset
    61
\isacommand{apply}{\isacharparenleft}simp\ split\ del{\isacharcolon}\ split{\isacharunderscore}if{\isacharparenright}%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    62
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    63
\noindent
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    64
or globally:%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    65
\end{isamarkuptext}%
9673
1b2d4f995b13 updated;
wenzelm
parents: 9541
diff changeset
    66
\isacommand{lemmas}\ {\isacharbrackleft}split\ del{\isacharbrackright}\ {\isacharequal}\ list{\isachardot}split\isanewline
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    67
\end{isabelle}%
9145
9f7b8de5bfaf updated;
wenzelm
parents: 8771
diff changeset
    68
%%% Local Variables:
9f7b8de5bfaf updated;
wenzelm
parents: 8771
diff changeset
    69
%%% mode: latex
9f7b8de5bfaf updated;
wenzelm
parents: 8771
diff changeset
    70
%%% TeX-master: "root"
9f7b8de5bfaf updated;
wenzelm
parents: 8771
diff changeset
    71
%%% End: