author | paulson |
Fri, 19 Sep 1997 16:12:21 +0200 | |
changeset 3685 | 5b8c0c8f576e |
parent 3511 | da4dd8b7ced4 |
child 3941 | ea440c63d206 |
permissions | -rw-r--r-- |
3511 | 1 |
(* Title: Cube/ROOT.ML |
0 | 2 |
ID: $Id$ |
1459 | 3 |
Author: Tobias Nipkow |
0 | 4 |
Copyright 1992 University of Cambridge |
5 |
||
3511 | 6 |
The Lambda-Cube a la Barendregt. |
0 | 7 |
*) |
8 |
||
9 |
val banner = "Barendregt's Lambda-Cube"; |
|
10 |
writeln banner; |
|
11 |
||
3511 | 12 |
print_depth 1; |
72 | 13 |
|
121 | 14 |
use_thy "Cube"; |
0 | 15 |
|
16 |
print_depth 8; |
|
17 |
||
1459 | 18 |
val Cube_build_completed = (); (*indicate successful build*) |