doc-src/TutorialI/Misc/document/natsum.tex
author paulson
Fri, 13 Jul 2001 17:58:39 +0200
changeset 11418 53a402c10ba9
parent 11216 279004936bb0
child 11428 332347b9b942
permissions -rw-r--r--
indexing tweaks
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}%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     4
%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     5
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     6
\noindent
9541
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
     7
In particular, there are \isa{case}-expressions, for example
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
     8
\begin{isabelle}%
10187
0376cccd9118 *** empty log message ***
nipkow
parents: 10171
diff changeset
     9
\ \ \ \ \ case\ n\ of\ {\isadigit{0}}\ {\isasymRightarrow}\ {\isadigit{0}}\ {\isacharbar}\ Suc\ m\ {\isasymRightarrow}\ m%
9924
3370f6aa3200 updated;
wenzelm
parents: 9834
diff changeset
    10
\end{isabelle}
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    11
primitive recursion, for example%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    12
\end{isamarkuptext}%
9673
1b2d4f995b13 updated;
wenzelm
parents: 9644
diff changeset
    13
\isacommand{consts}\ sum\ {\isacharcolon}{\isacharcolon}\ {\isachardoublequote}nat\ {\isasymRightarrow}\ nat{\isachardoublequote}\isanewline
10187
0376cccd9118 *** empty log message ***
nipkow
parents: 10171
diff changeset
    14
\isacommand{primrec}\ {\isachardoublequote}sum\ {\isadigit{0}}\ {\isacharequal}\ {\isadigit{0}}{\isachardoublequote}\isanewline
9673
1b2d4f995b13 updated;
wenzelm
parents: 9644
diff changeset
    15
\ \ \ \ \ \ \ \ {\isachardoublequote}sum\ {\isacharparenleft}Suc\ n{\isacharparenright}\ {\isacharequal}\ Suc\ n\ {\isacharplus}\ sum\ n{\isachardoublequote}%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    16
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    17
\noindent
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    18
and induction, for example%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    19
\end{isamarkuptext}%
9673
1b2d4f995b13 updated;
wenzelm
parents: 9644
diff changeset
    20
\isacommand{lemma}\ {\isachardoublequote}sum\ n\ {\isacharplus}\ sum\ n\ {\isacharequal}\ n{\isacharasterisk}{\isacharparenleft}Suc\ n{\isacharparenright}{\isachardoublequote}\isanewline
1b2d4f995b13 updated;
wenzelm
parents: 9644
diff changeset
    21
\isacommand{apply}{\isacharparenleft}induct{\isacharunderscore}tac\ n{\isacharparenright}\isanewline
10171
59d6633835fa *** empty log message ***
nipkow
parents: 9924
diff changeset
    22
\isacommand{apply}{\isacharparenleft}auto{\isacharparenright}\isanewline
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    23
\isacommand{done}%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    24
\begin{isamarkuptext}%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    25
\newcommand{\mystar}{*%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    26
}
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    27
The usual arithmetic operations \ttindexboldpos{+}{$HOL2arithfun},
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    28
\ttindexboldpos{-}{$HOL2arithfun}, \ttindexboldpos{\mystar}{$HOL2arithfun},
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    29
\isaindexbold{div}, \isaindexbold{mod}, \isaindexbold{min} and
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    30
\isaindexbold{max} are predefined, as are the relations
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    31
\indexboldpos{\isasymle}{$HOL2arithrel} and
10654
458068404143 *** empty log message ***
nipkow
parents: 10608
diff changeset
    32
\ttindexboldpos{<}{$HOL2arithrel}. As usual, \isa{m\ {\isacharminus}\ n\ {\isacharequal}\ {\isadigit{0}}} if
458068404143 *** empty log message ***
nipkow
parents: 10608
diff changeset
    33
\isa{m\ {\isacharless}\ n}. There is even a least number operation
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    34
\isaindexbold{LEAST}. For example, \isa{{\isacharparenleft}LEAST\ n{\isachardot}\ {\isadigit{1}}\ {\isacharless}\ n{\isacharparenright}\ {\isacharequal}\ {\isadigit{2}}}, although
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    35
Isabelle does not prove this completely automatically. Note that \isa{{\isadigit{1}}}
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    36
and \isa{{\isadigit{2}}} are available as abbreviations for the corresponding
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    37
\isa{Suc}-expressions. If you need the full set of numerals,
10608
620647438780 *** empty log message ***
nipkow
parents: 10538
diff changeset
    38
see~\S\ref{sec:numerals}.
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    39
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    40
\begin{warn}
11418
53a402c10ba9 indexing tweaks
paulson
parents: 11216
diff changeset
    41
  The constant \cdx{0} and the operations
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    42
  \ttindexboldpos{+}{$HOL2arithfun}, \ttindexboldpos{-}{$HOL2arithfun},
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    43
  \ttindexboldpos{\mystar}{$HOL2arithfun}, \isaindexbold{min},
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    44
  \isaindexbold{max}, \indexboldpos{\isasymle}{$HOL2arithrel} and
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    45
  \ttindexboldpos{<}{$HOL2arithrel} are overloaded, i.e.\ they are available
10978
5eebea8f359f *** empty log message ***
nipkow
parents: 10971
diff changeset
    46
  not just for natural numbers but at other types as well.
5eebea8f359f *** empty log message ***
nipkow
parents: 10971
diff changeset
    47
  For example, given the goal \isa{x\ {\isacharplus}\ {\isadigit{0}}\ {\isacharequal}\ x},
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    48
  there is nothing to indicate that you are talking about natural numbers.
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    49
  Hence Isabelle can only infer that \isa{x} is of some arbitrary type where
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    50
  \isa{{\isadigit{0}}} and \isa{{\isacharplus}} are declared. As a consequence, you will be unable
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    51
  to prove the goal (although it may take you some time to realize what has
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    52
  happened if \isa{show{\isacharunderscore}types} is not set).  In this particular example,
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    53
  you need to include an explicit type constraint, for example
10788
ea48dd8b0232 *** empty log message ***
nipkow
parents: 10654
diff changeset
    54
  \isa{x{\isacharplus}{\isadigit{0}}\ {\isacharequal}\ {\isacharparenleft}x{\isacharcolon}{\isacharcolon}nat{\isacharparenright}}. If there is enough contextual information this
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    55
  may not be necessary: \isa{Suc\ x\ {\isacharequal}\ x} automatically implies
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    56
  \isa{x{\isacharcolon}{\isacharcolon}nat} because \isa{Suc} is not overloaded.
10978
5eebea8f359f *** empty log message ***
nipkow
parents: 10971
diff changeset
    57
5eebea8f359f *** empty log message ***
nipkow
parents: 10971
diff changeset
    58
  For details see \S\ref{sec:numbers} and \S\ref{sec:overloading};
5eebea8f359f *** empty log message ***
nipkow
parents: 10971
diff changeset
    59
  Table~\ref{tab:overloading} in the appendix shows the most important overloaded
5eebea8f359f *** empty log message ***
nipkow
parents: 10971
diff changeset
    60
  operations.
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    61
\end{warn}
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    62
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    63
Simple arithmetic goals are proved automatically by both \isa{auto} and the
11216
279004936bb0 *** empty log message ***
nipkow
parents: 10978
diff changeset
    64
simplification method introduced in \S\ref{sec:Simplification}.  For
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    65
example,%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    66
\end{isamarkuptext}%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    67
\isacommand{lemma}\ {\isachardoublequote}{\isasymlbrakk}\ {\isasymnot}\ m\ {\isacharless}\ n{\isacharsemicolon}\ m\ {\isacharless}\ n{\isacharplus}{\isadigit{1}}\ {\isasymrbrakk}\ {\isasymLongrightarrow}\ m\ {\isacharequal}\ n{\isachardoublequote}%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    68
\begin{isamarkuptext}%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    69
\noindent
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    70
is proved automatically. The main restriction is that only addition is taken
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    71
into account; other arithmetic operations and quantified formulae are ignored.
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    72
11418
53a402c10ba9 indexing tweaks
paulson
parents: 11216
diff changeset
    73
For more complex goals, there is the special method \methdx{arith}
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    74
(which attacks the first subgoal). It proves arithmetic goals involving the
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    75
usual logical connectives (\isa{{\isasymnot}}, \isa{{\isasymand}}, \isa{{\isasymor}},
10971
6852682eaf16 *** empty log message ***
nipkow
parents: 10788
diff changeset
    76
\isa{{\isasymlongrightarrow}}), the relations \isa{{\isacharequal}}, \isa{{\isasymle}} and \isa{{\isacharless}},
6852682eaf16 *** empty log message ***
nipkow
parents: 10788
diff changeset
    77
and the operations
10654
458068404143 *** empty log message ***
nipkow
parents: 10608
diff changeset
    78
\isa{{\isacharplus}}, \isa{{\isacharminus}}, \isa{min} and \isa{max}. Technically, this is
458068404143 *** empty log message ***
nipkow
parents: 10608
diff changeset
    79
known as the class of (quantifier free) \bfindex{linear arithmetic} formulae.
458068404143 *** empty log message ***
nipkow
parents: 10608
diff changeset
    80
For example,%
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    81
\end{isamarkuptext}%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    82
\isacommand{lemma}\ {\isachardoublequote}min\ i\ {\isacharparenleft}max\ j\ {\isacharparenleft}k{\isacharasterisk}k{\isacharparenright}{\isacharparenright}\ {\isacharequal}\ max\ {\isacharparenleft}min\ {\isacharparenleft}k{\isacharasterisk}k{\isacharparenright}\ i{\isacharparenright}\ {\isacharparenleft}min\ i\ {\isacharparenleft}j{\isacharcolon}{\isacharcolon}nat{\isacharparenright}{\isacharparenright}{\isachardoublequote}\isanewline
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    83
\isacommand{apply}{\isacharparenleft}arith{\isacharparenright}%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    84
\begin{isamarkuptext}%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    85
\noindent
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    86
succeeds because \isa{k\ {\isacharasterisk}\ k} can be treated as atomic. In contrast,%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    87
\end{isamarkuptext}%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    88
\isacommand{lemma}\ {\isachardoublequote}n{\isacharasterisk}n\ {\isacharequal}\ n\ {\isasymLongrightarrow}\ n{\isacharequal}{\isadigit{0}}\ {\isasymor}\ n{\isacharequal}{\isadigit{1}}{\isachardoublequote}%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    89
\begin{isamarkuptext}%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    90
\noindent
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    91
is not even proved by \isa{arith} because the proof relies essentially
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    92
on properties of multiplication.
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    93
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    94
\begin{warn}
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    95
  The running time of \isa{arith} is exponential in the number of occurrences
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    96
  of \ttindexboldpos{-}{$HOL2arithfun}, \isaindexbold{min} and
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    97
  \isaindexbold{max} because they are first eliminated by case distinctions.
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
    98
10654
458068404143 *** empty log message ***
nipkow
parents: 10608
diff changeset
    99
  \isa{arith} is incomplete even for the restricted class of
458068404143 *** empty log message ***
nipkow
parents: 10608
diff changeset
   100
  linear arithmetic formulae. If divisibility plays a
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
   101
  role, it may fail to prove a valid formula, for example
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
   102
  \isa{m\ {\isacharplus}\ m\ {\isasymnoteq}\ n\ {\isacharplus}\ n\ {\isacharplus}\ {\isadigit{1}}}. Fortunately, such examples are rare in practice.
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
   103
\end{warn}%
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10187
diff changeset
   104
\end{isamarkuptext}%
9722
a5f86aed785b *** empty log message ***
nipkow
parents: 9721
diff changeset
   105
\end{isabellebody}%
9145
9f7b8de5bfaf updated;
wenzelm
parents: 8749
diff changeset
   106
%%% Local Variables:
9f7b8de5bfaf updated;
wenzelm
parents: 8749
diff changeset
   107
%%% mode: latex
9f7b8de5bfaf updated;
wenzelm
parents: 8749
diff changeset
   108
%%% TeX-master: "root"
9f7b8de5bfaf updated;
wenzelm
parents: 8749
diff changeset
   109
%%% End: