src/Cube/ROOT.ML
author paulson
Tue, 01 Sep 1998 15:04:59 +0200
changeset 5417 1f533238b53b
parent 4024 3c056eab237c
child 6349 f7750d816c21
permissions -rw-r--r--
new theory Induct/FoldSet

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

The Lambda-Cube a la Barendregt.
*)

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

print_depth 1;  

use_thy "Cube";

print_depth 8;

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