doc-src/TutorialI/Types/document/Overloading0.tex
author nipkow
Mon, 23 Oct 2000 20:58:12 +0200
changeset 10305 adff80268127
child 10328 bf33cbd76c05
permissions -rw-r--r--
*** empty log message ***
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}}}%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
     4
%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
     5
\isamarkupsubsubsection{An initial example}
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
     6
%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
     7
\begin{isamarkuptext}%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
     8
We start with a concept that is required for type classes but already
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
     9
useful on its own: \emph{overloading}. Isabelle allows overloading: a
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    10
constant may have multiple definitions at non-overlapping types. For example,
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    11
if we want to introduce the notion of an \emph{inverse} at arbitrary types we
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    12
give it a polymorphic type%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    13
\end{isamarkuptext}%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    14
\isacommand{consts}\ inverse\ {\isacharcolon}{\isacharcolon}\ {\isachardoublequote}{\isacharprime}a\ {\isasymRightarrow}\ {\isacharprime}a{\isachardoublequote}%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    15
\begin{isamarkuptext}%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    16
\noindent
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    17
and provide different definitions at different instances:%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    18
\end{isamarkuptext}%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    19
\isacommand{defs}\ {\isacharparenleft}\isakeyword{overloaded}{\isacharparenright}\isanewline
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    20
inverse{\isacharunderscore}bool{\isacharcolon}\ {\isachardoublequote}inverse{\isacharparenleft}b{\isacharcolon}{\isacharcolon}bool{\isacharparenright}\ {\isasymequiv}\ {\isasymnot}\ b{\isachardoublequote}\isanewline
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    21
inverse{\isacharunderscore}set{\isacharcolon}\ \ {\isachardoublequote}inverse{\isacharparenleft}A{\isacharcolon}{\isacharcolon}{\isacharprime}a\ set{\isacharparenright}\ {\isasymequiv}\ {\isacharminus}A{\isachardoublequote}\isanewline
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    22
inverse{\isacharunderscore}pair{\isacharcolon}\ {\isachardoublequote}inverse{\isacharparenleft}p{\isacharparenright}\ {\isasymequiv}\ {\isacharparenleft}inverse{\isacharparenleft}fst\ p{\isacharparenright}{\isacharcomma}\ inverse{\isacharparenleft}snd\ p{\isacharparenright}{\isacharparenright}{\isachardoublequote}%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    23
\begin{isamarkuptext}%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    24
\noindent
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    25
Isabelle will not complain because the three definitions do not overlap: no
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    26
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
    27
common instance. What is more, the recursion in \isa{inverse{\isacharunderscore}pair} is
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    28
benign because the type of \isa{inverse} becomes smaller: on the left it is
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    29
\isa{{\isacharprime}a\ {\isasymtimes}\ {\isacharprime}b\ {\isasymRightarrow}\ {\isacharprime}a\ {\isasymtimes}\ {\isacharprime}b} but on the right \isa{{\isacharprime}a\ {\isasymRightarrow}\ {\isacharprime}a} and \isa{{\isacharprime}b\ {\isasymRightarrow}\ {\isacharprime}b}. The \isa{{\isacharparenleft}overloaded{\isacharparenright}} tells Isabelle that the definitions do
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    30
intentionally define \isa{inverse} only at instances of its declared type
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    31
\isa{{\isacharprime}a\ {\isasymRightarrow}\ {\isacharprime}a} --- this merely supresses warnings to that effect.
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    32
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    33
However, there is nothing to prevent the user from forming terms such as
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    34
\isa{inverse\ {\isacharbrackleft}{\isacharbrackright}} and proving theorems as \isa{inverse\ {\isacharbrackleft}{\isacharbrackright}\ {\isacharequal}\ inverse\ {\isacharbrackleft}{\isacharbrackright}},
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    35
although we never defined inverse on lists. We hasten to say that there is
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    36
nothing wrong with such terms and theorems. But it would be nice if we could
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    37
prevent their formation, simply because it is very likely that the user did
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    38
not mean to write what he did. Thus he had better not waste his time pursuing
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    39
it further. This requires the use of type classes.%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    40
\end{isamarkuptext}%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    41
\end{isabellebody}%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    42
%%% Local Variables:
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    43
%%% mode: latex
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    44
%%% TeX-master: "root"
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    45
%%% End: