src/FOL/ex/ROOT.ML
author clasohm
Tue, 21 Nov 1995 12:43:09 +0100
changeset 1351 4a960c012383
parent 1296 ae31bb7774a7
child 1459 d12da312eff4
permissions -rw-r--r--
removed make_chart; theories are now read from the current directory (because of use_dir)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     1
(*  Title: 	FOL/ex/ROOT
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     2
    ID:         $Id$
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     3
    Author: 	Lawrence C Paulson, Cambridge University Computer Laboratory
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     4
    Copyright   1992  University of Cambridge
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     5
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     6
Executes all examples for First-Order Logic. 
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     7
*)
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     8
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     9
writeln"Root file for FOL examples";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    10
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    11
FOL_build_completed;	(*Cause examples to fail if FOL did*)
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    12
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    13
proof_timing := true;
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    14
1351
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    15
time_use     "intro.ML";
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    16
time_use_thy "Nat";
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    17
time_use     "foundn.ML";
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    18
time_use_thy "Prolog";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    19
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    20
writeln"\n** Intuitionistic examples **\n";
1351
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    21
time_use     "int.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    22
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    23
val thy = IFOL.thy  and  tac = Int.fast_tac 1;
1351
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    24
time_use     "prop.ML";
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    25
time_use     "quant.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    26
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    27
writeln"\n** Classical examples **\n";
1351
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    28
time_use     "mini.ML";
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    29
time_use     "cla.ML";
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    30
time_use_thy "If";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    31
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    32
val thy = FOL.thy  and  tac = Cla.fast_tac FOL_cs 1;
1351
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    33
time_use     "prop.ML";
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    34
time_use     "quant.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    35
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    36
writeln"\n** Simplification examples **\n";
1351
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    37
time_use_thy "Nat2";
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    38
time_use_thy "List";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    39
1351
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    40
cd "..";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    41
maketest"END: Root file for FOL examples";