author | paulson |
Tue, 27 May 1997 13:24:15 +0200 | |
changeset 3356 | 9b899eb8a036 |
parent 3353 | 9112a2efb9a3 |
child 3391 | 5e45dd3b64e9 |
permissions | -rw-r--r-- |
3353
9112a2efb9a3
Removal of module Mask and datatype binding with its constructor |->
paulson
parents:
3302
diff
changeset
|
1 |
(* Title: TFL/sys |
3302 | 2 |
ID: $Id$ |
3 |
Author: Konrad Slind, Cambridge University Computer Laboratory |
|
4 |
Copyright 1997 University of Cambridge |
|
5 |
||
6 |
Compile the TFL system |
|
7 |
*) |
|
2112 | 8 |
|
9 |
(* Portability stuff *) |
|
10 |
nonfix prefix; |
|
11 |
||
12 |
(* Establish a base of common and/or helpful functions. *) |
|
13 |
use "utils.sig"; |
|
14 |
||
15 |
(* Get the specifications - these are independent of any system *) |
|
16 |
use "usyntax.sig"; |
|
17 |
use "rules.sig"; |
|
18 |
use "thry.sig"; |
|
19 |
use "thms.sig"; |
|
20 |
use "tfl.sig"; |
|
21 |
||
22 |
(*---------------------------------------------------------------------------- |
|
23 |
* Load the TFL functor - this is defined totally in terms of the |
|
24 |
* above interfaces. |
|
25 |
*---------------------------------------------------------------------------*) |
|
26 |
||
27 |
use "tfl.sml"; |
|
28 |
||
3245
241838c01caf
Removal of redundant code (unused or already present in Isabelle.
paulson
parents:
3191
diff
changeset
|
29 |
use "utils.sml"; |
2112 | 30 |
|
31 |
(*---------------------------------------------------------------------------- |
|
32 |
* Supply implementations |
|
33 |
*---------------------------------------------------------------------------*) |
|
34 |
||
35 |
use "usyntax.sml"; |
|
36 |
use "thms.sml"; |
|
3245
241838c01caf
Removal of redundant code (unused or already present in Isabelle.
paulson
parents:
3191
diff
changeset
|
37 |
use"dcterm.sml"; |
241838c01caf
Removal of redundant code (unused or already present in Isabelle.
paulson
parents:
3191
diff
changeset
|
38 |
use"rules.new.sml"; |
2112 | 39 |
use "thry.sml"; |
40 |
||
41 |
||
42 |
(*---------------------------------------------------------------------------- |
|
43 |
* Link system and specialize for Isabelle |
|
44 |
*---------------------------------------------------------------------------*) |
|
45 |
structure Prim = TFL(structure Rules = FastRules |
|
46 |
structure Thms = Thms |
|
47 |
structure Thry = Thry); |
|
48 |
||
49 |
use"post.sml"; |