src/Pure/ROOT.ML
author paulson
Wed Nov 13 10:47:08 1996 +0100 (1996-11-13)
changeset 2183 8d42a7bccf0b
parent 1864 9ac4c2240d89
child 2236 c7869a443b14
permissions -rw-r--r--
Updated version and date
wenzelm@19
     1
(*  Title:      Pure/ROOT.ML
clasohm@0
     2
    ID:         $Id$
wenzelm@19
     3
    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
clasohm@0
     4
    Copyright   1993  University of Cambridge
clasohm@0
     5
wenzelm@19
     6
Root file for Pure Isabelle: all modules in proper order for loading.
wenzelm@19
     7
Loads pure Isabelle into an empty database (see also Makefile).
clasohm@0
     8
wenzelm@19
     9
TO DO:
clasohm@0
    10
instantiation of theorems can lead to inconsistent sorting of type vars if
wenzelm@19
    11
'a::S is already present and 'a::T is introduced.
clasohm@0
    12
*)
clasohm@0
    13
clasohm@0
    14
val banner = "Pure Isabelle";
paulson@2183
    15
val version = "Isabelle-94 revision 7: November 96";
clasohm@0
    16
clasohm@0
    17
print_depth 1;
clasohm@0
    18
clasohm@0
    19
use "library.ML";
paulson@1411
    20
use "symtab.ML";
clasohm@0
    21
use "term.ML";
wenzelm@19
    22
wenzelm@19
    23
(*Syntax module*)
clasohm@0
    24
cd "Syntax";
clasohm@0
    25
use "ROOT.ML";
clasohm@0
    26
cd "..";
clasohm@0
    27
clasohm@0
    28
use "type.ML";
clasohm@0
    29
use "sign.ML";
clasohm@0
    30
use "sequence.ML";
clasohm@0
    31
use "envir.ML";
clasohm@0
    32
use "pattern.ML";
clasohm@0
    33
use "unify.ML";
clasohm@0
    34
use "net.ML";
clasohm@0
    35
use "logic.ML";
paulson@1528
    36
use "theory.ML";
clasohm@0
    37
use "thm.ML";
paulson@1595
    38
use "deriv.ML";
paulson@1595
    39
use "display.ML";
clasohm@0
    40
use "drule.ML";
clasohm@0
    41
use "tctical.ML";
paulson@1582
    42
use "search.ML";
clasohm@0
    43
use "tactic.ML";
clasohm@0
    44
use "goals.ML";
wenzelm@403
    45
use "axclass.ML";
clasohm@0
    46
paulson@1528
    47
structure Pure  = struct val thy = Theory.pure_thy end;
paulson@1528
    48
structure CPure = struct val thy = Theory.cpure_thy end;
clasohm@2
    49
wenzelm@618
    50
(*Theory parser and loader*)
clasohm@73
    51
cd "Thy";
clasohm@73
    52
use "ROOT.ML";
clasohm@73
    53
cd "..";
clasohm@73
    54
wenzelm@618
    55
use "install_pp.ML";
wenzelm@618
    56
fun init_database () = (init_thy_reader (); init_pps ());
wenzelm@618
    57