doc-src/TutorialI/Types/document/Overloading0.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:
10305
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
     1
%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
     2
\begin{isabellebody}%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
     3
\def\isabellecontext{Overloading{\isadigit{0}}}%
17056
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
     4
%
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
     5
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
     6
%
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
     7
\endisadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
     8
%
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
     9
\isatagtheory
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    10
\isamarkupfalse%
17056
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    11
%
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    12
\endisatagtheory
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    13
{\isafoldtheory}%
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    14
%
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    15
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    16
%
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    17
\endisadelimtheory
10305
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    18
%
10328
bf33cbd76c05 *** empty log message ***
nipkow
parents: 10305
diff changeset
    19
\begin{isamarkuptext}%
bf33cbd76c05 *** empty log message ***
nipkow
parents: 10305
diff changeset
    20
We start with a concept that is required for type classes but already
bf33cbd76c05 *** empty log message ***
nipkow
parents: 10305
diff changeset
    21
useful on its own: \emph{overloading}. Isabelle allows overloading: a
bf33cbd76c05 *** empty log message ***
nipkow
parents: 10305
diff changeset
    22
constant may have multiple definitions at non-overlapping types.%
bf33cbd76c05 *** empty log message ***
nipkow
parents: 10305
diff changeset
    23
\end{isamarkuptext}%
11866
fbd097aec213 updated;
wenzelm
parents: 11494
diff changeset
    24
\isamarkuptrue%
10328
bf33cbd76c05 *** empty log message ***
nipkow
parents: 10305
diff changeset
    25
%
10878
b254d5ad6dd4 auto update
paulson
parents: 10538
diff changeset
    26
\isamarkupsubsubsection{An Initial Example%
10397
e2d0dda41f2c auto update
paulson
parents: 10396
diff changeset
    27
}
11866
fbd097aec213 updated;
wenzelm
parents: 11494
diff changeset
    28
\isamarkuptrue%
10305
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    29
%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    30
\begin{isamarkuptext}%
10328
bf33cbd76c05 *** empty log message ***
nipkow
parents: 10305
diff changeset
    31
If we want to introduce the notion of an \emph{inverse} for arbitrary types we
10305
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    32
give it a polymorphic type%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    33
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    34
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    35
\isacommand{consts}\isamarkupfalse%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    36
\ inverse\ {\isacharcolon}{\isacharcolon}\ {\isachardoublequoteopen}{\isacharprime}a\ {\isasymRightarrow}\ {\isacharprime}a{\isachardoublequoteclose}%
10305
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    37
\begin{isamarkuptext}%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    38
\noindent
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    39
and provide different definitions at different instances:%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    40
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    41
\isamarkuptrue%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    42
\isacommand{defs}\isamarkupfalse%
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    43
\ {\isacharparenleft}\isakeyword{overloaded}{\isacharparenright}\isanewline
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    44
inverse{\isacharunderscore}bool{\isacharcolon}\ {\isachardoublequoteopen}inverse{\isacharparenleft}b{\isacharcolon}{\isacharcolon}bool{\isacharparenright}\ {\isasymequiv}\ {\isasymnot}\ b{\isachardoublequoteclose}\isanewline
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    45
inverse{\isacharunderscore}set{\isacharcolon}\ \ {\isachardoublequoteopen}inverse{\isacharparenleft}A{\isacharcolon}{\isacharcolon}{\isacharprime}a\ set{\isacharparenright}\ {\isasymequiv}\ {\isacharminus}A{\isachardoublequoteclose}\isanewline
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    46
inverse{\isacharunderscore}pair{\isacharcolon}\ {\isachardoublequoteopen}inverse{\isacharparenleft}p{\isacharparenright}\ {\isasymequiv}\ {\isacharparenleft}inverse{\isacharparenleft}fst\ p{\isacharparenright}{\isacharcomma}\ inverse{\isacharparenleft}snd\ p{\isacharparenright}{\isacharparenright}{\isachardoublequoteclose}%
10305
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    47
\begin{isamarkuptext}%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    48
\noindent
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    49
Isabelle will not complain because the three definitions do not overlap: no
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    50
two of the three types \isa{bool}, \isa{{\isacharprime}a\ set} and \isa{{\isacharprime}a\ {\isasymtimes}\ {\isacharprime}b} have a
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    51
common instance. What is more, the recursion in \isa{inverse{\isacharunderscore}pair} is
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10457
diff changeset
    52
benign because the type of \isa{inverse} becomes smaller: on the
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10457
diff changeset
    53
left it is \isa{{\isacharprime}a\ {\isasymtimes}\ {\isacharprime}b\ {\isasymRightarrow}\ {\isacharprime}a\ {\isasymtimes}\ {\isacharprime}b} but on the right \isa{{\isacharprime}a\ {\isasymRightarrow}\ {\isacharprime}a} and
11196
bb4ede27fcb7 *** empty log message ***
nipkow
parents: 10878
diff changeset
    54
\isa{{\isacharprime}b\ {\isasymRightarrow}\ {\isacharprime}b}. The annotation \isa{{\isacharparenleft}}\isacommand{overloaded}\isa{{\isacharparenright}} tells Isabelle that
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10457
diff changeset
    55
the definitions do intentionally define \isa{inverse} only at
11310
51e70b7bc315 spelling check
paulson
parents: 11213
diff changeset
    56
instances of its declared type \isa{{\isacharprime}a\ {\isasymRightarrow}\ {\isacharprime}a} --- this merely suppresses
10538
d1bf9ca9008d *** empty log message ***
nipkow
parents: 10457
diff changeset
    57
warnings to that effect.
10305
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    58
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    59
However, there is nothing to prevent the user from forming terms such as
11494
23a118849801 revisions and indexing
paulson
parents: 11310
diff changeset
    60
\isa{inverse\ {\isacharbrackleft}{\isacharbrackright}} and proving theorems such as \isa{inverse\ {\isacharbrackleft}{\isacharbrackright}\ {\isacharequal}\ inverse\ {\isacharbrackleft}{\isacharbrackright}} when inverse is not defined on lists.  Proving theorems about
12332
aea72a834c85 *** empty log message ***
nipkow
parents: 11866
diff changeset
    61
unspecified constants does not endanger soundness, but it is pointless.
11494
23a118849801 revisions and indexing
paulson
parents: 11310
diff changeset
    62
To prevent such terms from even being formed requires the use of type classes.%
10305
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    63
\end{isamarkuptext}%
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    64
\isamarkuptrue%
17056
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    65
%
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    66
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    67
%
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    68
\endisadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    69
%
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    70
\isatagtheory
17175
1eced27ee0e1 updated;
wenzelm
parents: 17056
diff changeset
    71
\isamarkupfalse%
17056
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    72
%
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    73
\endisatagtheory
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    74
{\isafoldtheory}%
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    75
%
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    76
\isadelimtheory
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    77
%
05fc32a23b8b updated;
wenzelm
parents: 13778
diff changeset
    78
\endisadelimtheory
10305
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    79
\end{isabellebody}%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    80
%%% Local Variables:
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    81
%%% mode: latex
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    82
%%% TeX-master: "root"
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    83
%%% End: