doc-src/TutorialI/Types/document/Overloading.tex
author nipkow
Wed, 07 Mar 2001 15:54:11 +0100
changeset 11196 bb4ede27fcb7
parent 10328 bf33cbd76c05
child 11494 23a118849801
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}%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
     4
\isacommand{instance}\ list\ {\isacharcolon}{\isacharcolon}\ {\isacharparenleft}{\isachardoublequote}term{\isachardoublequote}{\isacharparenright}ordrel\isanewline
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
     5
\isacommand{by}\ intro{\isacharunderscore}classes%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
     6
\begin{isamarkuptext}%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
     7
\noindent
10328
bf33cbd76c05 *** empty log message ***
nipkow
parents: 10305
diff changeset
     8
This \isacommand{instance} declaration can be read like the declaration of
bf33cbd76c05 *** empty log message ***
nipkow
parents: 10305
diff changeset
     9
a function on types: the constructor \isa{list} maps types of class \isa{term}, i.e.\ all HOL types, to types of class \isa{ordrel}, i.e.\
bf33cbd76c05 *** empty log message ***
nipkow
parents: 10305
diff changeset
    10
if \isa{ty\ {\isacharcolon}{\isacharcolon}\ term} then \isa{ty\ list\ {\isacharcolon}{\isacharcolon}\ ordrel}.
bf33cbd76c05 *** empty log message ***
nipkow
parents: 10305
diff changeset
    11
Of course we should also define the meaning of \isa{{\isacharless}{\isacharless}{\isacharequal}} and
bf33cbd76c05 *** empty log message ***
nipkow
parents: 10305
diff changeset
    12
\isa{{\isacharless}{\isacharless}} on lists:%
10305
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    13
\end{isamarkuptext}%
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    14
\isacommand{defs}\ {\isacharparenleft}\isakeyword{overloaded}{\isacharparenright}\isanewline
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    15
prefix{\isacharunderscore}def{\isacharcolon}\isanewline
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    16
\ \ {\isachardoublequote}xs\ {\isacharless}{\isacharless}{\isacharequal}\ {\isacharparenleft}ys{\isacharcolon}{\isacharcolon}{\isacharprime}a{\isacharcolon}{\isacharcolon}ordrel\ list{\isacharparenright}\ \ {\isasymequiv}\ \ {\isasymexists}zs{\isachardot}\ ys\ {\isacharequal}\ xs{\isacharat}zs{\isachardoublequote}\isanewline
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    17
strict{\isacharunderscore}prefix{\isacharunderscore}def{\isacharcolon}\isanewline
11196
bb4ede27fcb7 *** empty log message ***
nipkow
parents: 10328
diff changeset
    18
\ \ {\isachardoublequote}xs\ {\isacharless}{\isacharless}\ {\isacharparenleft}ys{\isacharcolon}{\isacharcolon}{\isacharprime}a{\isacharcolon}{\isacharcolon}ordrel\ list{\isacharparenright}\ \ \ {\isasymequiv}\ \ xs\ {\isacharless}{\isacharless}{\isacharequal}\ ys\ {\isasymand}\ xs\ {\isasymnoteq}\ ys{\isachardoublequote}\end{isabellebody}%
10305
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    19
%%% Local Variables:
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    20
%%% mode: latex
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    21
%%% TeX-master: "root"
adff80268127 *** empty log message ***
nipkow
parents:
diff changeset
    22
%%% End: