|
0
|
1 |
(* Title: CTT/ROOT
|
|
|
2 |
ID: $Id$
|
|
|
3 |
Author: Lawrence C Paulson, Cambridge University Computer Laboratory
|
|
|
4 |
Copyright 1991 University of Cambridge
|
|
|
5 |
|
|
|
6 |
Adds Constructive Type Theory to a database containing pure Isabelle.
|
|
|
7 |
Should be executed in the subdirectory CTT.
|
|
|
8 |
*)
|
|
|
9 |
|
|
|
10 |
val banner = "Constructive Type Theory";
|
|
|
11 |
writeln banner;
|
|
|
12 |
|
|
|
13 |
print_depth 1;
|
|
|
14 |
|
|
72
|
15 |
structure Readthy = ReadthyFUN (structure ThySyn = ThySyn);
|
|
|
16 |
open Readthy;
|
|
|
17 |
|
|
0
|
18 |
use_thy"ctt";
|
|
|
19 |
use "../Provers/typedsimp.ML";
|
|
|
20 |
use "rew.ML";
|
|
|
21 |
use_thy "arith";
|
|
|
22 |
use_thy "bool";
|
|
|
23 |
|
|
|
24 |
use "../Pure/install_pp.ML";
|
|
|
25 |
print_depth 8;
|
|
|
26 |
|
|
|
27 |
val CTT_build_completed = (); (*indicate successful build*)
|