| author | wenzelm |
| Fri, 19 Dec 1997 10:18:03 +0100 | |
| changeset 4446 | 097004a470fb |
| parent 2603 | 4988dda71c0b |
| child 6349 | f7750d816c21 |
| 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 |
|
| 4446 | 13 |
set proof_timing; |
| 0 | 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"; |