src/Pure/ROOT.ML
author wenzelm
Wed Apr 04 00:13:13 2007 +0200 (2007-04-04)
changeset 22592 97b5290a8c34
parent 22361 d8d96d0122a7
child 22679 68cd69a388e2
permissions -rw-r--r--
added print_mode (generic non-sense);
     1 (*  Title:      Pure/ROOT.ML
     2     ID:         $Id$
     3 
     4 Pure Isabelle.
     5 *)
     6 
     7 val banner = "Pure Isabelle";
     8 val version = "Isabelle repository version";    (*filled in automatically!*)
     9 
    10 print_depth 10;
    11 
    12 (*fake hiding of private structures*)
    13 structure Hidden = struct end;
    14 
    15 (*basic tools*)
    16 use "General/basics.ML";
    17 use "library.ML";
    18 
    19 (*generic non-sense*)
    20 val quick_and_dirty = ref false;
    21 val print_mode = ref ([]: string list);
    22 fun print_mode_active s = member (op =) (! print_mode) s;
    23 
    24 cd "General"; use "ROOT.ML"; cd "..";
    25 
    26 (*fundamental structures*)
    27 use "name.ML";
    28 use "term.ML";
    29 use "term_subst.ML";
    30 use "General/pretty.ML";
    31 use "sorts.ML";
    32 use "type.ML";
    33 use "context.ML";
    34 use "compress.ML";
    35 
    36 (*inner syntax module*)
    37 cd "Syntax"; use "ROOT.ML"; cd "..";
    38 use "General/ml_syntax.ML";
    39 
    40 (*core of tactical proof system*)
    41 use "envir.ML";
    42 use "logic.ML";
    43 use "type_infer.ML";
    44 use "consts.ML";
    45 use "sign.ML";
    46 use "pattern.ML";
    47 use "unify.ML";
    48 use "net.ML";
    49 use "defs.ML";
    50 use "theory.ML";
    51 use "proofterm.ML";
    52 use "thm.ML";
    53 use "more_thm.ML";
    54 use "fact_index.ML";
    55 use "pure_thy.ML";
    56 use "display.ML";
    57 use "drule.ML";
    58 use "morphism.ML";
    59 use "variable.ML";
    60 use "tctical.ML";
    61 use "search.ML";
    62 use "tactic.ML";
    63 use "meta_simplifier.ML";
    64 use "conjunction.ML";
    65 use "assumption.ML";
    66 use "goal.ML";
    67 
    68 (*proof term operations*)
    69 use "Proof/reconstruct.ML";
    70 use "Proof/proof_syntax.ML";
    71 use "Proof/proof_rewrite_rules.ML";
    72 use "Proof/proofchecker.ML";
    73 
    74 (*the main Isar system*)
    75 cd "Isar"; use "ROOT.ML"; cd "..";
    76 use "subgoal.ML";
    77 
    78 use "Proof/extraction.ML";
    79 
    80 cd "Tools"; use "ROOT.ML"; cd "..";
    81 
    82 (*configuration for Proof General*)
    83 cd "ProofGeneral"; use "ROOT.ML"; cd "..";
    84 
    85 use_thy "Pure";
    86 structure Pure = struct val thy = theory "Pure" end;
    87 
    88 Context.add_setup
    89  (Theory.del_modesyntax Syntax.default_mode Syntax.appl_syntax #>
    90   Theory.add_syntax Syntax.applC_syntax);
    91 use_thy "CPure";
    92 structure CPure = struct val thy = theory "CPure" end;
    93 
    94 (*final ML setup*)
    95 use "install_pp.ML";
    96 val use = ThyInfo.use;
    97 val cd = File.cd o Path.explode;
    98 ml_prompts "ML> " "ML# ";
    99 
   100 proofs := 0;