src/Cube/ROOT.ML
author clasohm
Fri, 22 Oct 1993 13:35:15 +0100
changeset 72 099d949fe467
parent 0 a5a9c433f639
child 121 d392174734e9
permissions -rw-r--r--
changes for new Readthy
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     1
(*  Title: 	Cube/ROOT
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     2
    ID:         $Id$
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     3
    Author: 	Tobias Nipkow
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     4
    Copyright   1992  University of Cambridge
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     5
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     6
The Lambda-Cube a la Barendregt
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     7
*)
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     8
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     9
val banner = "Barendregt's Lambda-Cube";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    10
writeln banner;
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    11
72
099d949fe467 changes for new Readthy
clasohm
parents: 0
diff changeset
    12
structure Readthy = ReadthyFUN (structure ThySyn = ThySyn);
099d949fe467 changes for new Readthy
clasohm
parents: 0
diff changeset
    13
open Readthy;
099d949fe467 changes for new Readthy
clasohm
parents: 0
diff changeset
    14
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    15
print_depth 1;  
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    16
use_thy "cube";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    17
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    18
use "../Pure/install_pp.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    19
print_depth 8;
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    20
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    21
val Cube_build_completed = ();	(*indicate successful build*)