doc-src/TutorialI/Misc/document/Tree2.tex
author wenzelm
Sun, 28 Aug 2005 19:42:19 +0200
changeset 17175 1eced27ee0e1
parent 17056 05fc32a23b8b
child 17181 5f42dd5e6570
permissions -rw-r--r--
updated;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9722
a5f86aed785b *** empty log message ***
nipkow
parents: 9721
diff changeset
     1
%
a5f86aed785b *** empty log message ***
nipkow
parents: 9721
diff changeset
     2
\begin{isabellebody}%
10267
325ead6d9457 updated;
wenzelm
parents: 10187
diff changeset
     3
\def\isabellecontext{Tree{\isadigit{2}}}%
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
     4
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
     5
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
     6
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
     7
\endisadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
     8
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
     9
\isatagtheory
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    10
\isamarkupfalse%
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    11
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    12
\endisatagtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    13
{\isafoldtheory}%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    14
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    15
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    16
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    17
\endisadelimtheory
9493
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    18
%
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    19
\begin{isamarkuptext}%
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    20
\noindent In Exercise~\ref{ex:Tree} we defined a function
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    21
\isa{flatten} from trees to lists. The straightforward version of
9792
bbefb6ce5cb2 *** empty log message ***
nipkow
parents: 9722
diff changeset
    22
\isa{flatten} is based on \isa{{\isacharat}} and is thus, like \isa{rev},
bbefb6ce5cb2 *** empty log message ***
nipkow
parents: 9722
diff changeset
    23
quadratic. A linear time version of \isa{flatten} again reqires an extra
9493
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    24
argument, the accumulator:%
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    25
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    26
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    27
\isacommand{consts}\isamarkupfalse%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    28
\ flatten{\isadigit{2}}\ {\isacharcolon}{\isacharcolon}\ {\isachardoublequoteopen}{\isacharprime}a\ tree\ {\isasymRightarrow}\ {\isacharprime}a\ list\ {\isasymRightarrow}\ {\isacharprime}a\ list{\isachardoublequoteclose}\isamarkupfalse%
11866
fbd097aec213 updated;
wenzelm
parents: 10267
diff changeset
    29
%
9493
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    30
\begin{isamarkuptext}%
10187
0376cccd9118 *** empty log message ***
nipkow
parents: 9924
diff changeset
    31
\noindent Define \isa{flatten{\isadigit{2}}} and prove%
9493
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    32
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    33
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    34
\isamarkupfalse%
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    35
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    36
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    37
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    38
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    39
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    40
\isatagproof
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    41
\isamarkupfalse%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    42
\isamarkupfalse%
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    43
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    44
\endisatagproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    45
{\isafoldproof}%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    46
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    47
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    48
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    49
\endisadelimproof
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    50
\isacommand{lemma}\isamarkupfalse%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    51
\ {\isachardoublequoteopen}flatten{\isadigit{2}}\ t\ {\isacharbrackleft}{\isacharbrackright}\ {\isacharequal}\ flatten\ t{\isachardoublequoteclose}%
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    52
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    53
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    54
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    55
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    56
\isatagproof
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    57
\isamarkupfalse%
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    58
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    59
\endisatagproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    60
{\isafoldproof}%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    61
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    62
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    63
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    64
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    65
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    66
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    67
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    68
\endisadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    69
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    70
\isatagtheory
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    71
\isamarkupfalse%
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    72
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    73
\endisatagtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    74
{\isafoldtheory}%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    75
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    76
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    77
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    78
\endisadelimtheory
11866
fbd097aec213 updated;
wenzelm
parents: 10267
diff changeset
    79
\end{isabellebody}%
9493
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    80
%%% Local Variables:
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    81
%%% mode: latex
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    82
%%% TeX-master: "root"
494f8cd34df7 *** empty log message ***
nipkow
parents:
diff changeset
    83
%%% End: