doc-src/TutorialI/Misc/pairs.thy
author wenzelm
Sun, 15 Oct 2000 19:50:35 +0200
changeset 10220 2a726de6e124
parent 9933 9feb1e0c4cb3
child 10538 d1bf9ca9008d
permissions -rw-r--r--
proper symbol markup with \isamath, \isatext; support sub/super scripts:
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8745
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
     1
(*<*)
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
     2
theory pairs = Main:;
9541
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 8745
diff changeset
     3
(*>*)
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 8745
diff changeset
     4
text{*
9933
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9792
diff changeset
     5
HOL also has pairs: \isa{($a@1$,$a@2$)} is of type $\tau@1$
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9792
diff changeset
     6
\indexboldpos{\isasymtimes}{$IsaFun} $\tau@2$ provided each $a@i$ is of type
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9792
diff changeset
     7
$\tau@i$. The components of a pair are extracted by @{term"fst"} and
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9792
diff changeset
     8
@{term"snd"}: \isa{fst($x$,$y$) = $x$} and \isa{snd($x$,$y$) = $y$}. Tuples
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9792
diff changeset
     9
are simulated by pairs nested to the right: \isa{($a@1$,$a@2$,$a@3$)} stands
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9792
diff changeset
    10
for \isa{($a@1$,($a@2$,$a@3$))} and $\tau@1 \times \tau@2 \times \tau@3$ for
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9792
diff changeset
    11
$\tau@1 \times (\tau@2 \times \tau@3)$. Therefore we have
9feb1e0c4cb3 *** empty log message ***
nipkow
parents: 9792
diff changeset
    12
\isa{fst(snd($a@1$,$a@2$,$a@3$)) = $a@2$}.
9541
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 8745
diff changeset
    13
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 8745
diff changeset
    14
It is possible to use (nested) tuples as patterns in abstractions, for
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 8745
diff changeset
    15
example \isa{\isasymlambda(x,y,z).x+y+z} and
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 8745
diff changeset
    16
\isa{\isasymlambda((x,y),z).x+y+z}.
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 8745
diff changeset
    17
In addition to explicit $\lambda$-abstractions, tuple patterns can be used in
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 8745
diff changeset
    18
most variable binding constructs. Typical examples are
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 8745
diff changeset
    19
\begin{quote}
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 8745
diff changeset
    20
@{term"let (x,y) = f z in (y,x)"}\\
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 8745
diff changeset
    21
@{term"case xs of [] => 0 | (x,y)#zs => x+y"}
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 8745
diff changeset
    22
\end{quote}
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 8745
diff changeset
    23
Further important examples are quantifiers and sets (see~\S\ref{quant-pats}).
d17c0b34d5c8 *** empty log message ***
nipkow
parents: 8745
diff changeset
    24
*}
8745
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
    25
(*<*)
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
    26
end
13b32661dde4 I wonder which files i forgot.
nipkow
parents:
diff changeset
    27
(*>*)