src/LK/ROOT.ML
author clasohm
Wed, 06 Oct 1993 14:19:39 +0100
changeset 32 a8f1cdbbc5b8
parent 0 a5a9c433f639
child 72 099d949fe467
permissions -rw-r--r--
changed "list-fn" to "listfn"
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     1
(*  Title: 	LK/ROOT
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     2
    ID:         $Id$
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     3
    Author: 	Lawrence C Paulson, Cambridge University Computer Laboratory
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     4
    Copyright   1991  University of Cambridge
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     5
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     6
Adds Classical Sequent Calculus to a database containing pure Isabelle. 
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     7
Should be executed in the subdirectory LK.
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     8
*)
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     9
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    10
val banner = "Classical First-Order Sequent Calculus";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    11
writeln banner;
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    12
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    13
print_depth 1;  
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    14
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    15
use_thy "lk";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    16
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    17
use "../Pure/install_pp.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    18
print_depth 8;
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    19
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    20
val LK_build_completed = ();	(*indicate successful build*)