doc-src/TutorialI/Misc/document/Itrev.tex
author nipkow
Tue, 05 Sep 2000 13:53:39 +0200
changeset 9844 8016321c7de1
parent 9792 bbefb6ce5cb2
child 9924 3370f6aa3200
permissions -rw-r--r--
*** empty log message ***
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}%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     3
%
9844
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
     4
\isamarkupsection{Induction heuristics}
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
     5
%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     6
\begin{isamarkuptext}%
9844
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
     7
\label{sec:InductionHeuristics}
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
     8
The purpose of this section is to illustrate some simple heuristics for
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
     9
inductive proofs. The first one we have already mentioned in our initial
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    10
example:
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    11
\begin{quote}
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    12
\emph{Theorems about recursive functions are proved by induction.}
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    13
\end{quote}
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    14
In case the function has more than one argument
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    15
\begin{quote}
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    16
\emph{Do induction on argument number $i$ if the function is defined by
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    17
recursion in argument number $i$.}
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    18
\end{quote}
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    19
When we look at the proof of \isa{{\isachardoublequote}{\isacharparenleft}xs\ {\isacharat}\ ys{\isacharparenright}\ {\isacharat}\ zs\ {\isacharequal}\ xs\ {\isacharat}\ {\isacharparenleft}ys\ {\isacharat}\ zs{\isacharparenright}{\isachardoublequote}}
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    20
in \S\ref{sec:intro-proof} we find (a) \isa{{\isacharat}} is recursive in
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    21
the first argument, (b) \isa{xs} occurs only as the first argument of
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    22
\isa{{\isacharat}}, and (c) both \isa{ys} and \isa{zs} occur at least once as
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    23
the second argument of \isa{{\isacharat}}. Hence it is natural to perform induction
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    24
on \isa{xs}.
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    25
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    26
The key heuristic, and the main point of this section, is to
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    27
generalize the goal before induction. The reason is simple: if the goal is
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    28
too specific, the induction hypothesis is too weak to allow the induction
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    29
step to go through. Let us now illustrate the idea with an example.
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    30
9493
494f8cd34df7 *** empty log message ***
nipkow
parents: 9145
diff changeset
    31
Function \isa{rev} has quadratic worst-case running time
9792
bbefb6ce5cb2 *** empty log message ***
nipkow
parents: 9754
diff changeset
    32
because it calls function \isa{{\isacharat}} for each element of the list and
bbefb6ce5cb2 *** empty log message ***
nipkow
parents: 9754
diff changeset
    33
\isa{{\isacharat}} is linear in its first argument.  A linear time version of
9493
494f8cd34df7 *** empty log message ***
nipkow
parents: 9145
diff changeset
    34
\isa{rev} reqires an extra argument where the result is accumulated
9792
bbefb6ce5cb2 *** empty log message ***
nipkow
parents: 9754
diff changeset
    35
gradually, using only \isa{{\isacharhash}}:%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    36
\end{isamarkuptext}%
9673
1b2d4f995b13 updated;
wenzelm
parents: 9644
diff changeset
    37
\isacommand{consts}\ itrev\ {\isacharcolon}{\isacharcolon}\ {\isachardoublequote}{\isacharprime}a\ list\ {\isasymRightarrow}\ {\isacharprime}a\ list\ {\isasymRightarrow}\ {\isacharprime}a\ list{\isachardoublequote}\isanewline
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    38
\isacommand{primrec}\isanewline
9673
1b2d4f995b13 updated;
wenzelm
parents: 9644
diff changeset
    39
{\isachardoublequote}itrev\ {\isacharbrackleft}{\isacharbrackright}\ \ \ \ \ ys\ {\isacharequal}\ ys{\isachardoublequote}\isanewline
1b2d4f995b13 updated;
wenzelm
parents: 9644
diff changeset
    40
{\isachardoublequote}itrev\ {\isacharparenleft}x{\isacharhash}xs{\isacharparenright}\ ys\ {\isacharequal}\ itrev\ xs\ {\isacharparenleft}x{\isacharhash}ys{\isacharparenright}{\isachardoublequote}%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    41
\begin{isamarkuptext}%
9792
bbefb6ce5cb2 *** empty log message ***
nipkow
parents: 9754
diff changeset
    42
\noindent
bbefb6ce5cb2 *** empty log message ***
nipkow
parents: 9754
diff changeset
    43
The behaviour of \isa{itrev} is simple: it reverses
9493
494f8cd34df7 *** empty log message ***
nipkow
parents: 9145
diff changeset
    44
its first argument by stacking its elements onto the second argument,
494f8cd34df7 *** empty log message ***
nipkow
parents: 9145
diff changeset
    45
and returning that second argument when the first one becomes
494f8cd34df7 *** empty log message ***
nipkow
parents: 9145
diff changeset
    46
empty. Note that \isa{itrev} is tail-recursive, i.e.\ it can be
494f8cd34df7 *** empty log message ***
nipkow
parents: 9145
diff changeset
    47
compiled into a loop.
494f8cd34df7 *** empty log message ***
nipkow
parents: 9145
diff changeset
    48
494f8cd34df7 *** empty log message ***
nipkow
parents: 9145
diff changeset
    49
Naturally, we would like to show that \isa{itrev} does indeed reverse
494f8cd34df7 *** empty log message ***
nipkow
parents: 9145
diff changeset
    50
its first argument provided the second one is empty:%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    51
\end{isamarkuptext}%
9673
1b2d4f995b13 updated;
wenzelm
parents: 9644
diff changeset
    52
\isacommand{lemma}\ {\isachardoublequote}itrev\ xs\ {\isacharbrackleft}{\isacharbrackright}\ {\isacharequal}\ rev\ xs{\isachardoublequote}%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    53
\begin{isamarkuptxt}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    54
\noindent
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    55
There is no choice as to the induction variable, and we immediately simplify:%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    56
\end{isamarkuptxt}%
9698
f0740137a65d updated;
wenzelm
parents: 9673
diff changeset
    57
\isacommand{apply}{\isacharparenleft}induct{\isacharunderscore}tac\ xs{\isacharcomma}\ simp{\isacharunderscore}all{\isacharparenright}%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    58
\begin{isamarkuptxt}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    59
\noindent
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    60
Unfortunately, this is not a complete success:
9844
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    61
\begin{isabelle}\makeatother
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    62
~1.~\dots~itrev~list~[]~=~rev~list~{\isasymLongrightarrow}~itrev~list~[a]~=~rev~list~@~[a]%
9723
a977245dfc8a *** empty log message ***
nipkow
parents: 9722
diff changeset
    63
\end{isabelle}
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    64
Just as predicted above, the overall goal, and hence the induction
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    65
hypothesis, is too weak to solve the induction step because of the fixed
9792
bbefb6ce5cb2 *** empty log message ***
nipkow
parents: 9754
diff changeset
    66
\isa{{\isacharbrackleft}{\isacharbrackright}}. The corresponding heuristic:
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    67
\begin{quote}
9754
a123a64cadeb *** empty log message ***
nipkow
parents: 9723
diff changeset
    68
\emph{Generalize goals for induction by replacing constants by variables.}
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    69
\end{quote}
9792
bbefb6ce5cb2 *** empty log message ***
nipkow
parents: 9754
diff changeset
    70
Of course one cannot do this na\"{\i}vely: \isa{itrev\ xs\ ys\ {\isacharequal}\ rev\ xs} is
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    71
just not true---the correct generalization is%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    72
\end{isamarkuptxt}%
9673
1b2d4f995b13 updated;
wenzelm
parents: 9644
diff changeset
    73
\isacommand{lemma}\ {\isachardoublequote}itrev\ xs\ ys\ {\isacharequal}\ rev\ xs\ {\isacharat}\ ys{\isachardoublequote}%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    74
\begin{isamarkuptxt}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    75
\noindent
9792
bbefb6ce5cb2 *** empty log message ***
nipkow
parents: 9754
diff changeset
    76
If \isa{ys} is replaced by \isa{{\isacharbrackleft}{\isacharbrackright}}, the right-hand side simplifies to
bbefb6ce5cb2 *** empty log message ***
nipkow
parents: 9754
diff changeset
    77
\isa{rev\ xs}, just as required.
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    78
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    79
In this particular instance it was easy to guess the right generalization,
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    80
but in more complex situations a good deal of creativity is needed. This is
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    81
the main source of complications in inductive proofs.
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    82
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    83
Although we now have two variables, only \isa{xs} is suitable for
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    84
induction, and we repeat our above proof attempt. Unfortunately, we are still
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    85
not there:
9844
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    86
\begin{isabelle}\makeatother
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    87
~1.~{\isasymAnd}a~list.\isanewline
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    88
~~~~~~~itrev~list~ys~=~rev~list~@~ys~{\isasymLongrightarrow}\isanewline
9792
bbefb6ce5cb2 *** empty log message ***
nipkow
parents: 9754
diff changeset
    89
~~~~~~~itrev~list~(a~\#~ys)~=~rev~list~@~a~\#~ys
9723
a977245dfc8a *** empty log message ***
nipkow
parents: 9722
diff changeset
    90
\end{isabelle}
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    91
The induction hypothesis is still too weak, but this time it takes no
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    92
intuition to generalize: the problem is that \isa{ys} is fixed throughout
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    93
the subgoal, but the induction hypothesis needs to be applied with
9792
bbefb6ce5cb2 *** empty log message ***
nipkow
parents: 9754
diff changeset
    94
\isa{a\ {\isacharhash}\ ys} instead of \isa{ys}. Hence we prove the theorem
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    95
for all \isa{ys} instead of a fixed one:%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    96
\end{isamarkuptxt}%
9673
1b2d4f995b13 updated;
wenzelm
parents: 9644
diff changeset
    97
\isacommand{lemma}\ {\isachardoublequote}{\isasymforall}ys{\isachardot}\ itrev\ xs\ ys\ {\isacharequal}\ rev\ xs\ {\isacharat}\ ys{\isachardoublequote}%
9844
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
    98
\begin{isamarkuptext}%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    99
\noindent
2665170f104a Adding generated files
nipkow
parents:
diff changeset
   100
This time induction on \isa{xs} followed by simplification succeeds. This
2665170f104a Adding generated files
nipkow
parents:
diff changeset
   101
leads to another heuristic for generalization:
2665170f104a Adding generated files
nipkow
parents:
diff changeset
   102
\begin{quote}
9754
a123a64cadeb *** empty log message ***
nipkow
parents: 9723
diff changeset
   103
\emph{Generalize goals for induction by universally quantifying all free
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
   104
variables {\em(except the induction variable itself!)}.}
2665170f104a Adding generated files
nipkow
parents:
diff changeset
   105
\end{quote}
2665170f104a Adding generated files
nipkow
parents:
diff changeset
   106
This prevents trivial failures like the above and does not change the
2665170f104a Adding generated files
nipkow
parents:
diff changeset
   107
provability of the goal. Because it is not always required, and may even
2665170f104a Adding generated files
nipkow
parents:
diff changeset
   108
complicate matters in some cases, this heuristic is often not
9644
6b0b6b471855 *** empty log message ***
nipkow
parents: 9541
diff changeset
   109
applied blindly.
6b0b6b471855 *** empty log message ***
nipkow
parents: 9541
diff changeset
   110
6b0b6b471855 *** empty log message ***
nipkow
parents: 9541
diff changeset
   111
In general, if you have tried the above heuristics and still find your
6b0b6b471855 *** empty log message ***
nipkow
parents: 9541
diff changeset
   112
induction does not go through, and no obvious lemma suggests itself, you may
6b0b6b471855 *** empty log message ***
nipkow
parents: 9541
diff changeset
   113
need to generalize your proposition even further. This requires insight into
6b0b6b471855 *** empty log message ***
nipkow
parents: 9541
diff changeset
   114
the problem at hand and is beyond simple rules of thumb. In a nutshell: you
6b0b6b471855 *** empty log message ***
nipkow
parents: 9541
diff changeset
   115
will need to be creative. Additionally, you can read \S\ref{sec:advanced-ind}
9844
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
   116
to learn about some advanced techniques for inductive proofs.
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
   117
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
   118
A final point worth mentioning is the orientation of the equation we just
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
   119
proved: the more complex notion (\isa{itrev}) is on the left-hand
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
   120
side, the simpler one (\isa{rev}) on the right-hand side. This constitutes
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
   121
another, albeit weak heuristic that is not restricted to induction:
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
   122
\begin{quote}
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
   123
  \emph{The right-hand side of an equation should (in some sense) be simpler
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
   124
    than the left-hand side.}
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
   125
\end{quote}
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
   126
This heuristic is tricky to apply because it is not obvious that
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
   127
\isa{rev\ xs\ {\isacharat}\ ys} is simpler than \isa{itrev\ xs\ ys}. But see what
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
   128
happens if you try to prove \isa{rev\ xs\ {\isacharat}\ ys\ {\isacharequal}\ itrev\ xs\ ys}!%
8016321c7de1 *** empty log message ***
nipkow
parents: 9792
diff changeset
   129
\end{isamarkuptext}%
9722
a5f86aed785b *** empty log message ***
nipkow
parents: 9721
diff changeset
   130
\end{isabellebody}%
9145
9f7b8de5bfaf updated;
wenzelm
parents: 8749
diff changeset
   131
%%% Local Variables:
9f7b8de5bfaf updated;
wenzelm
parents: 8749
diff changeset
   132
%%% mode: latex
9f7b8de5bfaf updated;
wenzelm
parents: 8749
diff changeset
   133
%%% TeX-master: "root"
9f7b8de5bfaf updated;
wenzelm
parents: 8749
diff changeset
   134
%%% End: