author | oheimb |
Fri, 13 Dec 1996 18:45:58 +0100 | |
changeset 2394 | 91d8abf108be |
parent 2353 | 7405e3cac88a |
child 3511 | da4dd8b7ced4 |
permissions | -rw-r--r-- |
1461 | 1 |
(* Title: HOLCF/ROOT |
243
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff
changeset
|
2 |
ID: $Id$ |
1461 | 3 |
Author: Franz Regensburger |
4 |
Copyright 1993 Technische Universitaet Muenchen |
|
243
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff
changeset
|
5 |
|
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff
changeset
|
6 |
ROOT file for the conservative extension of HOL by the LCF logic. |
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff
changeset
|
7 |
Should be executed in subdirectory HOLCF. |
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff
changeset
|
8 |
*) |
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff
changeset
|
9 |
|
1274 | 10 |
val banner = "HOLCF with sections axioms,ops,domain,generated"; |
2394 | 11 |
writeln banner; |
1274 | 12 |
|
243
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff
changeset
|
13 |
print_depth 1; |
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff
changeset
|
14 |
|
1274 | 15 |
use_thy "HOLCF"; |
16 |
||
17 |
(* install sections: axioms, ops *) |
|
18 |
||
19 |
use "ax_ops/holcflogic.ML"; |
|
20 |
use "ax_ops/thy_axioms.ML"; |
|
21 |
use "ax_ops/thy_ops.ML"; |
|
22 |
use "ax_ops/thy_syntax.ML"; |
|
23 |
||
24 |
||
25 |
(* install sections: domain, generated *) |
|
243
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff
changeset
|
26 |
|
1285 | 27 |
use "domain/library.ML"; |
28 |
use "domain/syntax.ML"; |
|
29 |
use "domain/axioms.ML"; |
|
30 |
use "domain/theorems.ML"; |
|
31 |
use "domain/extender.ML"; |
|
32 |
use "domain/interface.ML"; |
|
297 | 33 |
|
1274 | 34 |
init_thy_reader(); |
35 |
init_pps (); |
|
36 |
||
2353 | 37 |
fun qed_spec_mp name = |
38 |
let val thm = normalize_thm [RSspec,RSmp] (result()) |
|
39 |
in bind_thm(name, thm) end; |
|
40 |
||
2394 | 41 |
print_depth 10; |
42 |
||
1461 | 43 |
val HOLCF_build_completed = (); (*indicate successful build*) |