src/HOLCF/ROOT.ML
author sandnerr
Mon Dec 09 19:07:26 1996 +0100 (1996-12-09)
changeset 2353 7405e3cac88a
parent 2282 90fb68d597f8
child 2394 91d8abf108be
permissions -rw-r--r--
qed_spec_mp moved to end of file
clasohm@1461
     1
(*  Title:      HOLCF/ROOT
nipkow@243
     2
    ID:         $Id$
clasohm@1461
     3
    Author:     Franz Regensburger
clasohm@1461
     4
    Copyright   1993 Technische Universitaet Muenchen
nipkow@243
     5
nipkow@243
     6
ROOT file for the conservative extension of HOL by the LCF logic.
nipkow@243
     7
Should be executed in subdirectory HOLCF.
nipkow@243
     8
*)
nipkow@243
     9
regensbu@1274
    10
val banner = "HOLCF with sections axioms,ops,domain,generated";
regensbu@1274
    11
init_thy_reader();
regensbu@1274
    12
regensbu@1274
    13
(* start 8bit 1 *)
oheimb@2278
    14
val banner = 
oheimb@2278
    15
        "HOLCF with sections axioms,ops,domain,generated and 8bit characters";
regensbu@1274
    16
(* end 8bit 1 *)
regensbu@1274
    17
nipkow@243
    18
writeln banner;
nipkow@243
    19
print_depth 1;
nipkow@243
    20
regensbu@1274
    21
use_thy "HOLCF";
regensbu@1274
    22
regensbu@1274
    23
(* install sections: axioms, ops *)
regensbu@1274
    24
regensbu@1274
    25
use "ax_ops/holcflogic.ML";
regensbu@1274
    26
use "ax_ops/thy_axioms.ML";
regensbu@1274
    27
use "ax_ops/thy_ops.ML";
regensbu@1274
    28
use "ax_ops/thy_syntax.ML";
regensbu@1274
    29
regensbu@1274
    30
regensbu@1274
    31
(* install sections: domain, generated *)
nipkow@243
    32
regensbu@1285
    33
use "domain/library.ML";
regensbu@1285
    34
use "domain/syntax.ML";
regensbu@1285
    35
use "domain/axioms.ML";
regensbu@1285
    36
use "domain/theorems.ML";
regensbu@1285
    37
use "domain/extender.ML";
regensbu@1285
    38
use "domain/interface.ML";
nipkow@297
    39
regensbu@1274
    40
init_thy_reader();
regensbu@1274
    41
init_pps ();
regensbu@1274
    42
regensbu@1274
    43
print_depth 100;  
regensbu@1571
    44
make_html:=false;
nipkow@243
    45
sandnerr@2353
    46
fun qed_spec_mp name =
sandnerr@2353
    47
  let val thm = normalize_thm [RSspec,RSmp] (result())
sandnerr@2353
    48
  in bind_thm(name, thm) end;
sandnerr@2353
    49
clasohm@1461
    50
val HOLCF_build_completed = (); (*indicate successful build*)