doc-src/TutorialI/Misc/document/simp.tex
author paulson
Fri, 13 Jul 2001 11:31:05 +0200
changeset 11414 5e1e952002e5
parent 11309 d666f11ca2d4
child 11428 332347b9b942
permissions -rw-r--r--
index file
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9924
3370f6aa3200 updated;
wenzelm
parents: 9911
diff changeset
     1
%
3370f6aa3200 updated;
wenzelm
parents: 9911
diff changeset
     2
\begin{isabellebody}%
3370f6aa3200 updated;
wenzelm
parents: 9911
diff changeset
     3
\def\isabellecontext{simp}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
     4
%
11214
3b3cc0cf533f *** empty log message ***
nipkow
parents: 11206
diff changeset
     5
\isamarkupsubsection{Simplification Rules%
10397
e2d0dda41f2c auto update
paulson
parents: 10396
diff changeset
     6
}
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
     7
%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
     8
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
     9
\indexbold{simplification rule}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    10
To facilitate simplification, theorems can be declared to be simplification
10795
9e888d60d3e5 minor edits to Chapters 1-3
paulson
parents: 10788
diff changeset
    11
rules (by the attribute \isa{{\isacharbrackleft}simp{\isacharbrackright}}\index{*simp
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    12
  (attribute)}), in which case proofs by simplification make use of these
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    13
rules automatically. In addition the constructs \isacommand{datatype} and
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    14
\isacommand{primrec} (and a few others) invisibly declare useful
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    15
simplification rules. Explicit definitions are \emph{not} declared
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    16
simplification rules automatically!
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    17
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    18
Not merely equations but pretty much any theorem can become a simplification
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    19
rule. The simplifier will try to make sense of it.  For example, a theorem
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    20
\isa{{\isasymnot}\ P} is automatically turned into \isa{P\ {\isacharequal}\ False}. The details
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    21
are explained in \S\ref{sec:SimpHow}.
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    22
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    23
The simplification attribute of theorems can be turned on and off as follows:
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    24
\begin{quote}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    25
\isacommand{declare} \textit{theorem-name}\isa{{\isacharbrackleft}simp{\isacharbrackright}}\\
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    26
\isacommand{declare} \textit{theorem-name}\isa{{\isacharbrackleft}simp\ del{\isacharbrackright}}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    27
\end{quote}
11309
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
    28
Only equations that really simplify, like \isa{rev\
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
    29
{\isacharparenleft}rev\ xs{\isacharparenright}\ {\isacharequal}\ xs} and
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
    30
\isa{xs\ {\isacharat}\ {\isacharbrackleft}{\isacharbrackright}\
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
    31
{\isacharequal}\ xs}, should be declared as default simplification rules. 
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
    32
More specific ones should only be used selectively and should
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
    33
not be made default.  Distributivity laws, for example, alter
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
    34
the structure of terms and can produce an exponential blow-up instead of
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
    35
simplification.  A default simplification rule may
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
    36
need to be disabled in certain proofs.  Frequent changes in the simplification
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
    37
status of a theorem may indicate an unwise use of defaults.
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    38
\begin{warn}
10795
9e888d60d3e5 minor edits to Chapters 1-3
paulson
parents: 10788
diff changeset
    39
  Simplification may run forever, for example if both $f(x) = g(x)$ and
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    40
  $g(x) = f(x)$ are simplification rules. It is the user's responsibility not
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    41
  to include simplification rules that can lead to nontermination, either on
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    42
  their own or in combination with other simplification rules.
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    43
\end{warn}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    44
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    45
%
11214
3b3cc0cf533f *** empty log message ***
nipkow
parents: 11206
diff changeset
    46
\isamarkupsubsection{The Simplification Method%
10397
e2d0dda41f2c auto update
paulson
parents: 10396
diff changeset
    47
}
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    48
%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    49
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    50
\index{*simp (method)|bold}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    51
The general format of the simplification method is
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    52
\begin{quote}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    53
\isa{simp} \textit{list of modifiers}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    54
\end{quote}
10795
9e888d60d3e5 minor edits to Chapters 1-3
paulson
parents: 10788
diff changeset
    55
where the list of \emph{modifiers} fine tunes the behaviour and may
11309
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
    56
be empty. Specific modifiers are discussed below.  Most if not all of the
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
    57
proofs seen so far could have been performed
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    58
with \isa{simp} instead of \isa{auto}, except that \isa{simp} attacks
10971
6852682eaf16 *** empty log message ***
nipkow
parents: 10950
diff changeset
    59
only the first subgoal and may thus need to be repeated --- use
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    60
\isaindex{simp_all} to simplify all subgoals.
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    61
Note that \isa{simp} fails if nothing changes.%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    62
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    63
%
11214
3b3cc0cf533f *** empty log message ***
nipkow
parents: 11206
diff changeset
    64
\isamarkupsubsection{Adding and Deleting Simplification Rules%
10397
e2d0dda41f2c auto update
paulson
parents: 10396
diff changeset
    65
}
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    66
%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    67
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    68
If a certain theorem is merely needed in a few proofs by simplification,
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    69
we do not need to make it a global simplification rule. Instead we can modify
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    70
the set of simplification rules used in a simplification step by adding rules
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    71
to it and/or deleting rules from it. The two modifiers for this are
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    72
\begin{quote}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    73
\isa{add{\isacharcolon}} \textit{list of theorem names}\\
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    74
\isa{del{\isacharcolon}} \textit{list of theorem names}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    75
\end{quote}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    76
In case you want to use only a specific list of theorems and ignore all
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    77
others:
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    78
\begin{quote}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    79
\isa{only{\isacharcolon}} \textit{list of theorem names}
11309
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
    80
\end{quote}
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
    81
In this example, we invoke the simplifier, adding two distributive
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
    82
laws:
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
    83
\begin{quote}
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
    84
\isacommand{apply}\isa{{\isacharparenleft}simp\ add{\isacharcolon}\ mod{\isacharunderscore}mult{\isacharunderscore}distrib\ add{\isacharunderscore}mult{\isacharunderscore}distrib{\isacharparenright}}
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    85
\end{quote}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    86
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    87
%
11214
3b3cc0cf533f *** empty log message ***
nipkow
parents: 11206
diff changeset
    88
\isamarkupsubsection{Assumptions%
10397
e2d0dda41f2c auto update
paulson
parents: 10396
diff changeset
    89
}
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    90
%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    91
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    92
\index{simplification!with/of assumptions}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    93
By default, assumptions are part of the simplification process: they are used
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    94
as simplification rules and are simplified themselves. For example:%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    95
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    96
\isacommand{lemma}\ {\isachardoublequote}{\isasymlbrakk}\ xs\ {\isacharat}\ zs\ {\isacharequal}\ ys\ {\isacharat}\ xs{\isacharsemicolon}\ {\isacharbrackleft}{\isacharbrackright}\ {\isacharat}\ xs\ {\isacharequal}\ {\isacharbrackleft}{\isacharbrackright}\ {\isacharat}\ {\isacharbrackleft}{\isacharbrackright}\ {\isasymrbrakk}\ {\isasymLongrightarrow}\ ys\ {\isacharequal}\ zs{\isachardoublequote}\isanewline
10171
59d6633835fa *** empty log message ***
nipkow
parents: 9933
diff changeset
    97
\isacommand{apply}\ simp\isanewline
59d6633835fa *** empty log message ***
nipkow
parents: 9933
diff changeset
    98
\isacommand{done}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
    99
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   100
\noindent
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   101
The second assumption simplifies to \isa{xs\ {\isacharequal}\ {\isacharbrackleft}{\isacharbrackright}}, which in turn
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   102
simplifies the first assumption to \isa{zs\ {\isacharequal}\ ys}, thus reducing the
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   103
conclusion to \isa{ys\ {\isacharequal}\ ys} and hence to \isa{True}.
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   104
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   105
In some cases this may be too much of a good thing and may lead to
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   106
nontermination:%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   107
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   108
\isacommand{lemma}\ {\isachardoublequote}{\isasymforall}x{\isachardot}\ f\ x\ {\isacharequal}\ g\ {\isacharparenleft}f\ {\isacharparenleft}g\ x{\isacharparenright}{\isacharparenright}\ {\isasymLongrightarrow}\ f\ {\isacharbrackleft}{\isacharbrackright}\ {\isacharequal}\ f\ {\isacharbrackleft}{\isacharbrackright}\ {\isacharat}\ {\isacharbrackleft}{\isacharbrackright}{\isachardoublequote}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   109
\begin{isamarkuptxt}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   110
\noindent
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   111
cannot be solved by an unmodified application of \isa{simp} because the
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   112
simplification rule \isa{f\ x\ {\isacharequal}\ g\ {\isacharparenleft}f\ {\isacharparenleft}g\ x{\isacharparenright}{\isacharparenright}} extracted from the assumption
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   113
does not terminate. Isabelle notices certain simple forms of
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   114
nontermination but not this one. The problem can be circumvented by
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   115
explicitly telling the simplifier to ignore the assumptions:%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   116
\end{isamarkuptxt}%
10171
59d6633835fa *** empty log message ***
nipkow
parents: 9933
diff changeset
   117
\isacommand{apply}{\isacharparenleft}simp\ {\isacharparenleft}no{\isacharunderscore}asm{\isacharparenright}{\isacharparenright}\isanewline
59d6633835fa *** empty log message ***
nipkow
parents: 9933
diff changeset
   118
\isacommand{done}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   119
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   120
\noindent
10971
6852682eaf16 *** empty log message ***
nipkow
parents: 10950
diff changeset
   121
There are three modifiers that influence the treatment of assumptions:
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   122
\begin{description}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   123
\item[\isa{{\isacharparenleft}no{\isacharunderscore}asm{\isacharparenright}}]\indexbold{*no_asm}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   124
 means that assumptions are completely ignored.
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   125
\item[\isa{{\isacharparenleft}no{\isacharunderscore}asm{\isacharunderscore}simp{\isacharparenright}}]\indexbold{*no_asm_simp}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   126
 means that the assumptions are not simplified but
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   127
  are used in the simplification of the conclusion.
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   128
\item[\isa{{\isacharparenleft}no{\isacharunderscore}asm{\isacharunderscore}use{\isacharparenright}}]\indexbold{*no_asm_use}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   129
 means that the assumptions are simplified but are not
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   130
  used in the simplification of each other or the conclusion.
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   131
\end{description}
10795
9e888d60d3e5 minor edits to Chapters 1-3
paulson
parents: 10788
diff changeset
   132
Both \isa{{\isacharparenleft}no{\isacharunderscore}asm{\isacharunderscore}simp{\isacharparenright}} and \isa{{\isacharparenleft}no{\isacharunderscore}asm{\isacharunderscore}use{\isacharparenright}} run forever on
9e888d60d3e5 minor edits to Chapters 1-3
paulson
parents: 10788
diff changeset
   133
the problematic subgoal above.
10971
6852682eaf16 *** empty log message ***
nipkow
parents: 10950
diff changeset
   134
Note that only one of the modifiers is allowed, and it must precede all
11309
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
   135
other modifiers.
11206
5bea3a8abdc3 *** empty log message ***
nipkow
parents: 10983
diff changeset
   136
5bea3a8abdc3 *** empty log message ***
nipkow
parents: 10983
diff changeset
   137
\begin{warn}
5bea3a8abdc3 *** empty log message ***
nipkow
parents: 10983
diff changeset
   138
Assumptions are simplified in a left-to-right fashion. If an
5bea3a8abdc3 *** empty log message ***
nipkow
parents: 10983
diff changeset
   139
assumption can help in simplifying one to the left of it, this may get
5bea3a8abdc3 *** empty log message ***
nipkow
parents: 10983
diff changeset
   140
overlooked. In such cases you have to rotate the assumptions explicitly:
5bea3a8abdc3 *** empty log message ***
nipkow
parents: 10983
diff changeset
   141
\isacommand{apply}\isa{{\isacharparenleft}rotate{\isacharunderscore}tac}~$n$\isa{{\isacharparenright}}\indexbold{*rotate_tac}
5bea3a8abdc3 *** empty log message ***
nipkow
parents: 10983
diff changeset
   142
causes a cyclic shift by $n$ positions from right to left, if $n$ is
5bea3a8abdc3 *** empty log message ***
nipkow
parents: 10983
diff changeset
   143
positive, and from left to right, if $n$ is negative.
5bea3a8abdc3 *** empty log message ***
nipkow
parents: 10983
diff changeset
   144
Beware that such rotations make proofs quite brittle.
5bea3a8abdc3 *** empty log message ***
nipkow
parents: 10983
diff changeset
   145
\end{warn}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   146
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   147
%
11214
3b3cc0cf533f *** empty log message ***
nipkow
parents: 11206
diff changeset
   148
\isamarkupsubsection{Rewriting with Definitions%
10397
e2d0dda41f2c auto update
paulson
parents: 10396
diff changeset
   149
}
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   150
%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   151
\begin{isamarkuptext}%
11215
b44ad7e4c4d2 *** empty log message ***
nipkow
parents: 11214
diff changeset
   152
\label{sec:Simp-with-Defs}\index{simplification!with definitions}
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   153
Constant definitions (\S\ref{sec:ConstDefinitions}) can
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   154
be used as simplification rules, but by default they are not.  Hence the
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   155
simplifier does not expand them automatically, just as it should be:
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   156
definitions are introduced for the purpose of abbreviating complex
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   157
concepts. Of course we need to expand the definitions initially to derive
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   158
enough lemmas that characterize the concept sufficiently for us to forget the
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   159
original definition. For example, given%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   160
\end{isamarkuptext}%
10788
ea48dd8b0232 *** empty log message ***
nipkow
parents: 10696
diff changeset
   161
\isacommand{constdefs}\ xor\ {\isacharcolon}{\isacharcolon}\ {\isachardoublequote}bool\ {\isasymRightarrow}\ bool\ {\isasymRightarrow}\ bool{\isachardoublequote}\isanewline
ea48dd8b0232 *** empty log message ***
nipkow
parents: 10696
diff changeset
   162
\ \ \ \ \ \ \ \ \ {\isachardoublequote}xor\ A\ B\ {\isasymequiv}\ {\isacharparenleft}A\ {\isasymand}\ {\isasymnot}B{\isacharparenright}\ {\isasymor}\ {\isacharparenleft}{\isasymnot}A\ {\isasymand}\ B{\isacharparenright}{\isachardoublequote}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   163
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   164
\noindent
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   165
we may want to prove%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   166
\end{isamarkuptext}%
10788
ea48dd8b0232 *** empty log message ***
nipkow
parents: 10696
diff changeset
   167
\isacommand{lemma}\ {\isachardoublequote}xor\ A\ {\isacharparenleft}{\isasymnot}A{\isacharparenright}{\isachardoublequote}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   168
\begin{isamarkuptxt}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   169
\noindent
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   170
Typically, the opening move consists in \emph{unfolding} the definition(s), which we need to
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   171
get started, but nothing else:\indexbold{*unfold}\indexbold{definition!unfolding}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   172
\end{isamarkuptxt}%
10788
ea48dd8b0232 *** empty log message ***
nipkow
parents: 10696
diff changeset
   173
\isacommand{apply}{\isacharparenleft}simp\ only{\isacharcolon}xor{\isacharunderscore}def{\isacharparenright}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   174
\begin{isamarkuptxt}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   175
\noindent
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   176
In this particular case, the resulting goal
10362
c6b197ccf1f1 *** empty log message ***
nipkow
parents: 10187
diff changeset
   177
\begin{isabelle}%
c6b197ccf1f1 *** empty log message ***
nipkow
parents: 10187
diff changeset
   178
\ {\isadigit{1}}{\isachardot}\ A\ {\isasymand}\ {\isasymnot}\ {\isasymnot}\ A\ {\isasymor}\ {\isasymnot}\ A\ {\isasymand}\ {\isasymnot}\ A%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   179
\end{isabelle}
10171
59d6633835fa *** empty log message ***
nipkow
parents: 9933
diff changeset
   180
can be proved by simplification. Thus we could have proved the lemma outright by%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   181
\end{isamarkuptxt}%
10788
ea48dd8b0232 *** empty log message ***
nipkow
parents: 10696
diff changeset
   182
\isacommand{apply}{\isacharparenleft}simp\ add{\isacharcolon}\ xor{\isacharunderscore}def{\isacharparenright}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   183
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   184
\noindent
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   185
Of course we can also unfold definitions in the middle of a proof.
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   186
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   187
You should normally not turn a definition permanently into a simplification
10983
59961d32b1ae *** empty log message ***
nipkow
parents: 10971
diff changeset
   188
rule because this defeats the whole purpose.
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   189
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   190
\begin{warn}
10971
6852682eaf16 *** empty log message ***
nipkow
parents: 10950
diff changeset
   191
  If you have defined $f\,x\,y~\isasymequiv~t$ then you can only unfold
6852682eaf16 *** empty log message ***
nipkow
parents: 10950
diff changeset
   192
  occurrences of $f$ with at least two arguments. This may be helpful for unfolding
6852682eaf16 *** empty log message ***
nipkow
parents: 10950
diff changeset
   193
  $f$ selectively, but it may also get in the way. Defining
6852682eaf16 *** empty log message ***
nipkow
parents: 10950
diff changeset
   194
  $f$~\isasymequiv~\isasymlambda$x\,y.\;t$ allows to unfold all occurrences of $f$.
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   195
\end{warn}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   196
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   197
%
11214
3b3cc0cf533f *** empty log message ***
nipkow
parents: 11206
diff changeset
   198
\isamarkupsubsection{Simplifying {\tt\slshape let}-Expressions%
10397
e2d0dda41f2c auto update
paulson
parents: 10396
diff changeset
   199
}
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   200
%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   201
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   202
\index{simplification!of let-expressions}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   203
Proving a goal containing \isaindex{let}-expressions almost invariably
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   204
requires the \isa{let}-con\-structs to be expanded at some point. Since
10795
9e888d60d3e5 minor edits to Chapters 1-3
paulson
parents: 10788
diff changeset
   205
\isa{let}\ldots\isa{=}\ldots\isa{in}{\ldots} is just syntactic sugar for a predefined constant
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   206
(called \isa{Let}), expanding \isa{let}-constructs means rewriting with
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   207
\isa{Let{\isacharunderscore}def}:%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   208
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   209
\isacommand{lemma}\ {\isachardoublequote}{\isacharparenleft}let\ xs\ {\isacharequal}\ {\isacharbrackleft}{\isacharbrackright}\ in\ xs{\isacharat}ys{\isacharat}xs{\isacharparenright}\ {\isacharequal}\ ys{\isachardoublequote}\isanewline
10171
59d6633835fa *** empty log message ***
nipkow
parents: 9933
diff changeset
   210
\isacommand{apply}{\isacharparenleft}simp\ add{\isacharcolon}\ Let{\isacharunderscore}def{\isacharparenright}\isanewline
59d6633835fa *** empty log message ***
nipkow
parents: 9933
diff changeset
   211
\isacommand{done}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   212
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   213
If, in a particular context, there is no danger of a combinatorial explosion
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   214
of nested \isa{let}s one could even simlify with \isa{Let{\isacharunderscore}def} by
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   215
default:%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   216
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   217
\isacommand{declare}\ Let{\isacharunderscore}def\ {\isacharbrackleft}simp{\isacharbrackright}%
11214
3b3cc0cf533f *** empty log message ***
nipkow
parents: 11206
diff changeset
   218
\isamarkupsubsection{Conditional Equations%
10397
e2d0dda41f2c auto update
paulson
parents: 10396
diff changeset
   219
}
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   220
%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   221
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   222
So far all examples of rewrite rules were equations. The simplifier also
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   223
accepts \emph{conditional} equations, for example%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   224
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   225
\isacommand{lemma}\ hd{\isacharunderscore}Cons{\isacharunderscore}tl{\isacharbrackleft}simp{\isacharbrackright}{\isacharcolon}\ {\isachardoublequote}xs\ {\isasymnoteq}\ {\isacharbrackleft}{\isacharbrackright}\ \ {\isasymLongrightarrow}\ \ hd\ xs\ {\isacharhash}\ tl\ xs\ {\isacharequal}\ xs{\isachardoublequote}\isanewline
10171
59d6633835fa *** empty log message ***
nipkow
parents: 9933
diff changeset
   226
\isacommand{apply}{\isacharparenleft}case{\isacharunderscore}tac\ xs{\isacharcomma}\ simp{\isacharcomma}\ simp{\isacharparenright}\isanewline
59d6633835fa *** empty log message ***
nipkow
parents: 9933
diff changeset
   227
\isacommand{done}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   228
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   229
\noindent
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   230
Note the use of ``\ttindexboldpos{,}{$Isar}'' to string together a
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   231
sequence of methods. Assuming that the simplification rule
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   232
\isa{{\isacharparenleft}rev\ xs\ {\isacharequal}\ {\isacharbrackleft}{\isacharbrackright}{\isacharparenright}\ {\isacharequal}\ {\isacharparenleft}xs\ {\isacharequal}\ {\isacharbrackleft}{\isacharbrackright}{\isacharparenright}}
10795
9e888d60d3e5 minor edits to Chapters 1-3
paulson
parents: 10788
diff changeset
   233
is present as well,
9e888d60d3e5 minor edits to Chapters 1-3
paulson
parents: 10788
diff changeset
   234
the lemma below is proved by plain simplification:%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   235
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   236
\isacommand{lemma}\ {\isachardoublequote}xs\ {\isasymnoteq}\ {\isacharbrackleft}{\isacharbrackright}\ {\isasymLongrightarrow}\ hd{\isacharparenleft}rev\ xs{\isacharparenright}\ {\isacharhash}\ tl{\isacharparenleft}rev\ xs{\isacharparenright}\ {\isacharequal}\ rev\ xs{\isachardoublequote}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   237
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   238
\noindent
10795
9e888d60d3e5 minor edits to Chapters 1-3
paulson
parents: 10788
diff changeset
   239
The conditional equation \isa{hd{\isacharunderscore}Cons{\isacharunderscore}tl} above
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   240
can simplify \isa{hd\ {\isacharparenleft}rev\ xs{\isacharparenright}\ {\isacharhash}\ tl\ {\isacharparenleft}rev\ xs{\isacharparenright}} to \isa{rev\ xs}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   241
because the corresponding precondition \isa{rev\ xs\ {\isasymnoteq}\ {\isacharbrackleft}{\isacharbrackright}}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   242
simplifies to \isa{xs\ {\isasymnoteq}\ {\isacharbrackleft}{\isacharbrackright}}, which is exactly the local
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   243
assumption of the subgoal.%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   244
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   245
%
11214
3b3cc0cf533f *** empty log message ***
nipkow
parents: 11206
diff changeset
   246
\isamarkupsubsection{Automatic Case Splits%
10397
e2d0dda41f2c auto update
paulson
parents: 10396
diff changeset
   247
}
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   248
%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   249
\begin{isamarkuptext}%
11215
b44ad7e4c4d2 *** empty log message ***
nipkow
parents: 11214
diff changeset
   250
\label{sec:AutoCaseSplits}\indexbold{case splits}\index{*split (method, attr.)|(}
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   251
Goals containing \isa{if}-expressions are usually proved by case
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   252
distinction on the condition of the \isa{if}. For example the goal%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   253
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   254
\isacommand{lemma}\ {\isachardoublequote}{\isasymforall}xs{\isachardot}\ if\ xs\ {\isacharequal}\ {\isacharbrackleft}{\isacharbrackright}\ then\ rev\ xs\ {\isacharequal}\ {\isacharbrackleft}{\isacharbrackright}\ else\ rev\ xs\ {\isasymnoteq}\ {\isacharbrackleft}{\isacharbrackright}{\isachardoublequote}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   255
\begin{isamarkuptxt}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   256
\noindent
10668
3b84288e60b7 updated;
wenzelm
parents: 10645
diff changeset
   257
can be split by a special method \isa{split}:%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   258
\end{isamarkuptxt}%
10668
3b84288e60b7 updated;
wenzelm
parents: 10645
diff changeset
   259
\isacommand{apply}{\isacharparenleft}split\ split{\isacharunderscore}if{\isacharparenright}%
10362
c6b197ccf1f1 *** empty log message ***
nipkow
parents: 10187
diff changeset
   260
\begin{isamarkuptxt}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   261
\noindent
10362
c6b197ccf1f1 *** empty log message ***
nipkow
parents: 10187
diff changeset
   262
\begin{isabelle}%
c6b197ccf1f1 *** empty log message ***
nipkow
parents: 10187
diff changeset
   263
\ {\isadigit{1}}{\isachardot}\ {\isasymforall}xs{\isachardot}\ {\isacharparenleft}xs\ {\isacharequal}\ {\isacharbrackleft}{\isacharbrackright}\ {\isasymlongrightarrow}\ rev\ xs\ {\isacharequal}\ {\isacharbrackleft}{\isacharbrackright}{\isacharparenright}\ {\isasymand}\ {\isacharparenleft}xs\ {\isasymnoteq}\ {\isacharbrackleft}{\isacharbrackright}\ {\isasymlongrightarrow}\ rev\ xs\ {\isasymnoteq}\ {\isacharbrackleft}{\isacharbrackright}{\isacharparenright}%
c6b197ccf1f1 *** empty log message ***
nipkow
parents: 10187
diff changeset
   264
\end{isabelle}
10668
3b84288e60b7 updated;
wenzelm
parents: 10645
diff changeset
   265
where \isaindexbold{split_if} is a theorem that expresses splitting of
3b84288e60b7 updated;
wenzelm
parents: 10645
diff changeset
   266
\isa{if}s. Because
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   267
case-splitting on \isa{if}s is almost always the right proof strategy, the
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   268
simplifier performs it automatically. Try \isacommand{apply}\isa{{\isacharparenleft}simp{\isacharparenright}}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   269
on the initial goal above.
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   270
11309
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
   271
This splitting idea generalizes from \isa{if} to \isaindex{case}.
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
   272
Let us simplify a case analysis over lists:%
10362
c6b197ccf1f1 *** empty log message ***
nipkow
parents: 10187
diff changeset
   273
\end{isamarkuptxt}%
c6b197ccf1f1 *** empty log message ***
nipkow
parents: 10187
diff changeset
   274
\isacommand{lemma}\ {\isachardoublequote}{\isacharparenleft}case\ xs\ of\ {\isacharbrackleft}{\isacharbrackright}\ {\isasymRightarrow}\ zs\ {\isacharbar}\ y{\isacharhash}ys\ {\isasymRightarrow}\ y{\isacharhash}{\isacharparenleft}ys{\isacharat}zs{\isacharparenright}{\isacharparenright}\ {\isacharequal}\ xs{\isacharat}zs{\isachardoublequote}\isanewline
10668
3b84288e60b7 updated;
wenzelm
parents: 10645
diff changeset
   275
\isacommand{apply}{\isacharparenleft}split\ list{\isachardot}split{\isacharparenright}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   276
\begin{isamarkuptxt}%
10362
c6b197ccf1f1 *** empty log message ***
nipkow
parents: 10187
diff changeset
   277
\begin{isabelle}%
c6b197ccf1f1 *** empty log message ***
nipkow
parents: 10187
diff changeset
   278
\ {\isadigit{1}}{\isachardot}\ {\isacharparenleft}xs\ {\isacharequal}\ {\isacharbrackleft}{\isacharbrackright}\ {\isasymlongrightarrow}\ zs\ {\isacharequal}\ xs\ {\isacharat}\ zs{\isacharparenright}\ {\isasymand}\isanewline
10950
aa788fcb75a5 updated;
wenzelm
parents: 10878
diff changeset
   279
\isaindent{\ {\isadigit{1}}{\isachardot}\ }{\isacharparenleft}{\isasymforall}a\ list{\isachardot}\ xs\ {\isacharequal}\ a\ {\isacharhash}\ list\ {\isasymlongrightarrow}\ a\ {\isacharhash}\ list\ {\isacharat}\ zs\ {\isacharequal}\ xs\ {\isacharat}\ zs{\isacharparenright}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   280
\end{isabelle}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   281
In contrast to \isa{if}-expressions, the simplifier does not split
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   282
\isa{case}-expressions by default because this can lead to nontermination
10668
3b84288e60b7 updated;
wenzelm
parents: 10645
diff changeset
   283
in case of recursive datatypes. Therefore the simplifier has a modifier
3b84288e60b7 updated;
wenzelm
parents: 10645
diff changeset
   284
\isa{split} for adding further splitting rules explicitly. This means the
3b84288e60b7 updated;
wenzelm
parents: 10645
diff changeset
   285
above lemma can be proved in one step by%
10362
c6b197ccf1f1 *** empty log message ***
nipkow
parents: 10187
diff changeset
   286
\end{isamarkuptxt}%
10171
59d6633835fa *** empty log message ***
nipkow
parents: 9933
diff changeset
   287
\isacommand{apply}{\isacharparenleft}simp\ split{\isacharcolon}\ list{\isachardot}split{\isacharparenright}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   288
\begin{isamarkuptext}%
10668
3b84288e60b7 updated;
wenzelm
parents: 10645
diff changeset
   289
\noindent
3b84288e60b7 updated;
wenzelm
parents: 10645
diff changeset
   290
whereas \isacommand{apply}\isa{{\isacharparenleft}simp{\isacharparenright}} alone will not succeed.
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   291
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   292
In general, every datatype $t$ comes with a theorem
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   293
$t$\isa{{\isachardot}split} which can be declared to be a \bfindex{split rule} either
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   294
locally as above, or by giving it the \isa{split} attribute globally:%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   295
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   296
\isacommand{declare}\ list{\isachardot}split\ {\isacharbrackleft}split{\isacharbrackright}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   297
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   298
\noindent
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   299
The \isa{split} attribute can be removed with the \isa{del} modifier,
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   300
either locally%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   301
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   302
\isacommand{apply}{\isacharparenleft}simp\ split\ del{\isacharcolon}\ split{\isacharunderscore}if{\isacharparenright}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   303
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   304
\noindent
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   305
or globally:%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   306
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   307
\isacommand{declare}\ list{\isachardot}split\ {\isacharbrackleft}split\ del{\isacharbrackright}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   308
\begin{isamarkuptext}%
10668
3b84288e60b7 updated;
wenzelm
parents: 10645
diff changeset
   309
In polished proofs the \isa{split} method is rarely used on its own
3b84288e60b7 updated;
wenzelm
parents: 10645
diff changeset
   310
but always as part of the simplifier. However, if a goal contains
3b84288e60b7 updated;
wenzelm
parents: 10645
diff changeset
   311
multiple splittable constructs, the \isa{split} method can be
3b84288e60b7 updated;
wenzelm
parents: 10645
diff changeset
   312
helpful in selectively exploring the effects of splitting.
3b84288e60b7 updated;
wenzelm
parents: 10645
diff changeset
   313
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   314
The above split rules intentionally only affect the conclusion of a
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   315
subgoal.  If you want to split an \isa{if} or \isa{case}-expression in
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   316
the assumptions, you have to apply \isa{split{\isacharunderscore}if{\isacharunderscore}asm} or
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   317
$t$\isa{{\isachardot}split{\isacharunderscore}asm}:%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   318
\end{isamarkuptext}%
10668
3b84288e60b7 updated;
wenzelm
parents: 10645
diff changeset
   319
\isacommand{lemma}\ {\isachardoublequote}if\ xs\ {\isacharequal}\ {\isacharbrackleft}{\isacharbrackright}\ then\ ys\ {\isasymnoteq}\ {\isacharbrackleft}{\isacharbrackright}\ else\ ys\ {\isacharequal}\ {\isacharbrackleft}{\isacharbrackright}\ {\isasymLongrightarrow}\ xs\ {\isacharat}\ ys\ {\isasymnoteq}\ {\isacharbrackleft}{\isacharbrackright}{\isachardoublequote}\isanewline
3b84288e60b7 updated;
wenzelm
parents: 10645
diff changeset
   320
\isacommand{apply}{\isacharparenleft}split\ split{\isacharunderscore}if{\isacharunderscore}asm{\isacharparenright}%
10362
c6b197ccf1f1 *** empty log message ***
nipkow
parents: 10187
diff changeset
   321
\begin{isamarkuptxt}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   322
\noindent
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   323
In contrast to splitting the conclusion, this actually creates two
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   324
separate subgoals (which are solved by \isa{simp{\isacharunderscore}all}):
10362
c6b197ccf1f1 *** empty log message ***
nipkow
parents: 10187
diff changeset
   325
\begin{isabelle}%
10696
76d7f6c9a14c *** empty log message ***
nipkow
parents: 10668
diff changeset
   326
\ {\isadigit{1}}{\isachardot}\ {\isasymlbrakk}xs\ {\isacharequal}\ {\isacharbrackleft}{\isacharbrackright}{\isacharsemicolon}\ ys\ {\isasymnoteq}\ {\isacharbrackleft}{\isacharbrackright}{\isasymrbrakk}\ {\isasymLongrightarrow}\ xs\ {\isacharat}\ ys\ {\isasymnoteq}\ {\isacharbrackleft}{\isacharbrackright}\isanewline
76d7f6c9a14c *** empty log message ***
nipkow
parents: 10668
diff changeset
   327
\ {\isadigit{2}}{\isachardot}\ {\isasymlbrakk}xs\ {\isasymnoteq}\ {\isacharbrackleft}{\isacharbrackright}{\isacharsemicolon}\ ys\ {\isacharequal}\ {\isacharbrackleft}{\isacharbrackright}{\isasymrbrakk}\ {\isasymLongrightarrow}\ xs\ {\isacharat}\ ys\ {\isasymnoteq}\ {\isacharbrackleft}{\isacharbrackright}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   328
\end{isabelle}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   329
If you need to split both in the assumptions and the conclusion,
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   330
use $t$\isa{{\isachardot}splits} which subsumes $t$\isa{{\isachardot}split} and
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   331
$t$\isa{{\isachardot}split{\isacharunderscore}asm}. Analogously, there is \isa{if{\isacharunderscore}splits}.
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   332
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   333
\begin{warn}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   334
  The simplifier merely simplifies the condition of an \isa{if} but not the
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   335
  \isa{then} or \isa{else} parts. The latter are simplified only after the
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   336
  condition reduces to \isa{True} or \isa{False}, or after splitting. The
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   337
  same is true for \isaindex{case}-expressions: only the selector is
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   338
  simplified at first, until either the expression reduces to one of the
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   339
  cases or it is split.
10668
3b84288e60b7 updated;
wenzelm
parents: 10645
diff changeset
   340
\end{warn}\index{*split (method, attr.)|)}%
10362
c6b197ccf1f1 *** empty log message ***
nipkow
parents: 10187
diff changeset
   341
\end{isamarkuptxt}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   342
%
11214
3b3cc0cf533f *** empty log message ***
nipkow
parents: 11206
diff changeset
   343
\isamarkupsubsection{Arithmetic%
10397
e2d0dda41f2c auto update
paulson
parents: 10396
diff changeset
   344
}
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   345
%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   346
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   347
\index{arithmetic}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   348
The simplifier routinely solves a small class of linear arithmetic formulae
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   349
(over type \isa{nat} and other numeric types): it only takes into account
10795
9e888d60d3e5 minor edits to Chapters 1-3
paulson
parents: 10788
diff changeset
   350
assumptions and conclusions that are relations
9e888d60d3e5 minor edits to Chapters 1-3
paulson
parents: 10788
diff changeset
   351
($=$, $\le$, $<$, possibly negated) and it only knows about addition. Thus%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   352
\end{isamarkuptext}%
10187
0376cccd9118 *** empty log message ***
nipkow
parents: 10171
diff changeset
   353
\isacommand{lemma}\ {\isachardoublequote}{\isasymlbrakk}\ {\isasymnot}\ m\ {\isacharless}\ n{\isacharsemicolon}\ m\ {\isacharless}\ n{\isacharplus}{\isadigit{1}}\ {\isasymrbrakk}\ {\isasymLongrightarrow}\ m\ {\isacharequal}\ n{\isachardoublequote}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   354
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   355
\noindent
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   356
is proved by simplification, whereas the only slightly more complex%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   357
\end{isamarkuptext}%
10187
0376cccd9118 *** empty log message ***
nipkow
parents: 10171
diff changeset
   358
\isacommand{lemma}\ {\isachardoublequote}{\isasymnot}\ m\ {\isacharless}\ n\ {\isasymand}\ m\ {\isacharless}\ n{\isacharplus}{\isadigit{1}}\ {\isasymLongrightarrow}\ m\ {\isacharequal}\ n{\isachardoublequote}%
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   359
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   360
\noindent
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   361
is not proved by simplification and requires \isa{arith}.%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   362
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   363
%
11214
3b3cc0cf533f *** empty log message ***
nipkow
parents: 11206
diff changeset
   364
\isamarkupsubsection{Tracing%
10397
e2d0dda41f2c auto update
paulson
parents: 10396
diff changeset
   365
}
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   366
%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   367
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   368
\indexbold{tracing the simplifier}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   369
Using the simplifier effectively may take a bit of experimentation.  Set the
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   370
\isaindexbold{trace_simp} \rmindex{flag} to get a better idea of what is going
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   371
on:%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   372
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   373
\isacommand{ML}\ {\isachardoublequote}set\ trace{\isacharunderscore}simp{\isachardoublequote}\isanewline
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   374
\isacommand{lemma}\ {\isachardoublequote}rev\ {\isacharbrackleft}a{\isacharbrackright}\ {\isacharequal}\ {\isacharbrackleft}{\isacharbrackright}{\isachardoublequote}\isanewline
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   375
\isacommand{apply}{\isacharparenleft}simp{\isacharparenright}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   376
\begin{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   377
\noindent
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   378
produces the trace
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   379
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   380
\begin{ttbox}\makeatother
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   381
Applying instance of rewrite rule:
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   382
rev (?x1 \# ?xs1) == rev ?xs1 @ [?x1]
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   383
Rewriting:
10971
6852682eaf16 *** empty log message ***
nipkow
parents: 10950
diff changeset
   384
rev [a] == rev [] @ [a]
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   385
Applying instance of rewrite rule:
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   386
rev [] == []
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   387
Rewriting:
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   388
rev [] == []
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   389
Applying instance of rewrite rule:
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   390
[] @ ?y == ?y
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   391
Rewriting:
10971
6852682eaf16 *** empty log message ***
nipkow
parents: 10950
diff changeset
   392
[] @ [a] == [a]
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   393
Applying instance of rewrite rule:
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   394
?x3 \# ?t3 = ?t3 == False
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   395
Rewriting:
10971
6852682eaf16 *** empty log message ***
nipkow
parents: 10950
diff changeset
   396
[a] = [] == False
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   397
\end{ttbox}
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   398
11309
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
   399
The trace lists each rule being applied, both in its general form and the 
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
   400
instance being used.  For conditional rules, the trace lists the rule
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
   401
it is trying to rewrite and gives the result of attempting to prove
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
   402
each of the rule's conditions.  Many other hints about the simplifier's
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
   403
actions will appear.
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
   404
d666f11ca2d4 minor suggestions by Tanja Vos
paulson
parents: 11215
diff changeset
   405
In more complicated cases, the trace can be quite lengthy, especially since
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   406
invocations of the simplifier are often nested (e.g.\ when solving conditions
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   407
of rewrite rules). Thus it is advisable to reset it:%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   408
\end{isamarkuptext}%
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9924
diff changeset
   409
\isacommand{ML}\ {\isachardoublequote}reset\ trace{\isacharunderscore}simp{\isachardoublequote}\isanewline
9924
3370f6aa3200 updated;
wenzelm
parents: 9911
diff changeset
   410
\end{isabellebody}%
3370f6aa3200 updated;
wenzelm
parents: 9911
diff changeset
   411
%%% Local Variables:
3370f6aa3200 updated;
wenzelm
parents: 9911
diff changeset
   412
%%% mode: latex
3370f6aa3200 updated;
wenzelm
parents: 9911
diff changeset
   413
%%% TeX-master: "root"
3370f6aa3200 updated;
wenzelm
parents: 9911
diff changeset
   414
%%% End: