src/Pure/ROOT.ML
author wenzelm
Thu, 04 Feb 1999 18:15:01 +0100
changeset 6226 42c94393d39e
parent 6178 d6d6bdfe8340
child 6237 699b4daf1451
permissions -rw-r--r--
use, cd;
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
4986
d4f257d3445a tuned msgs;
wenzelm
parents: 4978
diff changeset
     6
Root file for Pure Isabelle.
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     7
*)
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     8
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     9
val banner = "Pure Isabelle";
4986
d4f257d3445a tuned msgs;
wenzelm
parents: 4978
diff changeset
    10
val version = "Isabelle repository";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    11
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    12
print_depth 1;
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    13
6178
wenzelm
parents: 6164
diff changeset
    14
(*global flags*)
wenzelm
parents: 6164
diff changeset
    15
val print_mode = ref ([]: string list);
wenzelm
parents: 6164
diff changeset
    16
val quick_and_dirty = ref false;        (*if true then some packages will OMIT SOME PROOFS*)
6164
a0e9501d56f8 moved print_mode to ROOT.ML
oheimb
parents: 6083
diff changeset
    17
5684
9a3acc4c7c2e structure Hidden = struct end;
wenzelm
parents: 5607
diff changeset
    18
(*fake hiding of private structures*)
9a3acc4c7c2e structure Hidden = struct end;
wenzelm
parents: 5607
diff changeset
    19
structure Hidden = struct end;
4949
c73f72daee64 tuned comments;
wenzelm
parents: 4781
diff changeset
    20
5017
786a17461ab9 moved table.ML, object.ML, seq.ML, name_space.ML to General;
wenzelm
parents: 5004
diff changeset
    21
(*basic tools*)
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    22
use "library.ML";
5017
786a17461ab9 moved table.ML, object.ML, seq.ML, name_space.ML to General;
wenzelm
parents: 5004
diff changeset
    23
cd "General"; use "ROOT.ML"; cd "..";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    24
use "term.ML";
19
929ad32d63fc Pure/ROOT.ML
wenzelm
parents: 2
diff changeset
    25
4949
c73f72daee64 tuned comments;
wenzelm
parents: 4781
diff changeset
    26
(*inner syntax module*)
6178
wenzelm
parents: 6164
diff changeset
    27
cd "Syntax"; use "ROOT.ML"; cd "..";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    28
4949
c73f72daee64 tuned comments;
wenzelm
parents: 4781
diff changeset
    29
(*main system*)
2960
a6b56d03ed0d added sorts.ML, type_infer.ML;
wenzelm
parents: 2582
diff changeset
    30
use "sorts.ML";
a6b56d03ed0d added sorts.ML, type_infer.ML;
wenzelm
parents: 2582
diff changeset
    31
use "type_infer.ML";
0
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 "envir.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    35
use "pattern.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    36
use "unify.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    37
use "net.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    38
use "logic.ML";
1528
608dd813b437 Theories are now in theory.ML
paulson
parents: 1498
diff changeset
    39
use "theory.ML";
5004
cf4e3b487caf added theory_data.ML;
wenzelm
parents: 4991
diff changeset
    40
use "theory_data.ML";
6178
wenzelm
parents: 6164
diff changeset
    41
use "context.ML";
5834
c6fea8488ce7 added Isar;
wenzelm
parents: 5684
diff changeset
    42
use "object_logic.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    43
use "thm.ML";
3986
d788dcb86930 added pure_thy.ML;
wenzelm
parents: 3971
diff changeset
    44
use "display.ML";
d788dcb86930 added pure_thy.ML;
wenzelm
parents: 3971
diff changeset
    45
use "pure_thy.ML";
1595
b9984b1dbc4c Now loads deriv.ML
paulson
parents: 1582
diff changeset
    46
use "deriv.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    47
use "drule.ML";
5244
5313f781efe0 added locale.ML;
wenzelm
parents: 5211
diff changeset
    48
use "locale.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    49
use "tctical.ML";
1582
97a305db0c9e Updated for new file search.ML
paulson
parents: 1528
diff changeset
    50
use "search.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    51
use "tactic.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    52
use "goals.ML";
403
4c66b1577753 added "axclass.ML", structure AxClass;
wenzelm
parents: 83
diff changeset
    53
use "axclass.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    54
6178
wenzelm
parents: 6164
diff changeset
    55
(*theory system operations*)
wenzelm
parents: 6164
diff changeset
    56
cd "Thy"; use "ROOT.ML"; cd "..";
73
075db6ac7f2f delete_file now has type string -> unit in both NJ and POLY,
clasohm
parents: 19
diff changeset
    57
5834
c6fea8488ce7 added Isar;
wenzelm
parents: 5684
diff changeset
    58
(*the Isar subsystem*)
6178
wenzelm
parents: 6164
diff changeset
    59
cd "Isar"; use "ROOT.ML"; cd "..";
5834
c6fea8488ce7 added Isar;
wenzelm
parents: 5684
diff changeset
    60
6178
wenzelm
parents: 6164
diff changeset
    61
(*final Pure theory setup*)
5211
c02b0c727780 late setup of Pure and CPure;
wenzelm
parents: 5113
diff changeset
    62
use "pure.ML";
c02b0c727780 late setup of Pure and CPure;
wenzelm
parents: 5113
diff changeset
    63
5568
0067dd151d7a added Int to BasisLibrary
paulson
parents: 5244
diff changeset
    64
(*several object-logics declare theories that hide basis library structures*)
4209
4e0c98184285 structure BasisLibrary;
wenzelm
parents: 3986
diff changeset
    65
structure BasisLibrary =
4e0c98184285 structure BasisLibrary;
wenzelm
parents: 3986
diff changeset
    66
struct
6178
wenzelm
parents: 6164
diff changeset
    67
  structure List = List;
wenzelm
parents: 6164
diff changeset
    68
  structure Option = Option;
wenzelm
parents: 6164
diff changeset
    69
  structure Bool = Bool;
wenzelm
parents: 6164
diff changeset
    70
  structure String = String;
wenzelm
parents: 6164
diff changeset
    71
  structure Int = Int;
wenzelm
parents: 6164
diff changeset
    72
  structure Real = Real;
4209
4e0c98184285 structure BasisLibrary;
wenzelm
parents: 3986
diff changeset
    73
end;
4e0c98184285 structure BasisLibrary;
wenzelm
parents: 3986
diff changeset
    74
6178
wenzelm
parents: 6164
diff changeset
    75
use "install_pp.ML";
6226
42c94393d39e use, cd;
wenzelm
parents: 6178
diff changeset
    76
42c94393d39e use, cd;
wenzelm
parents: 6178
diff changeset
    77
val use = ThyInfo.load_file o Path.unpack;
42c94393d39e use, cd;
wenzelm
parents: 6178
diff changeset
    78
val cd = File.cd o Path.unpack;
42c94393d39e use, cd;
wenzelm
parents: 6178
diff changeset
    79
3508
089806e6133b removed init_database;
wenzelm
parents: 3280
diff changeset
    80
print_depth 8;
5834
c6fea8488ce7 added Isar;
wenzelm
parents: 5684
diff changeset
    81
(*ml_prompts "ML> " "ML# ";*)