author | paulson |
Wed, 30 Apr 1997 16:33:43 +0200 | |
changeset 3087 | d4bed82315ab |
parent 2603 | 4988dda71c0b |
child 4446 | 097004a470fb |
permissions | -rw-r--r-- |
1459 | 1 |
(* Title: FOLP/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 FOLP examples"; |
|
10 |
||
1459 | 11 |
FOLP_build_completed; (*Cause examples to fail if FOLP did*) |
177 | 12 |
|
0 | 13 |
proof_timing := true; |
14 |
||
1351 | 15 |
time_use "intro.ML"; |
16 |
time_use_thy "Nat"; |
|
17 |
time_use "foundn.ML"; |
|
0 | 18 |
|
19 |
writeln"\n** Intuitionistic examples **\n"; |
|
1351 | 20 |
time_use "int.ML"; |
0 | 21 |
|
2603
4988dda71c0b
Renamed structure Int (intuitionistic prover) to IntPr to prevent clash
paulson
parents:
2236
diff
changeset
|
22 |
val thy = IFOLP.thy and tac = IntPr.fast_tac 1; |
1351 | 23 |
time_use "prop.ML"; |
24 |
time_use "quant.ML"; |
|
0 | 25 |
|
26 |
writeln"\n** Classical examples **\n"; |
|
1351 | 27 |
time_use "cla.ML"; |
28 |
time_use_thy "If"; |
|
0 | 29 |
|
30 |
val thy = FOLP.thy and tac = Cla.fast_tac FOLP_cs 1; |
|
1351 | 31 |
time_use "prop.ML"; |
32 |
time_use "quant.ML"; |
|
0 | 33 |
|
2236 | 34 |
OS.FileSys.chDir ".."; |
0 | 35 |
maketest"END: Root file for FOLP examples"; |