doc-src/TutorialI/document/natsum.tex
author ballarin
Wed, 15 Aug 2012 23:06:17 +0200
changeset 48824 45d0e40b07af
parent 48519 5deda0549f97
permissions -rw-r--r--
Clarification: free variables allowed in interpreted locale instances.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9722
a5f86aed785b *** empty log message ***
nipkow
parents: 9721
diff changeset
     1
%
a5f86aed785b *** empty log message ***
nipkow
parents: 9721
diff changeset
     2
\begin{isabellebody}%
9924
3370f6aa3200 updated;
wenzelm
parents: 9834
diff changeset
     3
\def\isabellecontext{natsum}%
17056
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
     4
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
     5
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
     6
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
     7
\endisadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
     8
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
     9
\isatagtheory
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    10
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    11
\endisatagtheory
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    12
{\isafoldtheory}%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    13
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    14
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    15
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    16
\endisadelimtheory
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    17
%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    18
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    19
\noindent
9541
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
    20
In particular, there are \isa{case}-expressions, for example
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
    21
\begin{isabelle}%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    22
\ \ \ \ \ case\ n\ of\ {\isadigit{0}}\ {\isaliteral{5C3C52696768746172726F773E}{\isasymRightarrow}}\ {\isadigit{0}}\ {\isaliteral{7C}{\isacharbar}}\ Suc\ m\ {\isaliteral{5C3C52696768746172726F773E}{\isasymRightarrow}}\ m%
9924
3370f6aa3200 updated;
wenzelm
parents: 9834
diff changeset
    23
\end{isabelle}
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    24
primitive recursion, for example%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    25
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    26
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    27
\isacommand{primrec}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    28
\ sum\ {\isaliteral{3A}{\isacharcolon}}{\isaliteral{3A}{\isacharcolon}}\ {\isaliteral{22}{\isachardoublequoteopen}}nat\ {\isaliteral{5C3C52696768746172726F773E}{\isasymRightarrow}}\ nat{\isaliteral{22}{\isachardoublequoteclose}}\ \isakeyword{where}\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    29
{\isaliteral{22}{\isachardoublequoteopen}}sum\ {\isadigit{0}}\ {\isaliteral{3D}{\isacharequal}}\ {\isadigit{0}}{\isaliteral{22}{\isachardoublequoteclose}}\ {\isaliteral{7C}{\isacharbar}}\isanewline
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    30
{\isaliteral{22}{\isachardoublequoteopen}}sum\ {\isaliteral{28}{\isacharparenleft}}Suc\ n{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{3D}{\isacharequal}}\ Suc\ n\ {\isaliteral{2B}{\isacharplus}}\ sum\ n{\isaliteral{22}{\isachardoublequoteclose}}%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    31
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    32
\noindent
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    33
and induction, for example%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    34
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    35
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    36
\isacommand{lemma}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    37
\ {\isaliteral{22}{\isachardoublequoteopen}}sum\ n\ {\isaliteral{2B}{\isacharplus}}\ sum\ n\ {\isaliteral{3D}{\isacharequal}}\ n{\isaliteral{2A}{\isacharasterisk}}{\isaliteral{28}{\isacharparenleft}}Suc\ n{\isaliteral{29}{\isacharparenright}}{\isaliteral{22}{\isachardoublequoteclose}}\isanewline
17056
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    38
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    39
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    40
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    41
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    42
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    43
\isatagproof
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    44
\isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    45
{\isaliteral{28}{\isacharparenleft}}induct{\isaliteral{5F}{\isacharunderscore}}tac\ n{\isaliteral{29}{\isacharparenright}}\isanewline
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    46
\isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    47
{\isaliteral{28}{\isacharparenleft}}auto{\isaliteral{29}{\isacharparenright}}\isanewline
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    48
\isacommand{done}\isamarkupfalse%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    49
%
17056
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    50
\endisatagproof
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    51
{\isafoldproof}%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    52
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    53
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    54
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
    55
\endisadelimproof
11866
fbd097aec213 updated;
wenzelm
parents: 11708
diff changeset
    56
%
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    57
\begin{isamarkuptext}%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    58
\newcommand{\mystar}{*%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    59
}
11456
7eb63f63e6c6 revisions and indexing
paulson
parents: 11428
diff changeset
    60
\index{arithmetic operations!for \protect\isa{nat}}%
15364
0c3891c3528f *** empty log message ***
nipkow
parents: 13996
diff changeset
    61
The arithmetic operations \isadxboldpos{+}{$HOL2arithfun},
0c3891c3528f *** empty log message ***
nipkow
parents: 13996
diff changeset
    62
\isadxboldpos{-}{$HOL2arithfun}, \isadxboldpos{\mystar}{$HOL2arithfun},
11428
332347b9b942 tidying the index
paulson
parents: 11418
diff changeset
    63
\sdx{div}, \sdx{mod}, \cdx{min} and
332347b9b942 tidying the index
paulson
parents: 11418
diff changeset
    64
\cdx{max} are predefined, as are the relations
15364
0c3891c3528f *** empty log message ***
nipkow
parents: 13996
diff changeset
    65
\isadxboldpos{\isasymle}{$HOL2arithrel} and
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    66
\isadxboldpos{<}{$HOL2arithrel}. As usual, \isa{m\ {\isaliteral{2D}{\isacharminus}}\ n\ {\isaliteral{3D}{\isacharequal}}\ {\isadigit{0}}} if
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    67
\isa{m\ {\isaliteral{3C}{\isacharless}}\ n}. There is even a least number operation
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    68
\sdx{LEAST}\@.  For example, \isa{{\isaliteral{28}{\isacharparenleft}}LEAST\ n{\isaliteral{2E}{\isachardot}}\ {\isadigit{0}}\ {\isaliteral{3C}{\isacharless}}\ n{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{3D}{\isacharequal}}\ Suc\ {\isadigit{0}}}.
11456
7eb63f63e6c6 revisions and indexing
paulson
parents: 11428
diff changeset
    69
\begin{warn}\index{overloading}
12327
5a4d78204492 *** empty log message ***
nipkow
parents: 11866
diff changeset
    70
  The constants \cdx{0} and \cdx{1} and the operations
15364
0c3891c3528f *** empty log message ***
nipkow
parents: 13996
diff changeset
    71
  \isadxboldpos{+}{$HOL2arithfun}, \isadxboldpos{-}{$HOL2arithfun},
0c3891c3528f *** empty log message ***
nipkow
parents: 13996
diff changeset
    72
  \isadxboldpos{\mystar}{$HOL2arithfun}, \cdx{min},
0c3891c3528f *** empty log message ***
nipkow
parents: 13996
diff changeset
    73
  \cdx{max}, \isadxboldpos{\isasymle}{$HOL2arithrel} and
0c3891c3528f *** empty log message ***
nipkow
parents: 13996
diff changeset
    74
  \isadxboldpos{<}{$HOL2arithrel} are overloaded: they are available
12332
aea72a834c85 *** empty log message ***
nipkow
parents: 12328
diff changeset
    75
  not just for natural numbers but for other types as well.
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    76
  For example, given the goal \isa{x\ {\isaliteral{2B}{\isacharplus}}\ {\isadigit{0}}\ {\isaliteral{3D}{\isacharequal}}\ x}, there is nothing to indicate
12327
5a4d78204492 *** empty log message ***
nipkow
parents: 11866
diff changeset
    77
  that you are talking about natural numbers. Hence Isabelle can only infer
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    78
  that \isa{x} is of some arbitrary type where \isa{{\isadigit{0}}} and \isa{{\isaliteral{2B}{\isacharplus}}} are
12327
5a4d78204492 *** empty log message ***
nipkow
parents: 11866
diff changeset
    79
  declared. As a consequence, you will be unable to prove the
5a4d78204492 *** empty log message ***
nipkow
parents: 11866
diff changeset
    80
  goal. To alert you to such pitfalls, Isabelle flags numerals without a
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    81
  fixed type in its output: \isa{x\ {\isaliteral{2B}{\isacharplus}}\ {\isaliteral{28}{\isacharparenleft}}{\isadigit{0}}{\isaliteral{5C3C436F6C6F6E3E}{\isasymColon}}{\isaliteral{27}{\isacharprime}}a{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{3D}{\isacharequal}}\ x}. (In the absence of a numeral,
16523
f8a734dc0fbc *** empty log message ***
nipkow
parents: 16069
diff changeset
    82
  it may take you some time to realize what has happened if \pgmenu{Show
f8a734dc0fbc *** empty log message ***
nipkow
parents: 16069
diff changeset
    83
  Types} is not set).  In this particular example, you need to include
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    84
  an explicit type constraint, for example \isa{x{\isaliteral{2B}{\isacharplus}}{\isadigit{0}}\ {\isaliteral{3D}{\isacharequal}}\ {\isaliteral{28}{\isacharparenleft}}x{\isaliteral{3A}{\isacharcolon}}{\isaliteral{3A}{\isacharcolon}}nat{\isaliteral{29}{\isacharparenright}}}. If there
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    85
  is enough contextual information this may not be necessary: \isa{Suc\ x\ {\isaliteral{3D}{\isacharequal}}\ x} automatically implies \isa{x{\isaliteral{3A}{\isacharcolon}}{\isaliteral{3A}{\isacharcolon}}nat} because \isa{Suc} is not
12327
5a4d78204492 *** empty log message ***
nipkow
parents: 11866
diff changeset
    86
  overloaded.
10978
5eebea8f359f *** empty log message ***
nipkow
parents: 10971
diff changeset
    87
12327
5a4d78204492 *** empty log message ***
nipkow
parents: 11866
diff changeset
    88
  For details on overloading see \S\ref{sec:overloading}.
5a4d78204492 *** empty log message ***
nipkow
parents: 11866
diff changeset
    89
  Table~\ref{tab:overloading} in the appendix shows the most important
5a4d78204492 *** empty log message ***
nipkow
parents: 11866
diff changeset
    90
  overloaded operations.
5a4d78204492 *** empty log message ***
nipkow
parents: 11866
diff changeset
    91
\end{warn}
5a4d78204492 *** empty log message ***
nipkow
parents: 11866
diff changeset
    92
\begin{warn}
15364
0c3891c3528f *** empty log message ***
nipkow
parents: 13996
diff changeset
    93
  The symbols \isadxboldpos{>}{$HOL2arithrel} and
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    94
  \isadxboldpos{\isasymge}{$HOL2arithrel} are merely syntax: \isa{x\ {\isaliteral{3E}{\isachargreater}}\ y}
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    95
  stands for \isa{y\ {\isaliteral{3C}{\isacharless}}\ x} and similary for \isa{{\isaliteral{5C3C67653E}{\isasymge}}} and
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    96
  \isa{{\isaliteral{5C3C6C653E}{\isasymle}}}.
15364
0c3891c3528f *** empty log message ***
nipkow
parents: 13996
diff changeset
    97
\end{warn}
0c3891c3528f *** empty log message ***
nipkow
parents: 13996
diff changeset
    98
\begin{warn}
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
    99
  Constant \isa{{\isadigit{1}}{\isaliteral{3A}{\isacharcolon}}{\isaliteral{3A}{\isacharcolon}}nat} is defined to equal \isa{Suc\ {\isadigit{0}}}. This definition
12327
5a4d78204492 *** empty log message ***
nipkow
parents: 11866
diff changeset
   100
  (see \S\ref{sec:ConstDefinitions}) is unfolded automatically by some
5a4d78204492 *** empty log message ***
nipkow
parents: 11866
diff changeset
   101
  tactics (like \isa{auto}, \isa{simp} and \isa{arith}) but not by
5a4d78204492 *** empty log message ***
nipkow
parents: 11866
diff changeset
   102
  others (especially the single step tactics in Chapter~\ref{chap:rules}).
5a4d78204492 *** empty log message ***
nipkow
parents: 11866
diff changeset
   103
  If you need the full set of numerals, see~\S\ref{sec:numerals}.
12328
7c4ec77a8715 *** empty log message ***
nipkow
parents: 12327
diff changeset
   104
  \emph{Novices are advised to stick to \isa{{\isadigit{0}}} and \isa{Suc}.}
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
   105
\end{warn}
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
   106
11456
7eb63f63e6c6 revisions and indexing
paulson
parents: 11428
diff changeset
   107
Both \isa{auto} and \isa{simp}
7eb63f63e6c6 revisions and indexing
paulson
parents: 11428
diff changeset
   108
(a method introduced below, \S\ref{sec:Simplification}) prove 
7eb63f63e6c6 revisions and indexing
paulson
parents: 11428
diff changeset
   109
simple arithmetic goals automatically:%
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
   110
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   111
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   112
\isacommand{lemma}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
   113
\ {\isaliteral{22}{\isachardoublequoteopen}}{\isaliteral{5C3C6C6272616B6B3E}{\isasymlbrakk}}\ {\isaliteral{5C3C6E6F743E}{\isasymnot}}\ m\ {\isaliteral{3C}{\isacharless}}\ n{\isaliteral{3B}{\isacharsemicolon}}\ m\ {\isaliteral{3C}{\isacharless}}\ n\ {\isaliteral{2B}{\isacharplus}}\ {\isaliteral{28}{\isacharparenleft}}{\isadigit{1}}{\isaliteral{3A}{\isacharcolon}}{\isaliteral{3A}{\isacharcolon}}nat{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{5C3C726272616B6B3E}{\isasymrbrakk}}\ {\isaliteral{5C3C4C6F6E6772696768746172726F773E}{\isasymLongrightarrow}}\ m\ {\isaliteral{3D}{\isacharequal}}\ n{\isaliteral{22}{\isachardoublequoteclose}}%
17056
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   114
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   115
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   116
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   117
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   118
\isatagproof
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   119
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   120
\endisatagproof
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   121
{\isafoldproof}%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   122
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   123
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   124
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   125
\endisadelimproof
11866
fbd097aec213 updated;
wenzelm
parents: 11708
diff changeset
   126
%
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
   127
\begin{isamarkuptext}%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
   128
\noindent
11458
09a6c44a48ea numerous stylistic changes and indexing
paulson
parents: 11457
diff changeset
   129
For efficiency's sake, this built-in prover ignores quantified formulae,
16797
6109d4020420 auto update
paulson
parents: 16523
diff changeset
   130
many logical connectives, and all arithmetic operations apart from addition.
13181
dc393bbee6ce *** empty log message ***
nipkow
parents: 12699
diff changeset
   131
In consequence, \isa{auto} and \isa{simp} cannot prove this slightly more complex goal:%
11458
09a6c44a48ea numerous stylistic changes and indexing
paulson
parents: 11457
diff changeset
   132
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   133
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   134
\isacommand{lemma}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
   135
\ {\isaliteral{22}{\isachardoublequoteopen}}m\ {\isaliteral{5C3C6E6F7465713E}{\isasymnoteq}}\ {\isaliteral{28}{\isacharparenleft}}n{\isaliteral{3A}{\isacharcolon}}{\isaliteral{3A}{\isacharcolon}}nat{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{5C3C4C6F6E6772696768746172726F773E}{\isasymLongrightarrow}}\ m\ {\isaliteral{3C}{\isacharless}}\ n\ {\isaliteral{5C3C6F723E}{\isasymor}}\ n\ {\isaliteral{3C}{\isacharless}}\ m{\isaliteral{22}{\isachardoublequoteclose}}%
17056
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   136
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   137
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   138
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   139
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   140
\isatagproof
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   141
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   142
\endisatagproof
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   143
{\isafoldproof}%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   144
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   145
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   146
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   147
\endisadelimproof
11866
fbd097aec213 updated;
wenzelm
parents: 11708
diff changeset
   148
%
11458
09a6c44a48ea numerous stylistic changes and indexing
paulson
parents: 11457
diff changeset
   149
\begin{isamarkuptext}%
13996
a994b92ab1ea *** empty log message ***
nipkow
parents: 13791
diff changeset
   150
\noindent The method \methdx{arith} is more general.  It attempts to
a994b92ab1ea *** empty log message ***
nipkow
parents: 13791
diff changeset
   151
prove the first subgoal provided it is a \textbf{linear arithmetic} formula.
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
   152
Such formulas may involve the usual logical connectives (\isa{{\isaliteral{5C3C6E6F743E}{\isasymnot}}},
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
   153
\isa{{\isaliteral{5C3C616E643E}{\isasymand}}}, \isa{{\isaliteral{5C3C6F723E}{\isasymor}}}, \isa{{\isaliteral{5C3C6C6F6E6772696768746172726F773E}{\isasymlongrightarrow}}}, \isa{{\isaliteral{3D}{\isacharequal}}},
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
   154
\isa{{\isaliteral{5C3C666F72616C6C3E}{\isasymforall}}}, \isa{{\isaliteral{5C3C6578697374733E}{\isasymexists}}}), the relations \isa{{\isaliteral{3D}{\isacharequal}}},
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
   155
\isa{{\isaliteral{5C3C6C653E}{\isasymle}}} and \isa{{\isaliteral{3C}{\isacharless}}}, and the operations \isa{{\isaliteral{2B}{\isacharplus}}}, \isa{{\isaliteral{2D}{\isacharminus}}},
23059
e7cd9719dbc2 min/max
haftmann
parents: 22649
diff changeset
   156
\isa{min} and \isa{max}.  For example,%
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
   157
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   158
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   159
\isacommand{lemma}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
   160
\ {\isaliteral{22}{\isachardoublequoteopen}}min\ i\ {\isaliteral{28}{\isacharparenleft}}max\ j\ {\isaliteral{28}{\isacharparenleft}}k{\isaliteral{2A}{\isacharasterisk}}k{\isaliteral{29}{\isacharparenright}}{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{3D}{\isacharequal}}\ max\ {\isaliteral{28}{\isacharparenleft}}min\ {\isaliteral{28}{\isacharparenleft}}k{\isaliteral{2A}{\isacharasterisk}}k{\isaliteral{29}{\isacharparenright}}\ i{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{28}{\isacharparenleft}}min\ i\ {\isaliteral{28}{\isacharparenleft}}j{\isaliteral{3A}{\isacharcolon}}{\isaliteral{3A}{\isacharcolon}}nat{\isaliteral{29}{\isacharparenright}}{\isaliteral{29}{\isacharparenright}}{\isaliteral{22}{\isachardoublequoteclose}}\isanewline
17056
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   161
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   162
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   163
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   164
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   165
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   166
\isatagproof
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   167
\isacommand{apply}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
   168
{\isaliteral{28}{\isacharparenleft}}arith{\isaliteral{29}{\isacharparenright}}%
17056
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   169
\endisatagproof
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   170
{\isafoldproof}%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   171
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   172
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   173
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   174
\endisadelimproof
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   175
%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   176
\begin{isamarkuptext}%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   177
\noindent
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
   178
succeeds because \isa{k\ {\isaliteral{2A}{\isacharasterisk}}\ k} can be treated as atomic. In contrast,%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   179
\end{isamarkuptext}%
11866
fbd097aec213 updated;
wenzelm
parents: 11708
diff changeset
   180
\isamarkuptrue%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   181
\isacommand{lemma}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 27168
diff changeset
   182
\ {\isaliteral{22}{\isachardoublequoteopen}}n{\isaliteral{2A}{\isacharasterisk}}n\ {\isaliteral{3D}{\isacharequal}}\ n{\isaliteral{2B}{\isacharplus}}{\isadigit{1}}\ {\isaliteral{5C3C4C6F6E6772696768746172726F773E}{\isasymLongrightarrow}}\ n{\isaliteral{3D}{\isacharequal}}{\isadigit{0}}{\isaliteral{22}{\isachardoublequoteclose}}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   183
\isadelimproof
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   184
%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   185
\endisadelimproof
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   186
%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   187
\isatagproof
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   188
%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   189
\endisatagproof
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   190
{\isafoldproof}%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   191
%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   192
\isadelimproof
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   193
%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   194
\endisadelimproof
11866
fbd097aec213 updated;
wenzelm
parents: 11708
diff changeset
   195
%
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
   196
\begin{isamarkuptext}%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
   197
\noindent
27168
9a9cc62932d9 lemma modified
nipkow
parents: 27015
diff changeset
   198
is not proved by \isa{arith} because the proof relies 
13996
a994b92ab1ea *** empty log message ***
nipkow
parents: 13791
diff changeset
   199
on properties of multiplication. Only multiplication by numerals (which is
27168
9a9cc62932d9 lemma modified
nipkow
parents: 27015
diff changeset
   200
the same as iterated addition) is taken into account.
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
   201
13996
a994b92ab1ea *** empty log message ***
nipkow
parents: 13791
diff changeset
   202
\begin{warn} The running time of \isa{arith} is exponential in the number
a994b92ab1ea *** empty log message ***
nipkow
parents: 13791
diff changeset
   203
  of occurrences of \ttindexboldpos{-}{$HOL2arithfun}, \cdx{min} and
11428
332347b9b942 tidying the index
paulson
parents: 11418
diff changeset
   204
  \cdx{max} because they are first eliminated by case distinctions.
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
   205
13996
a994b92ab1ea *** empty log message ***
nipkow
parents: 13791
diff changeset
   206
If \isa{k} is a numeral, \sdx{div}~\isa{k}, \sdx{mod}~\isa{k} and
a994b92ab1ea *** empty log message ***
nipkow
parents: 13791
diff changeset
   207
\isa{k}~\sdx{dvd} are also supported, where the former two are eliminated
a994b92ab1ea *** empty log message ***
nipkow
parents: 13791
diff changeset
   208
by case distinctions, again blowing up the running time.
a994b92ab1ea *** empty log message ***
nipkow
parents: 13791
diff changeset
   209
16797
6109d4020420 auto update
paulson
parents: 16523
diff changeset
   210
If the formula involves quantifiers, \isa{arith} may take
13996
a994b92ab1ea *** empty log message ***
nipkow
parents: 13791
diff changeset
   211
super-exponential time and space.
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
   212
\end{warn}%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
   213
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
   214
\isamarkuptrue%
17056
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   215
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   216
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   217
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   218
\endisadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   219
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   220
\isatagtheory
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   221
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   222
\endisatagtheory
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   223
{\isafoldtheory}%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   224
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   225
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   226
%
05fc32a23b8b updated;
wenzelm
parents: 16797
diff changeset
   227
\endisadelimtheory
9722
a5f86aed785b *** empty log message ***
nipkow
parents: 9721
diff changeset
   228
\end{isabellebody}%
9145
9f7b8de5bfaf updated;
wenzelm
parents: 8749
diff changeset
   229
%%% Local Variables:
9f7b8de5bfaf updated;
wenzelm
parents: 8749
diff changeset
   230
%%% mode: latex
9f7b8de5bfaf updated;
wenzelm
parents: 8749
diff changeset
   231
%%% TeX-master: "root"
9f7b8de5bfaf updated;
wenzelm
parents: 8749
diff changeset
   232
%%% End: