src/Pure/ROOT.ML
author lcp
Tue, 18 Jan 1994 15:57:40 +0100
changeset 230 ec8a2b6aa8a7
parent 83 de9316670e89
child 403 4c66b1577753
permissions -rw-r--r--
Many other files modified as follows: s|Sign.cterm|cterm|g s|Sign.ctyp|ctyp|g s|Sign.rep_cterm|rep_cterm|g s|Sign.rep_ctyp|rep_ctyp|g s|Sign.pprint_cterm|pprint_cterm|g s|Sign.pprint_ctyp|pprint_ctyp|g s|Sign.string_of_cterm|string_of_cterm|g s|Sign.string_of_ctyp|string_of_ctyp|g s|Sign.term_of|term_of|g s|Sign.typ_of|typ_of|g s|Sign.read_cterm|read_cterm|g s|Sign.read_insts|read_insts|g s|Sign.cfun|cterm_fun|g
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
19
929ad32d63fc Pure/ROOT.ML
wenzelm
parents: 2
diff changeset
     1
(*  Title:      Pure/ROOT.ML
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     2
    ID:         $Id$
19
929ad32d63fc Pure/ROOT.ML
wenzelm
parents: 2
diff changeset
     3
    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     4
    Copyright   1993  University of Cambridge
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     5
19
929ad32d63fc Pure/ROOT.ML
wenzelm
parents: 2
diff changeset
     6
Root file for Pure Isabelle: all modules in proper order for loading.
929ad32d63fc Pure/ROOT.ML
wenzelm
parents: 2
diff changeset
     7
Loads pure Isabelle into an empty database (see also Makefile).
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     8
19
929ad32d63fc Pure/ROOT.ML
wenzelm
parents: 2
diff changeset
     9
TO DO:
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    10
instantiation of theorems can lead to inconsistent sorting of type vars if
19
929ad32d63fc Pure/ROOT.ML
wenzelm
parents: 2
diff changeset
    11
'a::S is already present and 'a::T is introduced.
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    12
*)
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    13
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    14
val banner = "Pure Isabelle";
83
de9316670e89 updated version to October 93
lcp
parents: 73
diff changeset
    15
val version = "October 93";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    16
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    17
print_depth 1;
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    18
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    19
use "library.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    20
use "term.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    21
use "symtab.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    22
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    23
structure Symtab = SymtabFun();
19
929ad32d63fc Pure/ROOT.ML
wenzelm
parents: 2
diff changeset
    24
929ad32d63fc Pure/ROOT.ML
wenzelm
parents: 2
diff changeset
    25
(*Syntax module*)
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    26
cd "Syntax";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    27
use "ROOT.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    28
cd "..";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    29
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    30
use "type.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    31
use "sign.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    32
use "sequence.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    33
use "envir.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    34
use "pattern.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    35
use "unify.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    36
use "net.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    37
use "logic.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    38
use "thm.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    39
use "drule.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    40
use "tctical.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    41
use "tactic.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    42
use "goals.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    43
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    44
(*Will be visible to all object-logics.*)
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    45
structure Type = TypeFun(structure Symtab=Symtab and Syntax=Syntax);
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    46
structure Sign = SignFun(structure Type=Type and Syntax=Syntax);
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    47
structure Sequence = SequenceFun();
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    48
structure Envir = EnvirFun();
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    49
structure Pattern = PatternFun(structure Sign=Sign and Envir=Envir);
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    50
structure Unify = UnifyFun(structure Sign=Sign and Envir=Envir
19
929ad32d63fc Pure/ROOT.ML
wenzelm
parents: 2
diff changeset
    51
                           and Sequence=Sequence and Pattern=Pattern);
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    52
structure Net = NetFun();
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    53
structure Logic = LogicFun(structure Unify=Unify and Net=Net);
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    54
structure Thm = ThmFun(structure Logic=Logic and Unify=Unify and Net=Net
19
929ad32d63fc Pure/ROOT.ML
wenzelm
parents: 2
diff changeset
    55
                             and Pattern=Pattern);
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    56
structure Drule = DruleFun(structure Logic=Logic and Thm=Thm);
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    57
structure Tactical = TacticalFun(structure Logic=Logic and Drule=Drule);
19
929ad32d63fc Pure/ROOT.ML
wenzelm
parents: 2
diff changeset
    58
structure Tactic = TacticFun(structure Logic=Logic and Drule=Drule
929ad32d63fc Pure/ROOT.ML
wenzelm
parents: 2
diff changeset
    59
                             and Tactical=Tactical and Net=Net);
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    60
structure Goals = GoalsFun(structure Logic=Logic and Drule=Drule
19
929ad32d63fc Pure/ROOT.ML
wenzelm
parents: 2
diff changeset
    61
                           and Tactic=Tactic and Pattern=Pattern);
929ad32d63fc Pure/ROOT.ML
wenzelm
parents: 2
diff changeset
    62
open BasicSyntax Thm Drule Tactical Tactic Goals;
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    63
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    64
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
    65
19
929ad32d63fc Pure/ROOT.ML
wenzelm
parents: 2
diff changeset
    66
use "install_pp.ML";
2
c67f44be880f moved use of Thy/ROOT.ML to end of file because Thy/read.ML needs Thm
clasohm
parents: 0
diff changeset
    67
73
075db6ac7f2f delete_file now has type string -> unit in both NJ and POLY,
clasohm
parents: 19
diff changeset
    68
075db6ac7f2f delete_file now has type string -> unit in both NJ and POLY,
clasohm
parents: 19
diff changeset
    69
075db6ac7f2f delete_file now has type string -> unit in both NJ and POLY,
clasohm
parents: 19
diff changeset
    70
(*Theory parser
075db6ac7f2f delete_file now has type string -> unit in both NJ and POLY,
clasohm
parents: 19
diff changeset
    71
  (The new Thy/read.ML needs Thm so this has to be done AFTER Thm is
075db6ac7f2f delete_file now has type string -> unit in both NJ and POLY,
clasohm
parents: 19
diff changeset
    72
   created.) *)
075db6ac7f2f delete_file now has type string -> unit in both NJ and POLY,
clasohm
parents: 19
diff changeset
    73
cd "Thy";
075db6ac7f2f delete_file now has type string -> unit in both NJ and POLY,
clasohm
parents: 19
diff changeset
    74
use "ROOT.ML";
075db6ac7f2f delete_file now has type string -> unit in both NJ and POLY,
clasohm
parents: 19
diff changeset
    75
cd "..";
075db6ac7f2f delete_file now has type string -> unit in both NJ and POLY,
clasohm
parents: 19
diff changeset
    76