src/HOLCF/ROOT.ML
author clasohm
Wed, 25 Oct 1995 12:53:53 +0100
changeset 1307 63a5788774f7
parent 1285 4dd0651d692d
child 1361 90d615b599d9
permissions -rw-r--r--
added init_html and make_chart
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
243
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
     1
(*  Title:	HOLCF/ROOT
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
     2
    ID:         $Id$
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
     3
    Author: 	Franz Regensburger
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
     4
    Copyright	1993 Technische Universitaet Muenchen
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
     5
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
     6
ROOT file for the conservative extension of HOL by the LCF logic.
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
     7
Should be executed in subdirectory HOLCF.
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
     8
*)
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
     9
1274
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    10
val banner = "HOLCF with sections axioms,ops,domain,generated";
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    11
init_thy_reader();
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    12
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    13
(* start 8bit 1 *)
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    14
(* end 8bit 1 *)
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    15
243
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
    16
writeln banner;
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
    17
print_depth 1;
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
    18
1274
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    19
use_thy "HOLCF";
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    20
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    21
(* install sections: axioms, ops *)
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    22
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    23
use "ax_ops/holcflogic.ML";
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    24
use "ax_ops/thy_axioms.ML";
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    25
use "ax_ops/thy_ops.ML";
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    26
use "ax_ops/thy_syntax.ML";
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    27
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    28
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    29
(* install sections: domain, generated *)
243
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
    30
1285
4dd0651d692d removed incompatibility with sml
regensbu
parents: 1274
diff changeset
    31
use "domain/library.ML";
4dd0651d692d removed incompatibility with sml
regensbu
parents: 1274
diff changeset
    32
use "domain/syntax.ML";
4dd0651d692d removed incompatibility with sml
regensbu
parents: 1274
diff changeset
    33
use "domain/axioms.ML";
4dd0651d692d removed incompatibility with sml
regensbu
parents: 1274
diff changeset
    34
use "domain/theorems.ML";
4dd0651d692d removed incompatibility with sml
regensbu
parents: 1274
diff changeset
    35
use "domain/extender.ML";
4dd0651d692d removed incompatibility with sml
regensbu
parents: 1274
diff changeset
    36
use "domain/interface.ML";
297
5ef75ff3baeb Franz fragen
nipkow
parents: 243
diff changeset
    37
1274
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    38
init_thy_reader();
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    39
init_pps ();
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    40
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    41
print_depth 100;  
243
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
    42
1307
63a5788774f7 added init_html and make_chart
clasohm
parents: 1285
diff changeset
    43
make_chart ();   (*make HTML chart*)
63a5788774f7 added init_html and make_chart
clasohm
parents: 1285
diff changeset
    44
243
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
    45
val HOLCF_build_completed = ();	(*indicate successful build*)