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