doc-src/TutorialI/Misc/document/case_exprs.tex
author wenzelm
Mon, 08 Nov 2010 00:00:47 +0100
changeset 40406 313a24b66a8d
parent 25340 6a3b20f0ae61
permissions -rw-r--r--
updated generated files;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9742
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
     1
%
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
     2
\begin{isabellebody}%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
     3
\def\isabellecontext{case{\isaliteral{5F}{\isacharunderscore}}exprs}%
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
     4
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
     5
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
     6
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
     7
\endisadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
     8
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
     9
\isatagtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    10
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    11
\endisatagtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    12
{\isafoldtheory}%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    13
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    14
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    15
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    16
\endisadelimtheory
9742
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
    17
%
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
    18
\begin{isamarkuptext}%
25340
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    19
\subsection{Case Expressions}
11456
7eb63f63e6c6 revisions and indexing
paulson
parents: 11428
diff changeset
    20
\label{sec:case-expressions}\index{*case expressions}%
7eb63f63e6c6 revisions and indexing
paulson
parents: 11428
diff changeset
    21
HOL also features \isa{case}-expressions for analyzing
9742
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
    22
elements of a datatype. For example,
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
    23
\begin{isabelle}%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
    24
\ \ \ \ \ case\ xs\ of\ {\isaliteral{5B}{\isacharbrackleft}}{\isaliteral{5D}{\isacharbrackright}}\ {\isaliteral{5C3C52696768746172726F773E}{\isasymRightarrow}}\ {\isaliteral{5B}{\isacharbrackleft}}{\isaliteral{5D}{\isacharbrackright}}\ {\isaliteral{7C}{\isacharbar}}\ y\ {\isaliteral{23}{\isacharhash}}\ ys\ {\isaliteral{5C3C52696768746172726F773E}{\isasymRightarrow}}\ y%
9924
3370f6aa3200 updated;
wenzelm
parents: 9834
diff changeset
    25
\end{isabelle}
40406
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
    26
evaluates to \isa{{\isaliteral{5B}{\isacharbrackleft}}{\isaliteral{5D}{\isacharbrackright}}} if \isa{xs} is \isa{{\isaliteral{5B}{\isacharbrackleft}}{\isaliteral{5D}{\isacharbrackright}}} and to \isa{y} if 
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
    27
\isa{xs} is \isa{y\ {\isaliteral{23}{\isacharhash}}\ ys}. (Since the result in both branches must be of
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
    28
the same type, it follows that \isa{y} is of type \isa{{\isaliteral{27}{\isacharprime}}a\ list} and hence
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
    29
that \isa{xs} is of type \isa{{\isaliteral{27}{\isacharprime}}a\ list\ list}.)
9742
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
    30
25340
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    31
In general, case expressions are of the form
9742
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
    32
\[
25340
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    33
\begin{array}{c}
40406
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
    34
\isa{case}~e~\isa{of}\ pattern@1~\isa{{\isaliteral{5C3C52696768746172726F773E}{\isasymRightarrow}}}~e@1\ \isa{{\isaliteral{7C}{\isacharbar}}}\ \dots\
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
    35
 \isa{{\isaliteral{7C}{\isacharbar}}}~pattern@m~\isa{{\isaliteral{5C3C52696768746172726F773E}{\isasymRightarrow}}}~e@m
9742
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
    36
\end{array}
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
    37
\]
25340
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    38
Like in functional programming, patterns are expressions consisting of
40406
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
    39
datatype constructors (e.g. \isa{{\isaliteral{5B}{\isacharbrackleft}}{\isaliteral{5D}{\isacharbrackright}}} and \isa{{\isaliteral{23}{\isacharhash}}})
25340
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    40
and variables, including the wildcard ``\verb$_$''.
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    41
Not all cases need to be covered and the order of cases matters.
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    42
However, one is well-advised not to wallow in complex patterns because
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    43
complex case distinctions tend to induce complex proofs.
9742
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
    44
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
    45
\begin{warn}
25340
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    46
Internally Isabelle only knows about exhaustive case expressions with
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    47
non-nested patterns: $pattern@i$ must be of the form
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    48
$C@i~x@ {i1}~\dots~x@ {ik@i}$ and $C@1, \dots, C@m$ must be exactly the
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    49
constructors of the type of $e$.
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    50
%
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    51
More complex case expressions are automatically
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    52
translated into the simpler form upon parsing but are not translated
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    53
back for printing. This may lead to surprising output.
9742
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
    54
\end{warn}
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
    55
25340
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    56
\begin{warn}
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    57
Like \isa{if}, \isa{case}-expressions may need to be enclosed in
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    58
parentheses to indicate their scope.
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    59
\end{warn}
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    60
6a3b20f0ae61 new general syntax
nipkow
parents: 22795
diff changeset
    61
\subsection{Structural Induction and Case Distinction}
10824
4a212e635318 *** empty log message ***
nipkow
parents: 10420
diff changeset
    62
\label{sec:struct-ind-case}
11456
7eb63f63e6c6 revisions and indexing
paulson
parents: 11428
diff changeset
    63
\index{case distinctions}\index{induction!structural}%
7eb63f63e6c6 revisions and indexing
paulson
parents: 11428
diff changeset
    64
Induction is invoked by \methdx{induct_tac}, as we have seen above; 
7eb63f63e6c6 revisions and indexing
paulson
parents: 11428
diff changeset
    65
it works for any datatype.  In some cases, induction is overkill and a case
7eb63f63e6c6 revisions and indexing
paulson
parents: 11428
diff changeset
    66
distinction over all constructors of the datatype suffices.  This is performed
7eb63f63e6c6 revisions and indexing
paulson
parents: 11428
diff changeset
    67
by \methdx{case_tac}.  Here is a trivial example:%
9742
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
    68
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    69
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    70
\isacommand{lemma}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
    71
\ {\isaliteral{22}{\isachardoublequoteopen}}{\isaliteral{28}{\isacharparenleft}}case\ xs\ of\ {\isaliteral{5B}{\isacharbrackleft}}{\isaliteral{5D}{\isacharbrackright}}\ {\isaliteral{5C3C52696768746172726F773E}{\isasymRightarrow}}\ {\isaliteral{5B}{\isacharbrackleft}}{\isaliteral{5D}{\isacharbrackright}}\ {\isaliteral{7C}{\isacharbar}}\ y{\isaliteral{23}{\isacharhash}}ys\ {\isaliteral{5C3C52696768746172726F773E}{\isasymRightarrow}}\ xs{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{3D}{\isacharequal}}\ xs{\isaliteral{22}{\isachardoublequoteclose}}\isanewline
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    72
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    73
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    74
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    75
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    76
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    77
\isatagproof
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    78
\isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
    79
{\isaliteral{28}{\isacharparenleft}}case{\isaliteral{5F}{\isacharunderscore}}tac\ xs{\isaliteral{29}{\isacharparenright}}%
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15481
diff changeset
    80
\begin{isamarkuptxt}%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15481
diff changeset
    81
\noindent
3f2a9f400168 *** empty log message ***
nipkow
parents: 15481
diff changeset
    82
results in the proof state
3f2a9f400168 *** empty log message ***
nipkow
parents: 15481
diff changeset
    83
\begin{isabelle}%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
    84
\ {\isadigit{1}}{\isaliteral{2E}{\isachardot}}\ xs\ {\isaliteral{3D}{\isacharequal}}\ {\isaliteral{5B}{\isacharbrackleft}}{\isaliteral{5D}{\isacharbrackright}}\ {\isaliteral{5C3C4C6F6E6772696768746172726F773E}{\isasymLongrightarrow}}\ {\isaliteral{28}{\isacharparenleft}}case\ xs\ of\ {\isaliteral{5B}{\isacharbrackleft}}{\isaliteral{5D}{\isacharbrackright}}\ {\isaliteral{5C3C52696768746172726F773E}{\isasymRightarrow}}\ {\isaliteral{5B}{\isacharbrackleft}}{\isaliteral{5D}{\isacharbrackright}}\ {\isaliteral{7C}{\isacharbar}}\ y\ {\isaliteral{23}{\isacharhash}}\ ys\ {\isaliteral{5C3C52696768746172726F773E}{\isasymRightarrow}}\ xs{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{3D}{\isacharequal}}\ xs\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
    85
\ {\isadigit{2}}{\isaliteral{2E}{\isachardot}}\ {\isaliteral{5C3C416E643E}{\isasymAnd}}a\ list{\isaliteral{2E}{\isachardot}}\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
    86
\isaindent{\ {\isadigit{2}}{\isaliteral{2E}{\isachardot}}\ \ \ \ }xs\ {\isaliteral{3D}{\isacharequal}}\ a\ {\isaliteral{23}{\isacharhash}}\ list\ {\isaliteral{5C3C4C6F6E6772696768746172726F773E}{\isasymLongrightarrow}}\ {\isaliteral{28}{\isacharparenleft}}case\ xs\ of\ {\isaliteral{5B}{\isacharbrackleft}}{\isaliteral{5D}{\isacharbrackright}}\ {\isaliteral{5C3C52696768746172726F773E}{\isasymRightarrow}}\ {\isaliteral{5B}{\isacharbrackleft}}{\isaliteral{5D}{\isacharbrackright}}\ {\isaliteral{7C}{\isacharbar}}\ y\ {\isaliteral{23}{\isacharhash}}\ ys\ {\isaliteral{5C3C52696768746172726F773E}{\isasymRightarrow}}\ xs{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{3D}{\isacharequal}}\ xs%
16069
3f2a9f400168 *** empty log message ***
nipkow
parents: 15481
diff changeset
    87
\end{isabelle}
3f2a9f400168 *** empty log message ***
nipkow
parents: 15481
diff changeset
    88
which is solved automatically:%
3f2a9f400168 *** empty log message ***
nipkow
parents: 15481
diff changeset
    89
\end{isamarkuptxt}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    90
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    91
\isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
    92
{\isaliteral{28}{\isacharparenleft}}auto{\isaliteral{29}{\isacharparenright}}%
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    93
\endisatagproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    94
{\isafoldproof}%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    95
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    96
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    97
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    98
\endisadelimproof
11866
fbd097aec213 updated;
wenzelm
parents: 11708
diff changeset
    99
%
9742
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
   100
\begin{isamarkuptext}%
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
   101
Note that we do not need to give a lemma a name if we do not intend to refer
10824
4a212e635318 *** empty log message ***
nipkow
parents: 10420
diff changeset
   102
to it explicitly in the future.
11456
7eb63f63e6c6 revisions and indexing
paulson
parents: 11428
diff changeset
   103
Other basic laws about a datatype are applied automatically during
7eb63f63e6c6 revisions and indexing
paulson
parents: 11428
diff changeset
   104
simplification, so no special methods are provided for them.
10824
4a212e635318 *** empty log message ***
nipkow
parents: 10420
diff changeset
   105
4a212e635318 *** empty log message ***
nipkow
parents: 10420
diff changeset
   106
\begin{warn}
4a212e635318 *** empty log message ***
nipkow
parents: 10420
diff changeset
   107
  Induction is only allowed on free (or \isasymAnd-bound) variables that
4a212e635318 *** empty log message ***
nipkow
parents: 10420
diff changeset
   108
  should not occur among the assumptions of the subgoal; see
4a212e635318 *** empty log message ***
nipkow
parents: 10420
diff changeset
   109
  \S\ref{sec:ind-var-in-prems} for details. Case distinction
40406
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
   110
  (\isa{case{\isaliteral{5F}{\isacharunderscore}}tac}) works for arbitrary terms, which need to be
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
   111
  quoted if they are non-atomic. However, apart from \isa{{\isaliteral{5C3C416E643E}{\isasymAnd}}}-bound
10824
4a212e635318 *** empty log message ***
nipkow
parents: 10420
diff changeset
   112
  variables, the terms must not contain variables that are bound outside.
40406
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
   113
  For example, given the goal \isa{{\isaliteral{5C3C666F72616C6C3E}{\isasymforall}}xs{\isaliteral{2E}{\isachardot}}\ xs\ {\isaliteral{3D}{\isacharequal}}\ {\isaliteral{5B}{\isacharbrackleft}}{\isaliteral{5D}{\isacharbrackright}}\ {\isaliteral{5C3C6F723E}{\isasymor}}\ {\isaliteral{28}{\isacharparenleft}}{\isaliteral{5C3C6578697374733E}{\isasymexists}}y\ ys{\isaliteral{2E}{\isachardot}}\ xs\ {\isaliteral{3D}{\isacharequal}}\ y\ {\isaliteral{23}{\isacharhash}}\ ys{\isaliteral{29}{\isacharparenright}}},
313a24b66a8d updated generated files;
wenzelm
parents: 25340
diff changeset
   114
  \isa{case{\isaliteral{5F}{\isacharunderscore}}tac\ xs} will not work as expected because Isabelle interprets
10824
4a212e635318 *** empty log message ***
nipkow
parents: 10420
diff changeset
   115
  the \isa{xs} as a new free variable distinct from the bound
4a212e635318 *** empty log message ***
nipkow
parents: 10420
diff changeset
   116
  \isa{xs} in the goal.
4a212e635318 *** empty log message ***
nipkow
parents: 10420
diff changeset
   117
\end{warn}%
9742
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
   118
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   119
\isamarkuptrue%
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   120
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   121
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   122
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   123
\endisadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   124
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   125
\isatagtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   126
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   127
\endisatagtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   128
{\isafoldtheory}%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   129
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   130
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   131
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
   132
\endisadelimtheory
9742
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
   133
\end{isabellebody}%
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
   134
%%% Local Variables:
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
   135
%%% mode: latex
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
   136
%%% TeX-master: "root"
98d3ca2c18f7 *** empty log message ***
nipkow
parents:
diff changeset
   137
%%% End: