src/FOL/ex/ROOT.ML
author clasohm
Tue Nov 16 14:10:19 1993 +0100 (1993-11-16)
changeset 121 d392174734e9
parent 0 a5a9c433f639
child 667 661fc2e9c945
permissions -rw-r--r--
changed use_thy's parameter to exact theory name
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";
clasohm@0
    28
time_use     "ex/cla.ML";
clasohm@121
    29
time_use_thy "ex/If";
clasohm@0
    30
clasohm@0
    31
val thy = FOL.thy  and  tac = Cla.fast_tac FOL_cs 1;
clasohm@0
    32
time_use     "ex/prop.ML";
clasohm@0
    33
time_use     "ex/quant.ML";
clasohm@0
    34
clasohm@0
    35
writeln"\n** Simplification examples **\n";
clasohm@121
    36
time_use_thy "ex/Nat2";
clasohm@121
    37
time_use_thy "ex/List";
clasohm@0
    38
clasohm@0
    39
maketest"END: Root file for FOL examples";