doc-src/TutorialI/Advanced/document/WFrec.tex
author nipkow
Wed, 11 Oct 2000 10:44:42 +0200
changeset 10187 0376cccd9118
child 10189 865918597b63
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
10187
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
     1
%
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
     2
\begin{isabellebody}%
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
     3
\def\isabellecontext{WFrec}%
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
     4
%
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
     5
\begin{isamarkuptext}%
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
     6
\noindent
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
     7
So far, all recursive definitions where shown to terminate via measure
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
     8
functions. Sometimes this can be quite inconvenient or even
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
     9
impossible. Fortunately, \isacommand{recdef} supports much more
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    10
general definitions. For example, termination of Ackermann's function
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    11
can be shown by means of the lexicographic product \isa{{\isacharless}{\isacharasterisk}lex{\isacharasterisk}{\isachargreater}}:%
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    12
\end{isamarkuptext}%
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    13
\isacommand{consts}\ ack\ {\isacharcolon}{\isacharcolon}\ {\isachardoublequote}nat{\isasymtimes}nat\ {\isasymRightarrow}\ nat{\isachardoublequote}\isanewline
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    14
\isacommand{recdef}\ ack\ {\isachardoublequote}measure{\isacharparenleft}{\isasymlambda}m{\isachardot}\ m{\isacharparenright}\ {\isacharless}{\isacharasterisk}lex{\isacharasterisk}{\isachargreater}\ measure{\isacharparenleft}{\isasymlambda}n{\isachardot}\ n{\isacharparenright}{\isachardoublequote}\isanewline
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    15
\ \ {\isachardoublequote}ack{\isacharparenleft}{\isadigit{0}}{\isacharcomma}n{\isacharparenright}\ \ \ \ \ \ \ \ \ {\isacharequal}\ Suc\ n{\isachardoublequote}\isanewline
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    16
\ \ {\isachardoublequote}ack{\isacharparenleft}Suc\ m{\isacharcomma}{\isadigit{0}}{\isacharparenright}\ \ \ \ \ {\isacharequal}\ ack{\isacharparenleft}m{\isacharcomma}\ {\isadigit{1}}{\isacharparenright}{\isachardoublequote}\isanewline
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    17
\ \ {\isachardoublequote}ack{\isacharparenleft}Suc\ m{\isacharcomma}Suc\ n{\isacharparenright}\ {\isacharequal}\ ack{\isacharparenleft}m{\isacharcomma}ack{\isacharparenleft}Suc\ m{\isacharcomma}n{\isacharparenright}{\isacharparenright}{\isachardoublequote}%
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    18
\begin{isamarkuptext}%
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    19
\noindent
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    20
The lexicographic product decreases if either its first component
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    21
decreases (as in the second equation and in the outer call in the
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    22
third equation) or its first component stays the same and the second
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    23
component decreases (as in the inner call in the third equation).
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    24
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    25
In general, \isacommand{recdef} supports termination proofs based on
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    26
arbitrary \emph{wellfounded relations}, i.e.\ \emph{wellfounded
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    27
recursion}\indexbold{recursion!wellfounded}\index{wellfounded
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    28
recursion|see{recursion, wellfounded}}.  A relation $<$ is
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    29
\bfindex{wellfounded} if it has no infinite descending chain $\cdots <
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    30
a@2 < a@1 < a@0$. Clearly, a function definition is total iff the set
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    31
of all pairs $(r,l)$, where $l$ is the argument on the left-hand side of an equation
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    32
and $r$ the argument of some recursive call on the corresponding
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    33
right-hand side, induces a wellfounded relation.  For a systematic
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    34
account of termination proofs via wellfounded relations see, for
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    35
example, \cite{Baader-Nipkow}.
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    36
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    37
Each \isacommand{recdef} definition should be accompanied (after the
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    38
name of the function) by a wellfounded relation on the argument type
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    39
of the function. For example, \isa{measure} is defined by
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    40
\begin{isabelle}%
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    41
\ \ \ \ \ measure\ f\ {\isasymequiv}\ {\isacharbraceleft}{\isacharparenleft}y{\isacharcomma}\ x{\isacharparenright}{\isachardot}\ f\ y\ {\isacharless}\ f\ x{\isacharbraceright}%
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    42
\end{isabelle}
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    43
and it has been proved that \isa{measure\ f} is always wellfounded.
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    44
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    45
In addition to \isa{measure}, the library provides
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    46
a number of further constructions for obtaining wellfounded relations.
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    47
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    48
wf proof auto if stndard constructions.%
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    49
\end{isamarkuptext}%
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    50
\end{isabellebody}%
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    51
%%% Local Variables:
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    52
%%% mode: latex
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    53
%%% TeX-master: "root"
0376cccd9118 *** empty log message ***
nipkow
parents:
diff changeset
    54
%%% End: