author | wenzelm |
Thu, 05 Feb 1998 11:20:35 +0100 | |
changeset 4603 | 53b2463ca84c |
parent 4446 | 097004a470fb |
child 6349 | f7750d816c21 |
permissions | -rw-r--r-- |
1459 | 1 |
(* Title: FOL/ex/ROOT |
0 | 2 |
ID: $Id$ |
1459 | 3 |
Author: Lawrence C Paulson, Cambridge University Computer Laboratory |
0 | 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 |
||
1459 | 11 |
FOL_build_completed; (*Cause examples to fail if FOL did*) |
0 | 12 |
|
4446 | 13 |
set proof_timing; |
0 | 14 |
|
1351 | 15 |
time_use "intro.ML"; |
16 |
time_use_thy "Nat"; |
|
17 |
time_use "foundn.ML"; |
|
18 |
time_use_thy "Prolog"; |
|
0 | 19 |
|
20 |
writeln"\n** Intuitionistic examples **\n"; |
|
1351 | 21 |
time_use "int.ML"; |
0 | 22 |
|
2601
b301958c465d
Renamed structure Int (intuitionistic prover) to IntPr to prevent clash
paulson
parents:
2236
diff
changeset
|
23 |
val thy = IFOL.thy and tac = IntPr.fast_tac 1; |
1351 | 24 |
time_use "prop.ML"; |
25 |
time_use "quant.ML"; |
|
0 | 26 |
|
27 |
writeln"\n** Classical examples **\n"; |
|
1351 | 28 |
time_use "mini.ML"; |
29 |
time_use "cla.ML"; |
|
30 |
time_use_thy "If"; |
|
0 | 31 |
|
32 |
val thy = FOL.thy and tac = Cla.fast_tac FOL_cs 1; |
|
1351 | 33 |
time_use "prop.ML"; |
34 |
time_use "quant.ML"; |
|
0 | 35 |
|
36 |
writeln"\n** Simplification examples **\n"; |
|
1351 | 37 |
time_use_thy "Nat2"; |
38 |
time_use_thy "List"; |
|
0 | 39 |
|
1549 | 40 |
writeln"\n** How to declare an oracle **\n"; |
41 |
time_use_thy "IffOracle"; |