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