src/ZF/ROOT.ML
author paulson
Thu Aug 10 11:27:34 2000 +0200 (2000-08-10)
changeset 9570 e16e168984e1
parent 9548 15bee2731e43
child 12133 f314630235a4
permissions -rw-r--r--
installation of cancellation simprocs for the integers
clasohm@1461
     1
(*  Title:      ZF/ROOT
lcp@6
     2
    ID:         $Id$
clasohm@1461
     3
    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
clasohm@0
     4
    Copyright   1993  University of Cambridge
clasohm@0
     5
clasohm@0
     6
Adds Zermelo-Fraenkel Set Theory to a database containing First-Order Logic.
clasohm@0
     7
clasohm@0
     8
This theory is the work of Martin Coen, Philippe Noel and Lawrence Paulson.
clasohm@0
     9
*)
clasohm@0
    10
clasohm@0
    11
val banner = "ZF Set Theory (in FOL)";
clasohm@0
    12
writeln banner;
clasohm@0
    13
paulson@2469
    14
eta_contract:=false;
paulson@2469
    15
clasohm@0
    16
print_depth 1;
clasohm@0
    17
lcp@516
    18
(*Add user sections for inductive/datatype definitions*)
paulson@6053
    19
use     "thy_syntax";
lcp@516
    20
paulson@9548
    21
use "~~/src/Provers/Arith/cancel_numerals.ML";
paulson@9570
    22
use "~~/src/Provers/Arith/combine_numerals.ML";
paulson@9548
    23
paulson@6053
    24
use_thy "mono";
paulson@6053
    25
use     "ind_syntax";
paulson@6053
    26
use     "Tools/cartprod";
paulson@6053
    27
use_thy "Fixedpt";
paulson@6053
    28
use     "Tools/inductive_package";
paulson@6112
    29
use     "Tools/induct_tacs";
paulson@6112
    30
use     "Tools/primrec_package";
paulson@6053
    31
use_thy "QUniv";
paulson@6112
    32
use     "Tools/datatype_package";
paulson@5529
    33
paulson@9570
    34
use     "Tools/numeral_syntax";
paulson@5529
    35
(*the all-in-one theory*)
paulson@9176
    36
with_path "Integ" use_thy "Main";
paulson@5529
    37
paulson@8127
    38
simpset_ref() := simpset() setmksimps (map mk_eq o Ord_atomize o gen_all);
paulson@8127
    39
clasohm@0
    40
print_depth 8;
clasohm@0
    41
paulson@5511
    42
Goal "True";  (*leave subgoal package empty*)