src/HOL/ROOT.ML
author nipkow
Fri Oct 24 10:31:31 1997 +0200 (1997-10-24)
changeset 3981 b4f93a8da835
parent 3947 eb707467f8c5
child 4024 3c056eab237c
permissions -rw-r--r--
Added the new theory Map.
clasohm@1264
     1
(*  Title:      HOL/ROOT.ML
clasohm@923
     2
    ID:         $Id$
clasohm@923
     3
    Author:     Tobias Nipkow
clasohm@923
     4
    Copyright   1993  University of Cambridge
clasohm@923
     5
clasohm@923
     6
Adds Classical Higher-order Logic to a database containing Pure Isabelle.
clasohm@923
     7
Should be executed in the subdirectory HOL.
clasohm@923
     8
*)
clasohm@923
     9
wenzelm@3947
    10
val banner = "Higher-Order Logic";
clasohm@923
    11
writeln banner;
clasohm@923
    12
wenzelm@3947
    13
reset global_names;
wenzelm@3947
    14
clasohm@923
    15
print_depth 1;
clasohm@923
    16
clasohm@923
    17
(* Add user sections *)
clasohm@923
    18
use "../Pure/section_utils.ML";
clasohm@923
    19
use "thy_syntax.ML";
clasohm@923
    20
wenzelm@3578
    21
use "../Provers/simplifier.ML";
nipkow@1024
    22
use "../Provers/splitter.ML";
clasohm@923
    23
use "../Provers/hypsubst.ML";
clasohm@923
    24
use "../Provers/classical.ML";
paulson@2857
    25
use "../Provers/blast.ML";
nipkow@2115
    26
use "../Provers/nat_transitive.ML";
clasohm@923
    27
clasohm@923
    28
clasohm@1338
    29
use_thy "HOL";
clasohm@923
    30
use_thy "Ord";
clasohm@923
    31
use_thy "subset";
clasohm@1470
    32
use     "typedef.ML";
clasohm@923
    33
use_thy "Sum";
clasohm@923
    34
use_thy "Gfp";
clasohm@923
    35
clasohm@923
    36
use "datatype.ML";
clasohm@923
    37
use "ind_syntax.ML";
clasohm@923
    38
use "add_ind_def.ML";
clasohm@923
    39
use "intr_elim.ML";
clasohm@923
    40
use "indrule.ML";
clasohm@923
    41
use_thy "Inductive";
clasohm@923
    42
nipkow@1515
    43
use_thy "RelPow";
clasohm@923
    44
use_thy "Finite";
clasohm@923
    45
use_thy "Sexp";
paulson@3195
    46
use_thy "WF_Rel";
clasohm@923
    47
use_thy "List";
nipkow@3981
    48
use_thy "Map";
clasohm@923
    49
paulson@3195
    50
(*TFL: recursive function definitions*)
paulson@3195
    51
cd "../TFL";
paulson@3195
    52
use "sys.sml";
paulson@3195
    53
cd "../HOL";
paulson@3195
    54
clasohm@923
    55
print_depth 8;
clasohm@923
    56
clasohm@1165
    57
val HOL_build_completed = ();   (*indicate successful build*)