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