| author | wenzelm | 
| Fri, 16 Jul 1999 22:22:59 +0200 | |
| changeset 7022 | abf9d5e2fb6e | 
| parent 6783 | 9cf9c17d9e35 | 
| child 7938 | e45599caee6c | 
| permissions | -rw-r--r-- | 
| 19 | 1 | (* Title: Pure/ROOT.ML | 
| 0 | 2 | ID: $Id$ | 
| 19 | 3 | Author: Lawrence C Paulson, Cambridge University Computer Laboratory | 
| 0 | 4 | Copyright 1993 University of Cambridge | 
| 5 | ||
| 4986 | 6 | Root file for Pure Isabelle. | 
| 0 | 7 | *) | 
| 8 | ||
| 9 | val banner = "Pure Isabelle"; | |
| 4986 | 10 | val version = "Isabelle repository"; | 
| 0 | 11 | |
| 12 | print_depth 1; | |
| 13 | ||
| 6178 | 14 | (*global flags*) | 
| 15 | val print_mode = ref ([]: string list); | |
| 16 | val quick_and_dirty = ref false; (*if true then some packages will OMIT SOME PROOFS*) | |
| 6164 | 17 | |
| 5684 | 18 | (*fake hiding of private structures*) | 
| 19 | structure Hidden = struct end; | |
| 4949 | 20 | |
| 5017 
786a17461ab9
moved table.ML, object.ML, seq.ML, name_space.ML to General;
 wenzelm parents: 
5004diff
changeset | 21 | (*basic tools*) | 
| 0 | 22 | use "library.ML"; | 
| 5017 
786a17461ab9
moved table.ML, object.ML, seq.ML, name_space.ML to General;
 wenzelm parents: 
5004diff
changeset | 23 | cd "General"; use "ROOT.ML"; cd ".."; | 
| 0 | 24 | use "term.ML"; | 
| 19 | 25 | |
| 4949 | 26 | (*inner syntax module*) | 
| 6178 | 27 | cd "Syntax"; use "ROOT.ML"; cd ".."; | 
| 0 | 28 | |
| 4949 | 29 | (*main system*) | 
| 2960 | 30 | use "sorts.ML"; | 
| 31 | use "type_infer.ML"; | |
| 0 | 32 | use "type.ML"; | 
| 33 | use "sign.ML"; | |
| 34 | use "envir.ML"; | |
| 35 | use "pattern.ML"; | |
| 36 | use "unify.ML"; | |
| 37 | use "net.ML"; | |
| 38 | use "logic.ML"; | |
| 1528 | 39 | use "theory.ML"; | 
| 5004 | 40 | use "theory_data.ML"; | 
| 6178 | 41 | use "context.ML"; | 
| 0 | 42 | use "thm.ML"; | 
| 3986 | 43 | use "display.ML"; | 
| 44 | use "pure_thy.ML"; | |
| 1595 | 45 | use "deriv.ML"; | 
| 0 | 46 | use "drule.ML"; | 
| 5244 | 47 | use "locale.ML"; | 
| 0 | 48 | use "tctical.ML"; | 
| 1582 | 49 | use "search.ML"; | 
| 0 | 50 | use "tactic.ML"; | 
| 51 | use "goals.ML"; | |
| 52 | ||
| 6178 | 53 | (*theory system operations*) | 
| 54 | cd "Thy"; use "ROOT.ML"; cd ".."; | |
| 73 
075db6ac7f2f
delete_file now has type string -> unit in both NJ and POLY,
 clasohm parents: 
19diff
changeset | 55 | |
| 5834 | 56 | (*the Isar subsystem*) | 
| 6178 | 57 | cd "Isar"; use "ROOT.ML"; cd ".."; | 
| 5834 | 58 | |
| 6693 
fec75b36a809
added Interface/ROOT.ML Interface/isamode.ML Interface/proof_general.ML;
 wenzelm parents: 
6365diff
changeset | 59 | use "axclass.ML"; | 
| 
fec75b36a809
added Interface/ROOT.ML Interface/isamode.ML Interface/proof_general.ML;
 wenzelm parents: 
6365diff
changeset | 60 | |
| 
fec75b36a809
added Interface/ROOT.ML Interface/isamode.ML Interface/proof_general.ML;
 wenzelm parents: 
6365diff
changeset | 61 | (*external interfaces*) | 
| 
fec75b36a809
added Interface/ROOT.ML Interface/isamode.ML Interface/proof_general.ML;
 wenzelm parents: 
6365diff
changeset | 62 | cd "Interface"; use "ROOT.ML"; cd ".."; | 
| 
fec75b36a809
added Interface/ROOT.ML Interface/isamode.ML Interface/proof_general.ML;
 wenzelm parents: 
6365diff
changeset | 63 | |
| 6178 | 64 | (*final Pure theory setup*) | 
| 5211 | 65 | use "pure.ML"; | 
| 66 | ||
| 5568 | 67 | (*several object-logics declare theories that hide basis library structures*) | 
| 4209 | 68 | structure BasisLibrary = | 
| 69 | struct | |
| 6178 | 70 | structure List = List; | 
| 71 | structure Option = Option; | |
| 72 | structure Bool = Bool; | |
| 73 | structure String = String; | |
| 74 | structure Int = Int; | |
| 75 | structure Real = Real; | |
| 4209 | 76 | end; | 
| 77 | ||
| 6178 | 78 | use "install_pp.ML"; | 
| 6226 | 79 | |
| 6237 | 80 | val use = ThyInfo.use; | 
| 6226 | 81 | val cd = File.cd o Path.unpack; | 
| 82 | ||
| 3508 | 83 | print_depth 8; | 
| 5834 | 84 | (*ml_prompts "ML> " "ML# ";*) | 
| 6237 | 85 | |
| 86 | Session.finish (); |