src/HOL/ROOT.ML
author paulson
Thu May 15 12:53:39 1997 +0200 (1997-05-15)
changeset 3195 dcb458d38724
parent 2857 848bce5fe8ad
child 3511 da4dd8b7ced4
permissions -rw-r--r--
Preliminary TFL versions
     1 (*  Title:      HOL/ROOT.ML
     2     ID:         $Id$
     3     Author:     Tobias Nipkow
     4     Copyright   1993  University of Cambridge
     5 
     6 Adds Classical Higher-order Logic to a database containing Pure Isabelle.
     7 Should be executed in the subdirectory HOL.
     8 *)
     9 
    10 val banner = "Higher-Order Logic with curried functions";
    11 writeln banner;
    12 
    13 print_depth 1;
    14 
    15 (* Add user sections *)
    16 use "../Pure/section_utils.ML";
    17 use "thy_syntax.ML";
    18 
    19 use "../Provers/splitter.ML";
    20 use "../Provers/hypsubst.ML";
    21 use "../Provers/classical.ML";
    22 use "../Provers/blast.ML";
    23 use "../Provers/nat_transitive.ML";
    24 
    25 
    26 use_thy "HOL";
    27 use_thy "Ord";
    28 use_thy "subset";
    29 use     "typedef.ML";
    30 use_thy "Sum";
    31 use_thy "Gfp";
    32 
    33 use "datatype.ML";
    34 use "ind_syntax.ML";
    35 use "add_ind_def.ML";
    36 use "intr_elim.ML";
    37 use "indrule.ML";
    38 use_thy "Inductive";
    39 
    40 use_thy "RelPow";
    41 use_thy "Finite";
    42 use_thy "Sexp";
    43 use_thy "Option";
    44 use_thy "WF_Rel";
    45 use_thy "List";
    46 
    47 (*TFL: recursive function definitions*)
    48 cd "../TFL";
    49 use "sys.sml";
    50 cd "../HOL";
    51 
    52 init_pps ();
    53 print_depth 8;
    54 
    55 val HOL_build_completed = ();   (*indicate successful build*)