src/Pure/ROOT.ML
author wenzelm
Fri Oct 21 18:14:43 2005 +0200 (2005-10-21)
changeset 17963 5574f676092c
parent 17927 4b42562ec171
child 18059 ce6cff74931b
permissions -rw-r--r--
added goal.ML;
moved use of goals.ML;
wenzelm@19
     1
(*  Title:      Pure/ROOT.ML
clasohm@0
     2
    ID:         $Id$
clasohm@0
     3
wenzelm@16842
     4
Pure Isabelle.
clasohm@0
     5
*)
clasohm@0
     6
clasohm@0
     7
val banner = "Pure Isabelle";
wenzelm@11835
     8
val version = "Isabelle repository version";    (*filled in automatically!*)
wenzelm@11835
     9
wenzelm@17474
    10
(*if true then some tools will OMIT some proofs*)
wenzelm@17474
    11
val quick_and_dirty = ref false;
clasohm@0
    12
wenzelm@12248
    13
print_depth 10;
clasohm@0
    14
wenzelm@5684
    15
(*fake hiding of private structures*)
wenzelm@5684
    16
structure Hidden = struct end;
wenzelm@4949
    17
wenzelm@5017
    18
(*basic tools*)
clasohm@0
    19
use "library.ML";
wenzelm@5017
    20
cd "General"; use "ROOT.ML"; cd "..";
wenzelm@14781
    21
wenzelm@14781
    22
(*fundamental structures*)
clasohm@0
    23
use "term.ML";
wenzelm@14823
    24
use "General/pretty.ML";
wenzelm@14781
    25
use "sorts.ML";
wenzelm@14781
    26
use "type.ML";
wenzelm@16435
    27
use "context.ML";
wenzelm@16980
    28
use "compress.ML";
wenzelm@19
    29
wenzelm@4949
    30
(*inner syntax module*)
wenzelm@6178
    31
cd "Syntax"; use "ROOT.ML"; cd "..";
clasohm@0
    32
wenzelm@15825
    33
(*core of tactical proof system*)
wenzelm@2960
    34
use "type_infer.ML";
clasohm@0
    35
use "sign.ML";
clasohm@0
    36
use "envir.ML";
clasohm@0
    37
use "pattern.ML";
clasohm@0
    38
use "unify.ML";
clasohm@0
    39
use "net.ML";
clasohm@0
    40
use "logic.ML";
obua@16108
    41
use "defs.ML";
paulson@1528
    42
use "theory.ML";
berghofe@11511
    43
use "proofterm.ML";
clasohm@0
    44
use "thm.ML";
wenzelm@3986
    45
use "display.ML";
wenzelm@13271
    46
use "fact_index.ML";
wenzelm@3986
    47
use "pure_thy.ML";
clasohm@0
    48
use "drule.ML";
clasohm@0
    49
use "tctical.ML";
paulson@1582
    50
use "search.ML";
skalberg@15006
    51
use "meta_simplifier.ML";
wenzelm@17963
    52
use "goal.ML";
clasohm@0
    53
use "tactic.ML";
clasohm@0
    54
berghofe@11511
    55
(*proof term operations*)
wenzelm@15825
    56
use "Proof/reconstruct.ML";
wenzelm@15825
    57
use "Proof/proof_syntax.ML";
wenzelm@15825
    58
use "Proof/proof_rewrite_rules.ML";
wenzelm@15825
    59
use "Proof/proofchecker.ML";
wenzelm@15825
    60
wenzelm@15825
    61
(*theory auto loader database*)
wenzelm@15825
    62
use "Thy/thy_load.ML";
wenzelm@15825
    63
use "Thy/thy_info.ML";
berghofe@11511
    64
wenzelm@15825
    65
(*theory syntax -- new format*)
wenzelm@15825
    66
use "Isar/outer_lex.ML";
wenzelm@15825
    67
wenzelm@15825
    68
(*theory presentation*)
wenzelm@15825
    69
use "Thy/html.ML";
wenzelm@15825
    70
use "Thy/latex.ML";
wenzelm@15825
    71
use "Thy/present.ML";
wenzelm@15825
    72
use "Thy/thm_deps.ML";
wenzelm@15825
    73
wenzelm@15825
    74
(*theorem database ML interface*)
wenzelm@15825
    75
use "Thy/thm_database.ML";
clasohm@73
    76
wenzelm@16435
    77
(*the Isar system*)
wenzelm@6178
    78
cd "Isar"; use "ROOT.ML"; cd "..";
wenzelm@5834
    79
wenzelm@6693
    80
use "axclass.ML";
berghofe@11511
    81
use "codegen.ML";
berghofe@13402
    82
use "Proof/extraction.ML";
berghofe@11511
    83
paulson@15481
    84
(*the IsaPlanner subsystem*)
paulson@15481
    85
cd "IsaPlanner"; use "ROOT.ML"; cd "..";
paulson@15481
    86
wenzelm@17467
    87
cd "Tools"; use "ROOT.ML"; cd "..";
wenzelm@17467
    88
wenzelm@12778
    89
(*configuration for Proof General*)
wenzelm@17467
    90
setmp proofs 1 use "proof_general.ML";
obua@16781
    91
wenzelm@15801
    92
use_thy "Pure"; structure Pure = struct val thy = theory "Pure" end;
wenzelm@15801
    93
use_thy "CPure"; structure CPure = struct val thy = theory "CPure" end;
wenzelm@15801
    94
wenzelm@17467
    95
(*final ML setup*)
wenzelm@6178
    96
use "install_pp.ML";
wenzelm@6237
    97
val use = ThyInfo.use;
wenzelm@6226
    98
val cd = File.cd o Path.unpack;
wenzelm@7938
    99
ml_prompts "ML> " "ML# ";
berghofe@11511
   100
wenzelm@11545
   101
proofs := 0;