src/ZF/ROOT.ML
author paulson
Fri Jan 08 13:20:59 1999 +0100 (1999-01-08)
changeset 6071 1b2392ac5752
parent 6070 032babd0120b
child 6112 5e4871c5136b
permissions -rw-r--r--
removal of DO_GOAL
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     "$ISABELLE_HOME/src/Pure/section_utils";
paulson@6053
    20
use     "thy_syntax";
lcp@516
    21
lcp@1069
    22
use_thy "Let";
paulson@2469
    23
use_thy "func";
paulson@6053
    24
use     "Tools/typechk";
paulson@6053
    25
use_thy "mono";
paulson@6053
    26
use     "ind_syntax";
paulson@6053
    27
use     "Tools/cartprod";
paulson@6053
    28
use_thy "Fixedpt";
paulson@6053
    29
use     "Tools/inductive_package";
paulson@6053
    30
use_thy "Inductive";
paulson@6070
    31
use "Tools/induct_tacs";
paulson@6070
    32
use "Tools/primrec_package";
paulson@6053
    33
use_thy "QUniv";
paulson@6053
    34
use "Tools/datatype_package";
paulson@6053
    35
use_thy "Datatype";
lcp@488
    36
use_thy "InfDatatype";
lcp@516
    37
use_thy "List";
clasohm@0
    38
paulson@5529
    39
(*Integers & binary integer arithmetic*)
paulson@5529
    40
cd "Integ";
paulson@5529
    41
use_thy "Bin";
paulson@5529
    42
cd "..";
paulson@5529
    43
paulson@5529
    44
(*the all-in-one theory*)
paulson@5529
    45
use_thy "Main";
paulson@5529
    46
clasohm@0
    47
print_depth 8;
clasohm@0
    48
paulson@5511
    49
Goal "True";  (*leave subgoal package empty*)
paulson@5511
    50
clasohm@1461
    51
val ZF_build_completed = ();    (*indicate successful build*)