doc-src/TutorialI/Misc/Option2.thy
author immler@in.tum.de
Thu, 26 Feb 2009 10:13:43 +0100
changeset 30151 629f3a92863e
parent 16417 9bc16273c2d4
child 35416 d8d7d1b785af
permissions -rw-r--r--
removed global ref dfg_format
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
10561
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
     1
(*<*)
16417
9bc16273c2d4 migrated theory headers to new format
haftmann
parents: 15905
diff changeset
     2
theory Option2 imports Main begin
10561
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
     3
hide const None Some
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
     4
hide type option
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
     5
(*>*)
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
     6
11428
332347b9b942 tidying the index
paulson
parents: 11310
diff changeset
     7
text{*\indexbold{*option (type)}\indexbold{*None (constant)}%
332347b9b942 tidying the index
paulson
parents: 11310
diff changeset
     8
\indexbold{*Some (constant)}
10561
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
     9
Our final datatype is very simple but still eminently useful:
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    10
*}
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    11
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    12
datatype 'a option = None | Some 'a;
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    13
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    14
text{*\noindent
11310
51e70b7bc315 spelling check
paulson
parents: 10561
diff changeset
    15
Frequently one needs to add a distinguished element to some existing type.
10561
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    16
For example, type @{text"t option"} can model the result of a computation that
15905
0a4cc9b113c7 introduced @{const ...} antiquotation
haftmann
parents: 11428
diff changeset
    17
may either terminate with an error (represented by @{const None}) or return
10561
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    18
some value @{term v} (represented by @{term"Some v"}).
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    19
Similarly, @{typ nat} extended with $\infty$ can be modeled by type
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    20
@{typ"nat option"}. In both cases one could define a new datatype with
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    21
customized constructors like @{term Error} and @{term Infinity},
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    22
but it is often simpler to use @{text option}. For an application see
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    23
\S\ref{sec:Trie}.
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    24
*}
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    25
(*<*)
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    26
(*
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    27
constdefs
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    28
 infplus :: "nat option \<Rightarrow> nat option \<Rightarrow> nat option"
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    29
"infplus x y \<equiv> case x of None \<Rightarrow> None
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    30
               | Some m \<Rightarrow> (case y of None \<Rightarrow> None | Some n \<Rightarrow> Some(m+n))"
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    31
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    32
*)
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    33
end
d960cc4a6afc *** empty log message ***
nipkow
parents:
diff changeset
    34
(*>*)