doc-src/TutorialI/Misc/document/cond_rewr.tex
author nipkow
Tue, 25 Apr 2000 08:09:10 +0200
changeset 8771 026f37a86ea7
parent 8749 2665170f104a
child 9145 9f7b8de5bfaf
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     1
\begin{isabelle}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     2
%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     3
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     4
So far all examples of rewrite rules were equations. The simplifier also
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     5
accepts \emph{conditional} equations, for example%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     6
\end{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     7
\isacommand{lemma}~hd\_Cons\_tl[simp]:~{"}xs~{\isasymnoteq}~[]~~{\isasymLongrightarrow}~~hd~xs~\#~tl~xs~=~xs{"}\isanewline
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     8
\isacommand{apply}(case\_tac~xs,~simp,~simp)\isacommand{.}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
     9
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    10
\noindent
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    11
Note the use of ``\ttindexboldpos{,}{$Isar}'' to string together a
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    12
sequence of methods. Assuming that the simplification rule%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    13
\end{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    14
~{"}(rev~xs~=~[])~=~(xs~=~[]){"}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    15
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    16
\noindent
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    17
is present as well,%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    18
\end{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    19
\isacommand{lemma}~{"}xs~{\isasymnoteq}~[]~{\isasymLongrightarrow}~hd(rev~xs)~\#~tl(rev~xs)~=~rev~xs{"}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    20
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    21
\noindent
8771
026f37a86ea7 *** empty log message ***
nipkow
parents: 8749
diff changeset
    22
is proved by plain simplification:
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    23
the conditional equation \isa{hd_Cons_tl} above
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    24
can simplify \isa{hd(rev~xs)~\#~tl(rev~xs)} to \isa{rev xs}
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    25
because the corresponding precondition \isa{rev xs \isasymnoteq\ []}
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    26
simplifies to \isa{xs \isasymnoteq\ []}, which is exactly the local
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    27
assumption of the subgoal.%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    28
\end{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    29
\end{isabelle}%