src/Cube/ROOT.ML
author paulson
Wed, 27 Nov 1996 10:36:38 +0100
changeset 2237 f01ac387e82b
parent 1459 d12da312eff4
child 3511 da4dd8b7ced4
permissions -rw-r--r--
Replaced obsolete "use" command

(*  Title:      Cube/ROOT
    ID:         $Id$
    Author:     Tobias Nipkow
    Copyright   1992  University of Cambridge

The Lambda-Cube a la Barendregt
*)

val banner = "Barendregt's Lambda-Cube";
writeln banner;

init_thy_reader();

print_depth 1;  
use_thy "Cube";

init_pps ();
print_depth 8;

val Cube_build_completed = ();  (*indicate successful build*)