doc-src/TutorialI/Misc/document/Tree2.tex
author nipkow
Tue, 29 Aug 2000 15:13:10 +0200
changeset 9721 7e51c9f3d5a0
parent 9717 699de91b15e2
child 9722 a5f86aed785b
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9721
7e51c9f3d5a0 *** empty log message ***
nipkow
parents: 9717
diff changeset
     1
\begin{isabelle}%
9493
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
     2
%
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
     3
\begin{isamarkuptext}%
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
     4
\noindent In Exercise~\ref{ex:Tree} we defined a function
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
     5
\isa{flatten} from trees to lists. The straightforward version of
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
     6
\isa{flatten} is based on \isa{\at} and is thus, like \isa{rev}, quadratic.
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
     7
A linear time version of \isa{flatten} again reqires an extra
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
     8
argument, the accumulator:%
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
     9
\end{isamarkuptext}%
9673
1b2d4f995b13 updated;
wenzelm
parents: 9541
diff changeset
    10
\isacommand{consts}\ flatten\isadigit{2}\ {\isacharcolon}{\isacharcolon}\ {\isachardoublequote}{\isacharprime}a\ tree\ {\isacharequal}{\isachargreater}\ {\isacharprime}a\ list\ {\isacharequal}{\isachargreater}\ {\isacharprime}a\ list{\isachardoublequote}%
9493
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    11
\begin{isamarkuptext}%
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    12
\noindent Define \isa{flatten2} and prove%
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    13
\end{isamarkuptext}%
9721
7e51c9f3d5a0 *** empty log message ***
nipkow
parents: 9717
diff changeset
    14
\isacommand{lemma}\ {\isachardoublequote}flatten\isadigit{2}\ t\ {\isacharbrackleft}{\isacharbrackright}\ {\isacharequal}\ flatten\ t{\isachardoublequote}\end{isabelle}%
9493
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    15
%%% Local Variables:
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    16
%%% mode: latex
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    17
%%% TeX-master: "root"
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    18
%%% End: