author | Christian Urban <urbanc@in.tum.de> |
Wed, 18 Feb 2009 17:17:37 +0000 | |
changeset 124 | 0b9fa606a746 |
parent 121 | 26e5b41faa74 |
child 127 | 74846cb0fff9 |
permissions | -rw-r--r-- |
32 | 1 |
theory Ind_Intro |
88
ebbd0dd008c8
adaptation of the package chapter to fit the rest
Christian Urban <urbanc@in.tum.de>
parents:
32
diff
changeset
|
2 |
imports Main |
32 | 3 |
begin |
4 |
||
121 | 5 |
chapter {* How to Write a Definitional Package\label{chp:package} *} |
32 | 6 |
|
7 |
text {* |
|
88
ebbd0dd008c8
adaptation of the package chapter to fit the rest
Christian Urban <urbanc@in.tum.de>
parents:
32
diff
changeset
|
8 |
\begin{flushright} |
32 | 9 |
{\em |
88
ebbd0dd008c8
adaptation of the package chapter to fit the rest
Christian Urban <urbanc@in.tum.de>
parents:
32
diff
changeset
|
10 |
``My thesis is that programming is not at the bottom of the intellectual \\ |
ebbd0dd008c8
adaptation of the package chapter to fit the rest
Christian Urban <urbanc@in.tum.de>
parents:
32
diff
changeset
|
11 |
pyramid, but at the top. It's creative design of the highest order. It \\ |
ebbd0dd008c8
adaptation of the package chapter to fit the rest
Christian Urban <urbanc@in.tum.de>
parents:
32
diff
changeset
|
12 |
isn't monkey or donkey work; rather, as Edsger Dijkstra famously \\ |
ebbd0dd008c8
adaptation of the package chapter to fit the rest
Christian Urban <urbanc@in.tum.de>
parents:
32
diff
changeset
|
13 |
claimed, it's amongst the hardest intellectual tasks ever attempted.''} \\[1ex] |
116
c9ff326e3ce5
more changes to the package chapter
Christian Urban <urbanc@in.tum.de>
parents:
115
diff
changeset
|
14 |
Richard Bornat, In Defence of Programming \cite{Bornat-lecture} |
88
ebbd0dd008c8
adaptation of the package chapter to fit the rest
Christian Urban <urbanc@in.tum.de>
parents:
32
diff
changeset
|
15 |
\end{flushright} |
32 | 16 |
|
88
ebbd0dd008c8
adaptation of the package chapter to fit the rest
Christian Urban <urbanc@in.tum.de>
parents:
32
diff
changeset
|
17 |
\medskip |
113 | 18 |
HOL is based on just a few primitive constants, like equality and |
116
c9ff326e3ce5
more changes to the package chapter
Christian Urban <urbanc@in.tum.de>
parents:
115
diff
changeset
|
19 |
implication, whose properties are described by axioms. All other concepts, |
120
c39f83d8daeb
some polishing; split up the file External Solver into two
Christian Urban <urbanc@in.tum.de>
parents:
116
diff
changeset
|
20 |
such as inductive predicates, datatypes, or recursive functions have to be defined |
116
c9ff326e3ce5
more changes to the package chapter
Christian Urban <urbanc@in.tum.de>
parents:
115
diff
changeset
|
21 |
in terms of those constants, and the desired properties, for example |
120
c39f83d8daeb
some polishing; split up the file External Solver into two
Christian Urban <urbanc@in.tum.de>
parents:
116
diff
changeset
|
22 |
induction theorems, or recursion equations have to be derived from the definitions |
116
c9ff326e3ce5
more changes to the package chapter
Christian Urban <urbanc@in.tum.de>
parents:
115
diff
changeset
|
23 |
by a formal proof. Since it would be very tedious for a user to define |
c9ff326e3ce5
more changes to the package chapter
Christian Urban <urbanc@in.tum.de>
parents:
115
diff
changeset
|
24 |
complex inductive predicates or datatypes ``by hand'' just using the |
c9ff326e3ce5
more changes to the package chapter
Christian Urban <urbanc@in.tum.de>
parents:
115
diff
changeset
|
25 |
primitive operators of higher order logic, \emph{definitional packages} have |
c9ff326e3ce5
more changes to the package chapter
Christian Urban <urbanc@in.tum.de>
parents:
115
diff
changeset
|
26 |
been implemented automating such work. Thanks to those packages, the user |
c9ff326e3ce5
more changes to the package chapter
Christian Urban <urbanc@in.tum.de>
parents:
115
diff
changeset
|
27 |
can give a high-level specification, for example a list of introduction |
c9ff326e3ce5
more changes to the package chapter
Christian Urban <urbanc@in.tum.de>
parents:
115
diff
changeset
|
28 |
rules or constructors, and the package then does all the low-level |
c9ff326e3ce5
more changes to the package chapter
Christian Urban <urbanc@in.tum.de>
parents:
115
diff
changeset
|
29 |
definitions and proofs behind the scenes. In this chapter we explain how |
c9ff326e3ce5
more changes to the package chapter
Christian Urban <urbanc@in.tum.de>
parents:
115
diff
changeset
|
30 |
such a package can be implemented. |
32 | 31 |
|
113 | 32 |
As a running example, we have chosen a rather simple package for defining |
115
039845fc96bd
some update of the package introduction
Christian Urban <urbanc@in.tum.de>
parents:
113
diff
changeset
|
33 |
inductive predicates. To keep things really simple, we will not use the general |
113 | 34 |
Knaster-Tarski fixpoint theorem on complete lattices, which forms the basis |
35 |
of Isabelle's standard inductive definition package. Instead, we will use a |
|
36 |
simpler \emph{impredicative} (i.e.\ involving quantification on predicate |
|
37 |
variables) encoding of inductive predicates suggested by Melham |
|
38 |
\cite{Melham:1992:PIR}. Due to its simplicity, this package will necessarily |
|
39 |
have a reduced functionality. It does neither support introduction rules |
|
40 |
involving arbitrary monotone operators, nor does it prove case analysis (or |
|
115
039845fc96bd
some update of the package introduction
Christian Urban <urbanc@in.tum.de>
parents:
113
diff
changeset
|
41 |
inversion) rules. Moreover, it only proves a weaker form of the |
116
c9ff326e3ce5
more changes to the package chapter
Christian Urban <urbanc@in.tum.de>
parents:
115
diff
changeset
|
42 |
induction principle for inductive predicates. |
32 | 43 |
*} |
44 |
||
45 |
end |