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