src/Pure/ROOT.ML
author paulson
Fri Dec 22 10:11:35 1995 +0100 (1995-12-22)
changeset 1411 f60f68878354
parent 1228 7d6b0241afab
child 1443 ff8a804e0201
permissions -rw-r--r--
Now loads symtab.ML before term.ML. Functor
> SymtabFun has been changed to the structure Symtab.
     1 (*  Title:      Pure/ROOT.ML
     2     ID:         $Id$
     3     Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
     4     Copyright   1993  University of Cambridge
     5 
     6 Root file for Pure Isabelle: all modules in proper order for loading.
     7 Loads pure Isabelle into an empty database (see also Makefile).
     8 
     9 TO DO:
    10 instantiation of theorems can lead to inconsistent sorting of type vars if
    11 'a::S is already present and 'a::T is introduced.
    12 *)
    13 
    14 val banner = "Pure Isabelle";
    15 val version = "Isabelle-94 revision 4: August 95";
    16 
    17 print_depth 1;
    18 
    19 use "library.ML";
    20 use "symtab.ML";
    21 use "term.ML";
    22 
    23 (*Syntax module*)
    24 cd "Syntax";
    25 use "ROOT.ML";
    26 cd "..";
    27 
    28 use "type.ML";
    29 use "sign.ML";
    30 use "sequence.ML";
    31 use "envir.ML";
    32 use "pattern.ML";
    33 use "unify.ML";
    34 use "net.ML";
    35 use "logic.ML";
    36 use "thm.ML";
    37 use "drule.ML";
    38 use "tctical.ML";
    39 use "tactic.ML";
    40 use "goals.ML";
    41 use "axclass.ML";
    42 
    43 (*Will be visible to all object-logics.*)
    44 structure Type = TypeFun(structure Symtab=Symtab and Syntax=Syntax);
    45 structure Sign = SignFun(structure Type=Type and Syntax=Syntax);
    46 structure Sequence = SequenceFun();
    47 structure Envir = EnvirFun();
    48 structure Pattern = PatternFun(structure Sign=Sign and Envir=Envir);
    49 structure Unify = UnifyFun(structure Sign=Sign and Envir=Envir
    50                            and Sequence=Sequence and Pattern=Pattern);
    51 structure Net = NetFun();
    52 structure Logic = LogicFun(structure Unify=Unify and Net=Net);
    53 structure Thm = ThmFun(structure Logic=Logic and Unify=Unify and Net=Net
    54                              and Pattern=Pattern);
    55 structure Drule = DruleFun(structure Logic=Logic and Thm=Thm);
    56 structure Tactical = TacticalFun(structure Logic=Logic and Drule=Drule);
    57 structure Tactic = TacticFun(structure Logic=Logic and Drule=Drule
    58                              and Tactical=Tactical and Net=Net);
    59 structure Goals = GoalsFun(structure Logic=Logic and Drule=Drule
    60                            and Tactic=Tactic and Pattern=Pattern);
    61 structure AxClass = AxClassFun(structure Logic = Logic
    62   and Goals = Goals and Tactic = Tactic);
    63 open BasicSyntax Thm Drule Tactical Tactic Goals;
    64 
    65 structure Pure = struct val thy = pure_thy end;
    66 structure CPure = struct val thy = cpure_thy end;
    67 
    68 (* hide functors; saves space in PolyML *)
    69 functor TypeFun() = struct end;
    70 functor SignFun() = struct end;
    71 functor SequenceFun() = struct end;
    72 functor EnvirFun() = struct end;
    73 functor PatternFun() = struct end;
    74 functor UnifyFun() = struct end;
    75 functor NetFun() = struct end;
    76 functor LogicFun() = struct end;
    77 functor ThmFun() = struct end;
    78 functor DruleFun() = struct end;
    79 functor TacticalFun() = struct end;
    80 functor TacticFun() = struct end;
    81 functor GoalsFun() = struct end;
    82 functor AxClassFun() = struct end;
    83 
    84 (*Theory parser and loader*)
    85 cd "Thy";
    86 use "ROOT.ML";
    87 cd "..";
    88 
    89 use "install_pp.ML";
    90 fun init_database () = (init_thy_reader (); init_pps ());
    91