src/Pure/ROOT.ML
author clasohm
Thu Sep 16 12:20:38 1993 +0200 (1993-09-16)
changeset 0 a5a9c433f639
child 2 c67f44be880f
permissions -rw-r--r--
Initial revision
clasohm@0
     1
(*  Title: 	ROOT
clasohm@0
     2
    ID:         $Id$
clasohm@0
     3
    Author: 	Lawrence C Paulson, Cambridge University Computer Laboratory
clasohm@0
     4
    Copyright   1993  University of Cambridge
clasohm@0
     5
clasohm@0
     6
Root file for pure Isabelle: all modules in proper order for loading
clasohm@0
     7
Loads pure Isabelle into an empty database.
clasohm@0
     8
clasohm@0
     9
To build system, use Makefile (Poly/ML) or Makefile.NJ (New Jersey ML)
clasohm@0
    10
clasohm@0
    11
TO DO: 
clasohm@0
    12
instantiation of theorems can lead to inconsistent sorting of type vars if
clasohm@0
    13
'a::S is already present and 'a::T is introduced. 
clasohm@0
    14
*)
clasohm@0
    15
clasohm@0
    16
val banner = "Pure Isabelle";
clasohm@0
    17
val version = "February 93";
clasohm@0
    18
clasohm@0
    19
print_depth 1;
clasohm@0
    20
clasohm@0
    21
use "library.ML";
clasohm@0
    22
use "term.ML";
clasohm@0
    23
use "symtab.ML";
clasohm@0
    24
clasohm@0
    25
(*Used for building the parser generator*)
clasohm@0
    26
structure Symtab = SymtabFun();
clasohm@0
    27
cd "Syntax";
clasohm@0
    28
use "ROOT.ML";
clasohm@0
    29
cd "..";
clasohm@0
    30
clasohm@0
    31
(* Theory parser *)
clasohm@0
    32
cd "Thy";
clasohm@0
    33
use "ROOT.ML";
clasohm@0
    34
cd "..";
clasohm@0
    35
clasohm@0
    36
print_depth 1;
clasohm@0
    37
use "type.ML";
clasohm@0
    38
use "sign.ML";
clasohm@0
    39
use "sequence.ML";
clasohm@0
    40
use "envir.ML";
clasohm@0
    41
use "pattern.ML";
clasohm@0
    42
use "unify.ML";
clasohm@0
    43
use "net.ML";
clasohm@0
    44
use "logic.ML";
clasohm@0
    45
use "thm.ML";
clasohm@0
    46
use "drule.ML";
clasohm@0
    47
use "tctical.ML";
clasohm@0
    48
use "tactic.ML";
clasohm@0
    49
use "goals.ML";
clasohm@0
    50
clasohm@0
    51
(*Will be visible to all object-logics.*)
clasohm@0
    52
structure Type = TypeFun(structure Symtab=Symtab and Syntax=Syntax);
clasohm@0
    53
structure Sign = SignFun(structure Type=Type and Syntax=Syntax);
clasohm@0
    54
structure Sequence = SequenceFun();
clasohm@0
    55
structure Envir = EnvirFun();
clasohm@0
    56
structure Pattern = PatternFun(structure Sign=Sign and Envir=Envir);
clasohm@0
    57
structure Unify = UnifyFun(structure Sign=Sign and Envir=Envir
clasohm@0
    58
			   and Sequence=Sequence and Pattern=Pattern);
clasohm@0
    59
structure Net = NetFun();
clasohm@0
    60
structure Logic = LogicFun(structure Unify=Unify and Net=Net);
clasohm@0
    61
structure Thm = ThmFun(structure Logic=Logic and Unify=Unify and Net=Net
clasohm@0
    62
                             and Pattern=Pattern); 
clasohm@0
    63
structure Drule = DruleFun(structure Logic=Logic and Thm=Thm);
clasohm@0
    64
structure Tactical = TacticalFun(structure Logic=Logic and Drule=Drule);
clasohm@0
    65
structure Tactic = TacticFun(structure Logic=Logic and Drule=Drule 
clasohm@0
    66
			     and Tactical=Tactical and Net=Net);
clasohm@0
    67
structure Goals = GoalsFun(structure Logic=Logic and Drule=Drule
clasohm@0
    68
			   and Tactic=Tactic and Pattern=Pattern);
clasohm@0
    69
open Basic_Syntax Thm Drule Tactical Tactic Goals;
clasohm@0
    70
clasohm@0
    71
structure Pure = struct val thy = pure_thy end;