author | lcp |
Wed, 01 Dec 1993 17:40:27 +0100 | |
changeset 180 | 8962c2b0dc2b |
parent 125 | bba27d15d76e |
child 365 | 796c5e305b31 |
permissions | -rw-r--r-- |
0 | 1 |
(* Title: ZF/ex/ROOT |
2 |
ID: $Id$ |
|
3 |
Author: Lawrence C Paulson, Cambridge University Computer Laboratory |
|
4 |
Copyright 1993 University of Cambridge |
|
5 |
||
6 |
Executes all examples for Zermelo-Fraenkel Set Theory |
|
7 |
*) |
|
8 |
||
16
0b033d50ca1c
ex/{bin.ML,comb.ML,prop.ML}: replaced NewSext by Syntax.simple_sext
lcp
parents:
0
diff
changeset
|
9 |
ZF_build_completed; (*Make examples fail if ZF did*) |
0 | 10 |
|
11 |
writeln"Root file for ZF Set Theory examples"; |
|
12 |
proof_timing := true; |
|
13 |
||
125 | 14 |
loadpath := [".", "ex"]; |
15 |
||
0 | 16 |
time_use "ex/misc.ML"; |
125 | 17 |
time_use_thy "ex/Ramsey"; |
0 | 18 |
|
19 |
(*Equivalence classes and integers*) |
|
125 | 20 |
time_use_thy "ex/Equiv"; |
21 |
time_use_thy "ex/Integ"; |
|
0 | 22 |
(*Binary integer arithmetic*) |
91 | 23 |
use "ex/twos_compl.ML"; |
125 | 24 |
time_use_thy "ex/BinFn"; |
0 | 25 |
|
26 |
(** Datatypes **) |
|
180
8962c2b0dc2b
ZF/ex/ROOT: changed many time_use calls to time_use_thy or else deleted
lcp
parents:
125
diff
changeset
|
27 |
time_use_thy "ex/BT_Fn"; (*binary trees*) |
8962c2b0dc2b
ZF/ex/ROOT: changed many time_use calls to time_use_thy or else deleted
lcp
parents:
125
diff
changeset
|
28 |
time_use_thy "ex/TermFn"; (*terms: recursion over the list functor*) |
8962c2b0dc2b
ZF/ex/ROOT: changed many time_use calls to time_use_thy or else deleted
lcp
parents:
125
diff
changeset
|
29 |
time_use_thy "ex/TF_Fn"; (*trees/forests: mutual recursion*) |
8962c2b0dc2b
ZF/ex/ROOT: changed many time_use calls to time_use_thy or else deleted
lcp
parents:
125
diff
changeset
|
30 |
time_use_thy "ex/Data"; (*Sample datatype*) |
8962c2b0dc2b
ZF/ex/ROOT: changed many time_use calls to time_use_thy or else deleted
lcp
parents:
125
diff
changeset
|
31 |
time_use_thy "ex/Enum"; (*Enormous enumeration type*) |
0 | 32 |
|
33 |
(** Inductive definitions **) |
|
180
8962c2b0dc2b
ZF/ex/ROOT: changed many time_use calls to time_use_thy or else deleted
lcp
parents:
125
diff
changeset
|
34 |
time_use_thy "ex/Rmap"; (*mapping a relation over a list*) |
8962c2b0dc2b
ZF/ex/ROOT: changed many time_use calls to time_use_thy or else deleted
lcp
parents:
125
diff
changeset
|
35 |
time_use_thy "ex/PropLog"; (*completeness of propositional logic*) |
0 | 36 |
(*two Coq examples by Ch. Paulin-Mohring*) |
180
8962c2b0dc2b
ZF/ex/ROOT: changed many time_use calls to time_use_thy or else deleted
lcp
parents:
125
diff
changeset
|
37 |
time_use_thy "ex/ListN"; |
8962c2b0dc2b
ZF/ex/ROOT: changed many time_use calls to time_use_thy or else deleted
lcp
parents:
125
diff
changeset
|
38 |
time_use_thy "ex/Acc"; |
8962c2b0dc2b
ZF/ex/ROOT: changed many time_use calls to time_use_thy or else deleted
lcp
parents:
125
diff
changeset
|
39 |
time_use_thy "ex/Contract0"; (*Contraction relation for combinatory logic*) |
8962c2b0dc2b
ZF/ex/ROOT: changed many time_use calls to time_use_thy or else deleted
lcp
parents:
125
diff
changeset
|
40 |
time_use_thy "ex/ParContract"; (*Diamond property for combinatory logic*) |
125 | 41 |
time_use_thy "ex/Primrec0"; |
0 | 42 |
|
120 | 43 |
(** CoDatatypes **) |
76 | 44 |
time_use_thy "ex/LList"; |
125 | 45 |
time_use_thy "ex/LListFn"; |
95 | 46 |
time_use "ex/counit.ML"; |
0 | 47 |
|
48 |
maketest"END: Root file for ZF Set Theory examples"; |