src/LCF/ROOT.ML
author paulson
Fri, 31 Jan 1997 17:13:19 +0100
changeset 2572 8a47f85e7a03
parent 1461 6bcb44e4d6e5
child 3941 ea440c63d206
permissions -rw-r--r--
ex_impE was incorrectly listed as Safe
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1461
6bcb44e4d6e5 expanded tabs
clasohm
parents: 1361
diff changeset
     1
(*  Title:      LCF/ROOT
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     2
    ID:         $Id$
1461
6bcb44e4d6e5 expanded tabs
clasohm
parents: 1361
diff changeset
     3
    Author:     Tobias Nipkow
0
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
Adds LCF to a database containing First-Order Logic.
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     7
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     8
This theory is based on Lawrence Paulson's book Logic and Computation.
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     9
*)
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    10
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    11
val banner = "Logic for Computable Functions (in FOL)";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    12
writeln banner;
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    13
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    14
print_depth 1;
121
d392174734e9 changed use_thy's parameter to exact theory name
clasohm
parents: 72
diff changeset
    15
use_thy "LCF";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    16
use"simpdata.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    17
use"pair.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    18
use"fix.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    19
1461
6bcb44e4d6e5 expanded tabs
clasohm
parents: 1361
diff changeset
    20
val LCF_build_completed = ();   (*indicate successful build*)