src/Pure/ROOT.ML
author wenzelm
Mon Feb 26 23:18:26 2007 +0100 (2007-02-26)
changeset 22361 d8d96d0122a7
parent 22233 c37d7404199b
child 22592 97b5290a8c34
permissions -rw-r--r--
added more_thm.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*)
wenzelm@21396
    19
use "General/basics.ML";
clasohm@0
    20
use "library.ML";
wenzelm@5017
    21
cd "General"; use "ROOT.ML"; cd "..";
wenzelm@14781
    22
wenzelm@14781
    23
(*fundamental structures*)
wenzelm@20075
    24
use "name.ML";
clasohm@0
    25
use "term.ML";
wenzelm@20507
    26
use "term_subst.ML";
wenzelm@14823
    27
use "General/pretty.ML";
wenzelm@14781
    28
use "sorts.ML";
wenzelm@14781
    29
use "type.ML";
wenzelm@16435
    30
use "context.ML";
wenzelm@16980
    31
use "compress.ML";
wenzelm@19
    32
wenzelm@4949
    33
(*inner syntax module*)
wenzelm@6178
    34
cd "Syntax"; use "ROOT.ML"; cd "..";
wenzelm@21475
    35
use "General/ml_syntax.ML";
clasohm@0
    36
wenzelm@15825
    37
(*core of tactical proof system*)
wenzelm@18934
    38
use "envir.ML";
wenzelm@18934
    39
use "logic.ML";
wenzelm@2960
    40
use "type_infer.ML";
wenzelm@18059
    41
use "consts.ML";
clasohm@0
    42
use "sign.ML";
clasohm@0
    43
use "pattern.ML";
clasohm@0
    44
use "unify.ML";
clasohm@0
    45
use "net.ML";
obua@16108
    46
use "defs.ML";
paulson@1528
    47
use "theory.ML";
berghofe@11511
    48
use "proofterm.ML";
clasohm@0
    49
use "thm.ML";
wenzelm@22361
    50
use "more_thm.ML";
wenzelm@13271
    51
use "fact_index.ML";
wenzelm@3986
    52
use "pure_thy.ML";
wenzelm@19589
    53
use "display.ML";
clasohm@0
    54
use "drule.ML";
wenzelm@22233
    55
use "morphism.ML";
wenzelm@19898
    56
use "variable.ML";
clasohm@0
    57
use "tctical.ML";
paulson@1582
    58
use "search.ML";
wenzelm@21708
    59
use "tactic.ML";
skalberg@15006
    60
use "meta_simplifier.ML";
wenzelm@19417
    61
use "conjunction.ML";
wenzelm@20225
    62
use "assumption.ML";
wenzelm@17963
    63
use "goal.ML";
clasohm@0
    64
berghofe@11511
    65
(*proof term operations*)
wenzelm@15825
    66
use "Proof/reconstruct.ML";
wenzelm@15825
    67
use "Proof/proof_syntax.ML";
wenzelm@15825
    68
use "Proof/proof_rewrite_rules.ML";
wenzelm@15825
    69
use "Proof/proofchecker.ML";
wenzelm@15825
    70
wenzelm@22108
    71
(*the main Isar system*)
wenzelm@6178
    72
cd "Isar"; use "ROOT.ML"; cd "..";
wenzelm@20207
    73
use "subgoal.ML";
wenzelm@5834
    74
berghofe@13402
    75
use "Proof/extraction.ML";
berghofe@11511
    76
wenzelm@17467
    77
cd "Tools"; use "ROOT.ML"; cd "..";
wenzelm@17467
    78
wenzelm@12778
    79
(*configuration for Proof General*)
wenzelm@21941
    80
cd "ProofGeneral"; use "ROOT.ML"; cd "..";
obua@16781
    81
wenzelm@18991
    82
use_thy "Pure";
wenzelm@18991
    83
structure Pure = struct val thy = theory "Pure" end;
wenzelm@18837
    84
wenzelm@18837
    85
Context.add_setup
wenzelm@18837
    86
 (Theory.del_modesyntax Syntax.default_mode Syntax.appl_syntax #>
wenzelm@18837
    87
  Theory.add_syntax Syntax.applC_syntax);
wenzelm@18991
    88
use_thy "CPure";
wenzelm@18991
    89
structure CPure = struct val thy = theory "CPure" end;
wenzelm@15801
    90
wenzelm@17467
    91
(*final ML setup*)
wenzelm@6178
    92
use "install_pp.ML";
wenzelm@6237
    93
val use = ThyInfo.use;
wenzelm@21858
    94
val cd = File.cd o Path.explode;
wenzelm@7938
    95
ml_prompts "ML> " "ML# ";
berghofe@11511
    96
wenzelm@11545
    97
proofs := 0;