doc-src/TutorialI/Misc/document/case_splits.tex
author nipkow
Wed, 19 Apr 2000 12:59:38 +0200
changeset 8749 2665170f104a
child 8771 026f37a86ea7
permissions -rw-r--r--
Adding generated files
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
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    44
dropped, the above goal is solved, which \isacommand{apply}\isa{(simp)}
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    45
alone will not do:%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    46
\end{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    47
\isacommand{apply}(simp~split:~list.split)\isacommand{.}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    48
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    49
In general, every datatype $t$ comes with a theorem
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    50
\isa{$t$.split} which can be declared to be a \bfindex{split rule} either
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    51
locally as above, or by giving it the \isa{split} attribute globally:%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    52
\end{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    53
\isacommand{theorems}~[split]~=~list.split%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    54
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    55
\noindent
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    56
The \isa{split} attribute can be removed with the \isa{del} modifier,
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    57
either locally%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    58
\end{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    59
\isacommand{apply}(simp~split~del:~split\_if)%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    60
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    61
\noindent
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    62
or globally:%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    63
\end{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    64
\isacommand{theorems}~[split~del]~=~list.split\isanewline
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    65
\end{isabelle}%