doc-src/TutorialI/Misc/document/cond_rewr.tex
author wenzelm
Thu, 17 Aug 2000 10:33:37 +0200
changeset 9619 6125cc9efc18
parent 9541 d17c0b34d5c8
child 9644 6b0b6b471855
permissions -rw-r--r--
fixed deps;
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}%
9541
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
     7
\isacommand{lemma}\ hd\_Cons\_tl[simp]:\ {"}xs\ {\isasymnoteq}\ []\ \ {\isasymLongrightarrow}\ \ hd\ xs\ \#\ tl\ xs\ =\ xs{"}\isanewline
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
     8
\isacommand{by}(case\_tac\ xs,\ simp,\ simp)%
8749
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
9541
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
    12
sequence of methods. Assuming that the simplification rule
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
    13
\isa{(rev\ xs\ =\ [])\ =\ (xs\ =\ [])}
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    14
is present as well,%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    15
\end{isamarkuptext}%
9541
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 9458
diff changeset
    16
\isacommand{lemma}\ {"}xs\ {\isasymnoteq}\ []\ {\isasymLongrightarrow}\ hd(rev\ xs)\ \#\ tl(rev\ xs)\ =\ rev\ xs{"}%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    17
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    18
\noindent
8771
026f37a86ea7 *** empty log message ***
nipkow
parents: 8749
diff changeset
    19
is proved by plain simplification:
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    20
the conditional equation \isa{hd_Cons_tl} above
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    21
can simplify \isa{hd(rev~xs)~\#~tl(rev~xs)} to \isa{rev xs}
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    22
because the corresponding precondition \isa{rev xs \isasymnoteq\ []}
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    23
simplifies to \isa{xs \isasymnoteq\ []}, which is exactly the local
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    24
assumption of the subgoal.%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    25
\end{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    26
\end{isabelle}%
9145
9f7b8de5bfaf updated;
wenzelm
parents: 8771
diff changeset
    27
%%% Local Variables:
9f7b8de5bfaf updated;
wenzelm
parents: 8771
diff changeset
    28
%%% mode: latex
9f7b8de5bfaf updated;
wenzelm
parents: 8771
diff changeset
    29
%%% TeX-master: "root"
9f7b8de5bfaf updated;
wenzelm
parents: 8771
diff changeset
    30
%%% End: