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