| author | wenzelm | 
| Fri, 22 Oct 1999 21:49:33 +0200 | |
| changeset 7924 | 5fee69b1f5fe | 
| 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: 
5diff
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: 
5529diff
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: 
803diff
changeset | 22 | use_thy "Let"; | 
| 6153 | 23 | use_thy "ZF"; | 
| 6053 
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
 paulson parents: 
5529diff
changeset | 24 | use "Tools/typechk"; | 
| 
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
 paulson parents: 
5529diff
changeset | 25 | use_thy "mono"; | 
| 
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
 paulson parents: 
5529diff
changeset | 26 | use "ind_syntax"; | 
| 
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
 paulson parents: 
5529diff
changeset | 27 | use "Tools/cartprod"; | 
| 
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
 paulson parents: 
5529diff
changeset | 28 | use_thy "Fixedpt"; | 
| 
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
 paulson parents: 
5529diff
changeset | 29 | use "Tools/inductive_package"; | 
| 
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
 paulson parents: 
5529diff
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: 
5529diff
changeset | 33 | use_thy "QUniv"; | 
| 6112 | 34 | use "Tools/datatype_package"; | 
| 6053 
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
 paulson parents: 
5529diff
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*) |