| author | paulson | 
| Thu, 15 May 1997 12:53:12 +0200 | |
| changeset 3194 | 36bfceef1800 | 
| parent 2394 | 91d8abf108be | 
| 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*) |