| 8745 |      1 | (*<*)
 | 
|  |      2 | theory pairs = Main:;
 | 
| 9541 |      3 | (*>*)
 | 
| 11428 |      4 | text{*\label{sec:pairs}\index{pairs and tuples}
 | 
|  |      5 | HOL also has ordered pairs: \isa{($a@1$,$a@2$)} is of type $\tau@1$
 | 
| 10538 |      6 | \indexboldpos{\isasymtimes}{$Isatype} $\tau@2$ provided each $a@i$ is of type
 | 
| 11428 |      7 | $\tau@i$. The functions \cdx{fst} and
 | 
|  |      8 | \cdx{snd} extract the components of a pair:
 | 
| 10538 |      9 |  \isa{fst($x$,$y$) = $x$} and \isa{snd($x$,$y$) = $y$}. Tuples
 | 
| 9933 |     10 | are simulated by pairs nested to the right: \isa{($a@1$,$a@2$,$a@3$)} stands
 | 
|  |     11 | for \isa{($a@1$,($a@2$,$a@3$))} and $\tau@1 \times \tau@2 \times \tau@3$ for
 | 
|  |     12 | $\tau@1 \times (\tau@2 \times \tau@3)$. Therefore we have
 | 
|  |     13 | \isa{fst(snd($a@1$,$a@2$,$a@3$)) = $a@2$}.
 | 
| 9541 |     14 | 
 | 
| 10539 |     15 | Remarks:
 | 
|  |     16 | \begin{itemize}
 | 
|  |     17 | \item
 | 
| 11428 |     18 | There is also the type \tydx{unit}, which contains exactly one
 | 
| 11456 |     19 | element denoted by~\cdx{()}.  This type can be viewed
 | 
| 10539 |     20 | as a degenerate product with 0 components.
 | 
|  |     21 | \item
 | 
|  |     22 | Products, like type @{typ nat}, are datatypes, which means
 | 
| 10538 |     23 | in particular that @{text induct_tac} and @{text case_tac} are applicable to
 | 
| 10539 |     24 | terms of product type.
 | 
| 10839 |     25 | Both replace the term by a pair of variables.
 | 
| 10539 |     26 | \item
 | 
| 10795 |     27 | Tuples with more than two or three components become unwieldy;
 | 
|  |     28 | records are preferable.
 | 
| 10539 |     29 | \end{itemize}
 | 
|  |     30 | For more information on pairs and records see Chapter~\ref{ch:more-types}.
 | 
| 9541 |     31 | *}
 | 
| 8745 |     32 | (*<*)
 | 
|  |     33 | end
 | 
|  |     34 | (*>*)
 |