src/CCL/ROOT.ML
author paulson
Fri, 31 Jan 1997 17:13:19 +0100
changeset 2572 8a47f85e7a03
parent 1361 90d615b599d9
child 6349 f7750d816c21
permissions -rw-r--r--
ex_impE was incorrectly listed as Safe
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     1
(*  Title:      CCL/ROOT
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     2
    ID:         $Id$
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     3
    Author:     Martin Coen, Cambridge University Computer Laboratory
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     4
    Copyright   1993  University of Cambridge
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     5
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     6
Adds Classical Computational Logic to a database containing First-Order Logic.
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     7
*)
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     8
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     9
val banner = "Classical Computational Logic (in FOL)";
997
a58082b8066c Now sets eta_contract.
lcp
parents: 121
diff changeset
    10
writeln banner;
a58082b8066c Now sets eta_contract.
lcp
parents: 121
diff changeset
    11
a58082b8066c Now sets eta_contract.
lcp
parents: 121
diff changeset
    12
print_depth 1;
a58082b8066c Now sets eta_contract.
lcp
parents: 121
diff changeset
    13
set eta_contract;
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    14
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    15
(* Higher-Order Set Theory Extension to FOL *)
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    16
(*      used as basis for CCL               *)
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    17
121
d392174734e9 changed use_thy's parameter to exact theory name
clasohm
parents: 72
diff changeset
    18
use_thy "Set";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    19
use     "subset.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    20
use     "equalities.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    21
use     "mono.ML";
121
d392174734e9 changed use_thy's parameter to exact theory name
clasohm
parents: 72
diff changeset
    22
use_thy "Lfp";
d392174734e9 changed use_thy's parameter to exact theory name
clasohm
parents: 72
diff changeset
    23
use_thy "Gfp";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    24
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    25
(* CCL - a computational logic for an untyped functional language *)
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    26
(*                       with evaluation to weak head-normal form *)
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    27
121
d392174734e9 changed use_thy's parameter to exact theory name
clasohm
parents: 72
diff changeset
    28
use_thy "CCL";
d392174734e9 changed use_thy's parameter to exact theory name
clasohm
parents: 72
diff changeset
    29
use_thy "Term";
d392174734e9 changed use_thy's parameter to exact theory name
clasohm
parents: 72
diff changeset
    30
use_thy "Type";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    31
use     "coinduction.ML";
121
d392174734e9 changed use_thy's parameter to exact theory name
clasohm
parents: 72
diff changeset
    32
use_thy "Hered";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    33
121
d392174734e9 changed use_thy's parameter to exact theory name
clasohm
parents: 72
diff changeset
    34
use_thy "Trancl";
d392174734e9 changed use_thy's parameter to exact theory name
clasohm
parents: 72
diff changeset
    35
use_thy "Wfd";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    36
use     "genrec.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    37
use     "typecheck.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    38
use     "eval.ML";
121
d392174734e9 changed use_thy's parameter to exact theory name
clasohm
parents: 72
diff changeset
    39
use_thy "Fix";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    40
997
a58082b8066c Now sets eta_contract.
lcp
parents: 121
diff changeset
    41
print_depth 8;
a58082b8066c Now sets eta_contract.
lcp
parents: 121
diff changeset
    42
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    43
val CCL_build_completed = ();   (*indicate successful build*)