src/HOL/ROOT.ML
author clasohm
Wed Mar 13 11:55:25 1996 +0100 (1996-03-13 ago)
changeset 1574 5a63ab90ee8a
parent 1515 4ed79ebab64d
child 1982 38aafcab6890
permissions -rw-r--r--
modified primrec so it can be used in MiniML/Type.thy
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
clasohm@923
    10
val banner = "Higher-Order Logic with curried functions";
clasohm@923
    11
writeln banner;
clasohm@923
    12
clasohm@923
    13
print_depth 1;
clasohm@923
    14
clasohm@923
    15
(* Add user sections *)
clasohm@923
    16
use "../Pure/section_utils.ML";
clasohm@923
    17
use "thy_syntax.ML";
clasohm@923
    18
nipkow@1024
    19
use "../Provers/splitter.ML";
clasohm@923
    20
use "../Provers/hypsubst.ML";
clasohm@923
    21
use "../Provers/classical.ML";
clasohm@923
    22
clasohm@923
    23
clasohm@1338
    24
use_thy "HOL";
regensbu@1273
    25
clasohm@923
    26
use_thy "Ord";
clasohm@923
    27
use_thy "subset";
clasohm@923
    28
use     "hologic.ML";
clasohm@1470
    29
use     "typedef.ML";
clasohm@923
    30
use_thy "Sum";
clasohm@923
    31
use_thy "Gfp";
clasohm@923
    32
clasohm@923
    33
use "datatype.ML";
clasohm@923
    34
use "ind_syntax.ML";
clasohm@923
    35
use "add_ind_def.ML";
clasohm@923
    36
use "intr_elim.ML";
clasohm@923
    37
use "indrule.ML";
clasohm@923
    38
use_thy "Inductive";
clasohm@923
    39
nipkow@1515
    40
use_thy "RelPow";
clasohm@923
    41
use_thy "Finite";
clasohm@923
    42
use_thy "Sexp";
clasohm@923
    43
use_thy "List";
clasohm@923
    44
clasohm@923
    45
init_pps ();
clasohm@923
    46
print_depth 8;
clasohm@923
    47
clasohm@1165
    48
val HOL_build_completed = ();   (*indicate successful build*)