| author | wenzelm | 
| Fri, 10 Nov 2000 19:02:37 +0100 | |
| changeset 10432 | 3dfbc913d184 | 
| parent 9570 | e16e168984e1 | 
| child 12133 | f314630235a4 | 
| 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*) | 
| 6053 
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
 paulson parents: 
5529diff
changeset | 19 | use "thy_syntax"; | 
| 516 | 20 | |
| 9548 | 21 | use "~~/src/Provers/Arith/cancel_numerals.ML"; | 
| 9570 
e16e168984e1
installation of cancellation simprocs for the integers
 paulson parents: 
9548diff
changeset | 22 | use "~~/src/Provers/Arith/combine_numerals.ML"; | 
| 9548 | 23 | |
| 6053 
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
 paulson parents: 
5529diff
changeset | 24 | use_thy "mono"; | 
| 
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
 paulson parents: 
5529diff
changeset | 25 | use "ind_syntax"; | 
| 
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
 paulson parents: 
5529diff
changeset | 26 | use "Tools/cartprod"; | 
| 
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
 paulson parents: 
5529diff
changeset | 27 | use_thy "Fixedpt"; | 
| 
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
 paulson parents: 
5529diff
changeset | 28 | use "Tools/inductive_package"; | 
| 6112 | 29 | use "Tools/induct_tacs"; | 
| 30 | use "Tools/primrec_package"; | |
| 6053 
8a1059aa01f0
new inductive, datatype and primrec packages, etc.
 paulson parents: 
5529diff
changeset | 31 | use_thy "QUniv"; | 
| 6112 | 32 | use "Tools/datatype_package"; | 
| 5529 | 33 | |
| 9570 
e16e168984e1
installation of cancellation simprocs for the integers
 paulson parents: 
9548diff
changeset | 34 | use "Tools/numeral_syntax"; | 
| 5529 | 35 | (*the all-in-one theory*) | 
| 9176 
8f975d9c1046
simplified slightly by using dependencies better in theories
 paulson parents: 
8812diff
changeset | 36 | with_path "Integ" use_thy "Main"; | 
| 5529 | 37 | |
| 8127 
68c6159440f1
new lemmas for Ntree recursor example;  more simprules;  more lemmas borrowed
 paulson parents: 
6349diff
changeset | 38 | simpset_ref() := simpset() setmksimps (map mk_eq o Ord_atomize o gen_all); | 
| 
68c6159440f1
new lemmas for Ntree recursor example;  more simprules;  more lemmas borrowed
 paulson parents: 
6349diff
changeset | 39 | |
| 0 | 40 | print_depth 8; | 
| 41 | ||
| 5511 | 42 | Goal "True"; (*leave subgoal package empty*) |