src/HOL/ROOT.ML
author nipkow
Fri Nov 27 17:00:30 1998 +0100 (1998-11-27)
changeset 5983 79e301a6a51b
parent 5699 5b9a359e083c
child 6260 a8010d459ef7
permissions -rw-r--r--
At last: linear arithmetic for nat!
     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";
    11 writeln banner;
    12 
    13 print_depth 1;
    14 
    15 (* Add user sections *)
    16 use "$ISABELLE_HOME/src/Pure/section_utils.ML";
    17 use "thy_syntax.ML";
    18 
    19 use "$ISABELLE_HOME/src/Provers/simplifier.ML";
    20 use "$ISABELLE_HOME/src/Provers/split_paired_all.ML";
    21 use "$ISABELLE_HOME/src/Provers/splitter.ML";
    22 use "$ISABELLE_HOME/src/Provers/hypsubst.ML";
    23 use "$ISABELLE_HOME/src/Provers/classical.ML";
    24 use "$ISABELLE_HOME/src/Provers/blast.ML";
    25 use "$ISABELLE_HOME/src/Provers/clasimp.ML";
    26 use "$ISABELLE_HOME/src/Provers/Arith/fast_lin_arith.ML";
    27 use "$ISABELLE_HOME/src/Provers/Arith/cancel_sums.ML";
    28 use "$ISABELLE_HOME/src/Provers/Arith/cancel_factor.ML";
    29 use "$ISABELLE_HOME/src/Provers/Arith/abel_cancel.ML";
    30 use "$ISABELLE_HOME/src/Provers/quantifier1.ML";
    31 
    32 use_thy "HOL";
    33 use "hologic.ML";
    34 use "cladata.ML";
    35 use "simpdata.ML";
    36 
    37 use_thy "Ord";
    38 use_thy "subset";
    39 use "Tools/typedef_package.ML";
    40 use_thy "Sum";
    41 use_thy "Gfp";
    42 
    43 use_thy "NatDef";
    44 
    45 use "Tools/inductive_package.ML";
    46 use_thy "Inductive";
    47 
    48 use "Tools/datatype_aux.ML";
    49 use "Tools/datatype_prop.ML";
    50 use "Tools/datatype_rep_proofs.ML";
    51 use "Tools/datatype_abs_proofs.ML";
    52 use "Tools/datatype_package.ML";
    53 use "Tools/primrec_package.ML";
    54 use_thy "Datatype";
    55 
    56 use "Tools/record_package.ML";
    57 use_thy "Record";
    58 
    59 use_thy "Arith";
    60 
    61 use_thy "Recdef";
    62 (*TFL: recursive function definitions*)
    63 cd "$ISABELLE_HOME/src/TFL";
    64 use "sys.sml";
    65 cd "$ISABELLE_HOME/src/HOL";
    66 
    67 cd "Integ";
    68 use_thy "IntDef";
    69 use "simproc.ML";
    70 use_thy "Bin";
    71 cd "..";
    72 
    73 (*the all-in-one theory*)
    74 use_thy "Main";
    75 
    76 print_depth 8;
    77 
    78 Goal "True";  (*leave subgoal package empty*)
    79 
    80 val HOL_build_completed = ();   (*indicate successful build*)