src/Pure/ROOT.ML
author aspinall
Thu, 21 Dec 2006 08:42:53 +0100
changeset 21890 3fb9762ba701
parent 21889 682dbe947862
child 21930 918fb0fb5c72
permissions -rw-r--r--
Disable new Proof General code until SML/NJ compile fixed.
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$
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     3
16842
wenzelm
parents: 16781
diff changeset
     4
Pure Isabelle.
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     5
*)
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     6
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     7
val banner = "Pure Isabelle";
11835
13d12b99b843 revert to proper version (!);
wenzelm
parents: 11759
diff changeset
     8
val version = "Isabelle repository version";    (*filled in automatically!*)
13d12b99b843 revert to proper version (!);
wenzelm
parents: 11759
diff changeset
     9
17474
e4cdb9f061fb added quick_and_dirty (from Isar/skip_proofs.ML);
wenzelm
parents: 17467
diff changeset
    10
(*if true then some tools will OMIT some proofs*)
e4cdb9f061fb added quick_and_dirty (from Isar/skip_proofs.ML);
wenzelm
parents: 17467
diff changeset
    11
val quick_and_dirty = ref false;
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    12
12248
f059876ef1d3 print_depth 10;
wenzelm
parents: 11966
diff changeset
    13
print_depth 10;
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    14
5684
9a3acc4c7c2e structure Hidden = struct end;
wenzelm
parents: 5607
diff changeset
    15
(*fake hiding of private structures*)
9a3acc4c7c2e structure Hidden = struct end;
wenzelm
parents: 5607
diff changeset
    16
structure Hidden = struct end;
4949
c73f72daee64 tuned comments;
wenzelm
parents: 4781
diff changeset
    17
5017
786a17461ab9 moved table.ML, object.ML, seq.ML, name_space.ML to General;
wenzelm
parents: 5004
diff changeset
    18
(*basic tools*)
21396
afd8ba74313c added General/basics.ML;
wenzelm
parents: 20507
diff changeset
    19
use "General/basics.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    20
use "library.ML";
5017
786a17461ab9 moved table.ML, object.ML, seq.ML, name_space.ML to General;
wenzelm
parents: 5004
diff changeset
    21
cd "General"; use "ROOT.ML"; cd "..";
14781
2be804d1dda9 type.ML now before Syntax module;
wenzelm
parents: 13402
diff changeset
    22
2be804d1dda9 type.ML now before Syntax module;
wenzelm
parents: 13402
diff changeset
    23
(*fundamental structures*)
20075
a7e183bfebef added name.ML;
wenzelm
parents: 19898
diff changeset
    24
use "name.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    25
use "term.ML";
20507
bb68343f6f83 added Pure/term_subst.ML;
wenzelm
parents: 20225
diff changeset
    26
use "term_subst.ML";
14823
ebb8499d0fd2 moved print_mode to General/output.ML; load General/pretty.ML early;
wenzelm
parents: 14781
diff changeset
    27
use "General/pretty.ML";
14781
2be804d1dda9 type.ML now before Syntax module;
wenzelm
parents: 13402
diff changeset
    28
use "sorts.ML";
2be804d1dda9 type.ML now before Syntax module;
wenzelm
parents: 13402
diff changeset
    29
use "type.ML";
16435
3b17850023f1 removed Pure/theory_data.ML;
wenzelm
parents: 16108
diff changeset
    30
use "context.ML";
16980
79d6b391344b added compress.ML;
wenzelm
parents: 16842
diff changeset
    31
use "compress.ML";
19
929ad32d63fc Pure/ROOT.ML
wenzelm
parents: 2
diff changeset
    32
4949
c73f72daee64 tuned comments;
wenzelm
parents: 4781
diff changeset
    33
(*inner syntax module*)
6178
wenzelm
parents: 6164
diff changeset
    34
cd "Syntax"; use "ROOT.ML"; cd "..";
21475
ec0d1cf0eb35 added morphism.ML, General/ml_syntax.ML;
wenzelm
parents: 21396
diff changeset
    35
use "General/ml_syntax.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    36
15825
1576f9d3ffae added content of Pure/Thy/ROOT.ML, Pure/Proof/ROOT.ML;
wenzelm
parents: 15801
diff changeset
    37
(*core of tactical proof system*)
18934
0342b7c21388 load envir.ML and logic.ML early;
wenzelm
parents: 18870
diff changeset
    38
use "envir.ML";
0342b7c21388 load envir.ML and logic.ML early;
wenzelm
parents: 18870
diff changeset
    39
use "logic.ML";
2960
a6b56d03ed0d added sorts.ML, type_infer.ML;
wenzelm
parents: 2582
diff changeset
    40
use "type_infer.ML";
18059
ce6cff74931b added consts.ML;
wenzelm
parents: 17963
diff changeset
    41
use "consts.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    42
use "sign.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    43
use "pattern.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    44
use "unify.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    45
use "net.ML";
16108
cf468b93a02e Implement cycle-free overloading, so that definitions cannot harm consistency any more (except of course via interaction with axioms).
obua
parents: 15825
diff changeset
    46
use "defs.ML";
1528
608dd813b437 Theories are now in theory.ML
paulson
parents: 1498
diff changeset
    47
use "theory.ML";
11511
ec89f5cff390 Added new files for proof terms.
berghofe
parents: 11065
diff changeset
    48
use "proofterm.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    49
use "thm.ML";
21475
ec0d1cf0eb35 added morphism.ML, General/ml_syntax.ML;
wenzelm
parents: 21396
diff changeset
    50
use "morphism.ML";
13271
d0859ff6cd65 added fact_index.ML;
wenzelm
parents: 12778
diff changeset
    51
use "fact_index.ML";
3986
d788dcb86930 added pure_thy.ML;
wenzelm
parents: 3971
diff changeset
    52
use "pure_thy.ML";
19589
wenzelm
parents: 19417
diff changeset
    53
use "display.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    54
use "drule.ML";
19898
b1d179e42713 added variable.ML;
wenzelm
parents: 19837
diff changeset
    55
use "variable.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    56
use "tctical.ML";
1582
97a305db0c9e Updated for new file search.ML
paulson
parents: 1528
diff changeset
    57
use "search.ML";
21708
45e7491bea47 reorganized structure Tactic vs. MetaSimplifier;
wenzelm
parents: 21687
diff changeset
    58
use "tactic.ML";
15006
107e4dfd3b96 Merging the meta-simplifier with the Provers-simplifier. Next step:
skalberg
parents: 14823
diff changeset
    59
use "meta_simplifier.ML";
19417
3a9d25bdd7f4 added conjunction.ML;
wenzelm
parents: 19382
diff changeset
    60
use "conjunction.ML";
20225
4b8e42490e58 added Pure/assumption.ML;
wenzelm
parents: 20207
diff changeset
    61
use "assumption.ML";
17963
5574f676092c added goal.ML;
wenzelm
parents: 17927
diff changeset
    62
use "goal.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    63
11511
ec89f5cff390 Added new files for proof terms.
berghofe
parents: 11065
diff changeset
    64
(*proof term operations*)
15825
1576f9d3ffae added content of Pure/Thy/ROOT.ML, Pure/Proof/ROOT.ML;
wenzelm
parents: 15801
diff changeset
    65
use "Proof/reconstruct.ML";
1576f9d3ffae added content of Pure/Thy/ROOT.ML, Pure/Proof/ROOT.ML;
wenzelm
parents: 15801
diff changeset
    66
use "Proof/proof_syntax.ML";
1576f9d3ffae added content of Pure/Thy/ROOT.ML, Pure/Proof/ROOT.ML;
wenzelm
parents: 15801
diff changeset
    67
use "Proof/proof_rewrite_rules.ML";
1576f9d3ffae added content of Pure/Thy/ROOT.ML, Pure/Proof/ROOT.ML;
wenzelm
parents: 15801
diff changeset
    68
use "Proof/proofchecker.ML";
1576f9d3ffae added content of Pure/Thy/ROOT.ML, Pure/Proof/ROOT.ML;
wenzelm
parents: 15801
diff changeset
    69
1576f9d3ffae added content of Pure/Thy/ROOT.ML, Pure/Proof/ROOT.ML;
wenzelm
parents: 15801
diff changeset
    70
(*theory auto loader database*)
1576f9d3ffae added content of Pure/Thy/ROOT.ML, Pure/Proof/ROOT.ML;
wenzelm
parents: 15801
diff changeset
    71
use "Thy/thy_load.ML";
1576f9d3ffae added content of Pure/Thy/ROOT.ML, Pure/Proof/ROOT.ML;
wenzelm
parents: 15801
diff changeset
    72
use "Thy/thy_info.ML";
11511
ec89f5cff390 Added new files for proof terms.
berghofe
parents: 11065
diff changeset
    73
18870
020e242c02a0 tuned comments;
wenzelm
parents: 18837
diff changeset
    74
(*theory syntax*)
15825
1576f9d3ffae added content of Pure/Thy/ROOT.ML, Pure/Proof/ROOT.ML;
wenzelm
parents: 15801
diff changeset
    75
use "Isar/outer_lex.ML";
1576f9d3ffae added content of Pure/Thy/ROOT.ML, Pure/Proof/ROOT.ML;
wenzelm
parents: 15801
diff changeset
    76
16435
3b17850023f1 removed Pure/theory_data.ML;
wenzelm
parents: 16108
diff changeset
    77
(*the Isar system*)
6178
wenzelm
parents: 6164
diff changeset
    78
cd "Isar"; use "ROOT.ML"; cd "..";
20207
4c57e850e8d5 added Pure/subgoal.ML;
wenzelm
parents: 20075
diff changeset
    79
use "subgoal.ML";
5834
c6fea8488ce7 added Isar;
wenzelm
parents: 5684
diff changeset
    80
13402
e6e826bb8c3c Added program extraction module.
berghofe
parents: 13271
diff changeset
    81
use "Proof/extraction.ML";
11511
ec89f5cff390 Added new files for proof terms.
berghofe
parents: 11065
diff changeset
    82
17467
2e9f745924d0 removed obsolete BasisLibrary;
wenzelm
parents: 16980
diff changeset
    83
cd "Tools"; use "ROOT.ML"; cd "..";
2e9f745924d0 removed obsolete BasisLibrary;
wenzelm
parents: 16980
diff changeset
    84
12778
3120e338ffae Interface/proof_general.ML move to proof_general.ML;
wenzelm
parents: 12248
diff changeset
    85
(*configuration for Proof General*)
21889
682dbe947862 Use new Proof General code by default [see comment for reverting]
aspinall
parents: 21858
diff changeset
    86
(* Next line is OLD CODE: in case you have problems, uncomment next line and 
682dbe947862 Use new Proof General code by default [see comment for reverting]
aspinall
parents: 21858
diff changeset
    87
   comment out line after. Please report any problems to da@inf.ed.ac.uk.
682dbe947862 Use new Proof General code by default [see comment for reverting]
aspinall
parents: 21858
diff changeset
    88
   Plan is to remove old code very soon. *)
21890
3fb9762ba701 Disable new Proof General code until SML/NJ compile fixed.
aspinall
parents: 21889
diff changeset
    89
(use |> setmp proofs 1 |> setmp quick_and_dirty true) "proof_general.ML"; 
3fb9762ba701 Disable new Proof General code until SML/NJ compile fixed.
aspinall
parents: 21889
diff changeset
    90
(* Next line is NEW CODE.  Currently broken on SMLNJ. *)
3fb9762ba701 Disable new Proof General code until SML/NJ compile fixed.
aspinall
parents: 21889
diff changeset
    91
(* cd "ProofGeneral"; use "ROOT.ML"; cd "..";  new code *)
16781
663235466562 - introduce Pure/Tools directory
obua
parents: 16435
diff changeset
    92
18991
0ded3b842878 use proof_general.ML: setmp quick_and_dirty captures default value;
wenzelm
parents: 18934
diff changeset
    93
use_thy "Pure";
0ded3b842878 use proof_general.ML: setmp quick_and_dirty captures default value;
wenzelm
parents: 18934
diff changeset
    94
structure Pure = struct val thy = theory "Pure" end;
18837
577438cc653e CPure: Context.add_setup;
wenzelm
parents: 18169
diff changeset
    95
577438cc653e CPure: Context.add_setup;
wenzelm
parents: 18169
diff changeset
    96
Context.add_setup
577438cc653e CPure: Context.add_setup;
wenzelm
parents: 18169
diff changeset
    97
 (Theory.del_modesyntax Syntax.default_mode Syntax.appl_syntax #>
577438cc653e CPure: Context.add_setup;
wenzelm
parents: 18169
diff changeset
    98
  Theory.add_syntax Syntax.applC_syntax);
18991
0ded3b842878 use proof_general.ML: setmp quick_and_dirty captures default value;
wenzelm
parents: 18934
diff changeset
    99
use_thy "CPure";
0ded3b842878 use proof_general.ML: setmp quick_and_dirty captures default value;
wenzelm
parents: 18934
diff changeset
   100
structure CPure = struct val thy = theory "CPure" end;
15801
d2f5ca3c048d superceded by Pure.thy and CPure.thy;
wenzelm
parents: 15597
diff changeset
   101
17467
2e9f745924d0 removed obsolete BasisLibrary;
wenzelm
parents: 16980
diff changeset
   102
(*final ML setup*)
6178
wenzelm
parents: 6164
diff changeset
   103
use "install_pp.ML";
6237
699b4daf1451 Session.finish ();
wenzelm
parents: 6226
diff changeset
   104
val use = ThyInfo.use;
21858
05f57309170c avoid conflict with Alice keywords: renamed pack -> implode, unpack -> explode, any -> many, avoided assert;
wenzelm
parents: 21708
diff changeset
   105
val cd = File.cd o Path.explode;
7938
e45599caee6c activate ml_prompts;
wenzelm
parents: 6783
diff changeset
   106
ml_prompts "ML> " "ML# ";
11511
ec89f5cff390 Added new files for proof terms.
berghofe
parents: 11065
diff changeset
   107
11545
0b56d9c90dcf final proofs := 0;
wenzelm
parents: 11511
diff changeset
   108
proofs := 0;