doc-src/TutorialI/Misc/document/case_splits.tex
author wenzelm
Mon, 26 Jun 2000 11:21:49 +0200
changeset 9145 9f7b8de5bfaf
parent 8771 026f37a86ea7
child 9458 c613cd06d5cf
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}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     7
\isacommand{lemma}~{"}{\isasymforall}xs.~if~xs~=~[]~then~rev~xs~=~[]~else~rev~xs~{\isasymnoteq}~[]{"}%
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}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    16
\isacommand{apply}(simp~only:~split:~split\_if)%
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}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    28
\isacommand{lemma}~{"}(case~xs~of~[]~{\isasymRightarrow}~zs~|~y\#ys~{\isasymRightarrow}~y\#(ys@zs))~=~xs@zs{"}%
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}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    38
\isacommand{apply}(simp~only:~split:~list.split)%
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}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    46
\isacommand{apply}(simp~split:~list.split)\isacommand{.}%
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}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    55
\isacommand{theorems}~[split]~=~list.split%
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}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    61
\isacommand{apply}(simp~split~del:~split\_if)%
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}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    66
\isacommand{theorems}~[split~del]~=~list.split\isanewline
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: