doc-src/TutorialI/document/Tree.tex
author wenzelm
Thu, 26 Jul 2012 17:16:02 +0200
changeset 48519 5deda0549f97
parent 40406 doc-src/TutorialI/Misc/document/Tree.tex@313a24b66a8d
permissions -rw-r--r--
simplified Tutorial sessions; moved original version of generated .tex sources;
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}%
9924
3370f6aa3200 updated;
wenzelm
parents: 9722
diff changeset
     3
\def\isabellecontext{Tree}%
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
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    10
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    11
\endisatagtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    12
{\isafoldtheory}%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    13
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    14
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    15
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    16
\endisadelimtheory
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    17
%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    18
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    19
\noindent
11456
7eb63f63e6c6 revisions and indexing
paulson
parents: 10795
diff changeset
    20
Define the datatype of \rmindex{binary trees}:%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    21
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    22
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    23
\isacommand{datatype}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 17187
diff changeset
    24
\ {\isaliteral{27}{\isacharprime}}a\ tree\ {\isaliteral{3D}{\isacharequal}}\ Tip\ {\isaliteral{7C}{\isacharbar}}\ Node\ {\isaliteral{22}{\isachardoublequoteopen}}{\isaliteral{27}{\isacharprime}}a\ tree{\isaliteral{22}{\isachardoublequoteclose}}\ {\isaliteral{27}{\isacharprime}}a\ {\isaliteral{22}{\isachardoublequoteopen}}{\isaliteral{27}{\isacharprime}}a\ tree{\isaliteral{22}{\isachardoublequoteclose}}%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    25
\begin{isamarkuptext}%
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    26
\noindent
11456
7eb63f63e6c6 revisions and indexing
paulson
parents: 10795
diff changeset
    27
Define a function \isa{mirror} that mirrors a binary tree
10795
9e888d60d3e5 minor edits to Chapters 1-3
paulson
parents: 9924
diff changeset
    28
by swapping subtrees recursively. Prove%
8749
2665170f104a Adding generated files
nipkow
parents:
diff changeset
    29
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    30
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    31
\isacommand{lemma}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 17187
diff changeset
    32
\ mirror{\isaliteral{5F}{\isacharunderscore}}mirror{\isaliteral{3A}{\isacharcolon}}\ {\isaliteral{22}{\isachardoublequoteopen}}mirror{\isaliteral{28}{\isacharparenleft}}mirror\ t{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{3D}{\isacharequal}}\ t{\isaliteral{22}{\isachardoublequoteclose}}%
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    33
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    34
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    35
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    36
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    37
\isatagproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    38
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    39
\endisatagproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    40
{\isafoldproof}%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    41
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    42
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    43
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    44
\endisadelimproof
11866
fbd097aec213 updated;
wenzelm
parents: 11456
diff changeset
    45
%
9493
494f8cd34df7 *** empty log message ***
nipkow
parents: 9145
diff changeset
    46
\begin{isamarkuptext}%
494f8cd34df7 *** empty log message ***
nipkow
parents: 9145
diff changeset
    47
\noindent
494f8cd34df7 *** empty log message ***
nipkow
parents: 9145
diff changeset
    48
Define a function \isa{flatten} that flattens a tree into a list
494f8cd34df7 *** empty log message ***
nipkow
parents: 9145
diff changeset
    49
by traversing it in infix order. Prove%
494f8cd34df7 *** empty log message ***
nipkow
parents: 9145
diff changeset
    50
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    51
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    52
\isacommand{lemma}\isamarkupfalse%
40406
313a24b66a8d updated generated files;
wenzelm
parents: 17187
diff changeset
    53
\ {\isaliteral{22}{\isachardoublequoteopen}}flatten{\isaliteral{28}{\isacharparenleft}}mirror\ t{\isaliteral{29}{\isacharparenright}}\ {\isaliteral{3D}{\isacharequal}}\ rev{\isaliteral{28}{\isacharparenleft}}flatten\ t{\isaliteral{29}{\isacharparenright}}{\isaliteral{22}{\isachardoublequoteclose}}%
17056
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    54
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    55
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    56
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    57
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    58
\isatagproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    59
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    60
\endisatagproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    61
{\isafoldproof}%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    62
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    63
\isadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    64
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    65
\endisadelimproof
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    66
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    67
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    68
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    69
\endisadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    70
%
05fc32a23b8b updated;
wenzelm
parents: 16069
diff changeset
    71
\isatagtheory
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: 11456
diff changeset
    79
\end{isabellebody}%
9145
9f7b8de5bfaf updated;
wenzelm
parents: 8749
diff changeset
    80
%%% Local Variables:
9f7b8de5bfaf updated;
wenzelm
parents: 8749
diff changeset
    81
%%% mode: latex
9f7b8de5bfaf updated;
wenzelm
parents: 8749
diff changeset
    82
%%% TeX-master: "root"
9f7b8de5bfaf updated;
wenzelm
parents: 8749
diff changeset
    83
%%% End: