src/ZF/ROOT.ML
author wenzelm
Tue Nov 13 22:20:51 2001 +0100 (2001-11-13)
changeset 12175 5cf58a1799a7
parent 12133 f314630235a4
child 12183 c10cea75dd56
permissions -rw-r--r--
rearranged inductive package for Isar;
wenzelm@12175
     1
(*  Title:      ZF/ROOT.ML
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
wenzelm@12175
     6
Zermelo-Fraenkel Set Theory on top of classical First-Order Logic.
wenzelm@12175
     7
This theory is the work of Martin Coen, Philippe Noel and Lawrence
wenzelm@12175
     8
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
wenzelm@12175
    14
reset eta_contract;
paulson@2469
    15
clasohm@0
    16
print_depth 1;
clasohm@0
    17
wenzelm@12175
    18
(*syntax for old-style theory sections*)
wenzelm@12175
    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";
wenzelm@12175
    25
use "ind_syntax.ML";
wenzelm@12175
    26
use_thy "Datatype";
paulson@5529
    27
wenzelm@12133
    28
use     "Tools/numeral_syntax.ML";
paulson@5529
    29
(*the all-in-one theory*)
paulson@9176
    30
with_path "Integ" use_thy "Main";
paulson@5529
    31
paulson@8127
    32
simpset_ref() := simpset() setmksimps (map mk_eq o Ord_atomize o gen_all);
paulson@8127
    33
clasohm@0
    34
print_depth 8;
clasohm@0
    35
paulson@5511
    36
Goal "True";  (*leave subgoal package empty*)