src/FOL/ex/ROOT.ML
author lcp
Mon Oct 31 17:14:42 1994 +0100 (1994-10-31)
changeset 667 661fc2e9c945
parent 121 d392174734e9
child 1296 ae31bb7774a7
permissions -rw-r--r--
FOL/ex/ROOT: now loads mini.ML
clasohm@0
     1
(*  Title: 	FOL/ex/ROOT
clasohm@0
     2
    ID:         $Id$
clasohm@0
     3
    Author: 	Lawrence C Paulson, Cambridge University Computer Laboratory
clasohm@0
     4
    Copyright   1992  University of Cambridge
clasohm@0
     5
clasohm@0
     6
Executes all examples for First-Order Logic. 
clasohm@0
     7
*)
clasohm@0
     8
clasohm@0
     9
writeln"Root file for FOL examples";
clasohm@0
    10
clasohm@0
    11
FOL_build_completed;	(*Cause examples to fail if FOL did*)
clasohm@0
    12
clasohm@0
    13
proof_timing := true;
clasohm@0
    14
clasohm@0
    15
time_use     "ex/intro.ML";
clasohm@121
    16
time_use_thy "ex/Nat";
clasohm@0
    17
time_use     "ex/foundn.ML";
clasohm@121
    18
time_use_thy "ex/Prolog";
clasohm@0
    19
clasohm@0
    20
writeln"\n** Intuitionistic examples **\n";
clasohm@0
    21
time_use     "ex/int.ML";
clasohm@0
    22
clasohm@0
    23
val thy = IFOL.thy  and  tac = Int.fast_tac 1;
clasohm@0
    24
time_use     "ex/prop.ML";
clasohm@0
    25
time_use     "ex/quant.ML";
clasohm@0
    26
clasohm@0
    27
writeln"\n** Classical examples **\n";
lcp@667
    28
time_use     "ex/mini.ML";
clasohm@0
    29
time_use     "ex/cla.ML";
clasohm@121
    30
time_use_thy "ex/If";
clasohm@0
    31
clasohm@0
    32
val thy = FOL.thy  and  tac = Cla.fast_tac FOL_cs 1;
clasohm@0
    33
time_use     "ex/prop.ML";
clasohm@0
    34
time_use     "ex/quant.ML";
clasohm@0
    35
clasohm@0
    36
writeln"\n** Simplification examples **\n";
clasohm@121
    37
time_use_thy "ex/Nat2";
clasohm@121
    38
time_use_thy "ex/List";
clasohm@0
    39
clasohm@0
    40
maketest"END: Root file for FOL examples";