| author | wenzelm |
| Tue, 21 Sep 1999 17:31:20 +0200 | |
| changeset 7566 | c5a3f980a7af |
| parent 6349 | f7750d816c21 |
| child 8127 | 68c6159440f1 |
| permissions | -rw-r--r-- |
| 1461 | 1 |
(* Title: ZF/ROOT |
|
6
8ce8c4d13d4d
Installation of new simplifier for ZF. Deleted all congruence rules not
lcp
parents:
5
diff
changeset
|
2 |
ID: $Id$ |
| 1461 | 3 |
Author: Lawrence C Paulson, Cambridge University Computer Laboratory |
| 0 | 4 |
Copyright 1993 University of Cambridge |
5 |
||
6 |
Adds Zermelo-Fraenkel Set Theory to a database containing First-Order Logic. |
|
7 |
||
8 |
This theory is the work of Martin Coen, Philippe Noel and Lawrence Paulson. |
|
9 |
*) |
|
10 |
||
11 |
val banner = "ZF Set Theory (in FOL)"; |
|
12 |
writeln banner; |
|
13 |
||
| 2469 | 14 |
eta_contract:=false; |
15 |
||
| 0 | 16 |
print_depth 1; |
17 |
||
| 516 | 18 |
(*Add user sections for inductive/datatype definitions*) |
| 6260 | 19 |
use "~~/src/Pure/section_utils"; |
|
6053
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
paulson
parents:
5529
diff
changeset
|
20 |
use "thy_syntax"; |
| 516 | 21 |
|
|
1069
66efd8f90fbd
Now loads the theory "Let". Could add it to FOL, but this appears to
lcp
parents:
803
diff
changeset
|
22 |
use_thy "Let"; |
| 6153 | 23 |
use_thy "ZF"; |
|
6053
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
paulson
parents:
5529
diff
changeset
|
24 |
use "Tools/typechk"; |
|
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
paulson
parents:
5529
diff
changeset
|
25 |
use_thy "mono"; |
|
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
paulson
parents:
5529
diff
changeset
|
26 |
use "ind_syntax"; |
|
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
paulson
parents:
5529
diff
changeset
|
27 |
use "Tools/cartprod"; |
|
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
paulson
parents:
5529
diff
changeset
|
28 |
use_thy "Fixedpt"; |
|
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
paulson
parents:
5529
diff
changeset
|
29 |
use "Tools/inductive_package"; |
|
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
paulson
parents:
5529
diff
changeset
|
30 |
use_thy "Inductive"; |
| 6112 | 31 |
use "Tools/induct_tacs"; |
32 |
use "Tools/primrec_package"; |
|
|
6053
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
paulson
parents:
5529
diff
changeset
|
33 |
use_thy "QUniv"; |
| 6112 | 34 |
use "Tools/datatype_package"; |
|
6053
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
paulson
parents:
5529
diff
changeset
|
35 |
use_thy "Datatype"; |
| 488 | 36 |
use_thy "InfDatatype"; |
| 516 | 37 |
use_thy "List"; |
| 0 | 38 |
|
| 5529 | 39 |
(*Integers & binary integer arithmetic*) |
40 |
cd "Integ"; |
|
41 |
use_thy "Bin"; |
|
42 |
cd ".."; |
|
43 |
||
44 |
(*the all-in-one theory*) |
|
45 |
use_thy "Main"; |
|
46 |
||
| 0 | 47 |
print_depth 8; |
48 |
||
| 5511 | 49 |
Goal "True"; (*leave subgoal package empty*) |