src/HOLCF/ROOT.ML
author berghofe
Wed, 06 Aug 1997 00:37:21 +0200
changeset 3608 d81caea336ba
parent 3511 da4dd8b7ced4
child 3623 e843c1d6f9e1
permissions -rw-r--r--
Replaced "init_thy_reader" by set_parser.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1461
6bcb44e4d6e5 expanded tabs
clasohm
parents: 1361
diff changeset
     1
(*  Title:      HOLCF/ROOT
243
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
     2
    ID:         $Id$
1461
6bcb44e4d6e5 expanded tabs
clasohm
parents: 1361
diff changeset
     3
    Author:     Franz Regensburger
6bcb44e4d6e5 expanded tabs
clasohm
parents: 1361
diff changeset
     4
    Copyright   1993 Technische Universitaet Muenchen
243
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";
2394
91d8abf108be adaptions for symbol font
oheimb
parents: 2353
diff changeset
    11
writeln banner;
1274
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    12
243
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
    13
print_depth 1;
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
    14
1274
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    15
use_thy "HOLCF";
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    16
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    17
(* install sections: axioms, ops *)
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    18
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    19
use "ax_ops/holcflogic.ML";
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    20
use "ax_ops/thy_axioms.ML";
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    21
use "ax_ops/thy_ops.ML";
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    22
use "ax_ops/thy_syntax.ML";
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    23
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    24
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    25
(* install sections: domain, generated *)
243
c22b85994e17 Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff changeset
    26
1285
4dd0651d692d removed incompatibility with sml
regensbu
parents: 1274
diff changeset
    27
use "domain/library.ML";
4dd0651d692d removed incompatibility with sml
regensbu
parents: 1274
diff changeset
    28
use "domain/syntax.ML";
4dd0651d692d removed incompatibility with sml
regensbu
parents: 1274
diff changeset
    29
use "domain/axioms.ML";
4dd0651d692d removed incompatibility with sml
regensbu
parents: 1274
diff changeset
    30
use "domain/theorems.ML";
4dd0651d692d removed incompatibility with sml
regensbu
parents: 1274
diff changeset
    31
use "domain/extender.ML";
4dd0651d692d removed incompatibility with sml
regensbu
parents: 1274
diff changeset
    32
use "domain/interface.ML";
297
5ef75ff3baeb Franz fragen
nipkow
parents: 243
diff changeset
    33
3608
d81caea336ba Replaced "init_thy_reader" by set_parser.
berghofe
parents: 3511
diff changeset
    34
set_parser ThySyn.parse;
1274
ea0668a1c0ba added 8bit pragmas
regensbu
parents: 1267
diff changeset
    35
2353
7405e3cac88a qed_spec_mp moved to end of file
sandnerr
parents: 2282
diff changeset
    36
fun qed_spec_mp name =
7405e3cac88a qed_spec_mp moved to end of file
sandnerr
parents: 2282
diff changeset
    37
  let val thm = normalize_thm [RSspec,RSmp] (result())
7405e3cac88a qed_spec_mp moved to end of file
sandnerr
parents: 2282
diff changeset
    38
  in bind_thm(name, thm) end;
7405e3cac88a qed_spec_mp moved to end of file
sandnerr
parents: 2282
diff changeset
    39
2394
91d8abf108be adaptions for symbol font
oheimb
parents: 2353
diff changeset
    40
print_depth 10;  
91d8abf108be adaptions for symbol font
oheimb
parents: 2353
diff changeset
    41
1461
6bcb44e4d6e5 expanded tabs
clasohm
parents: 1361
diff changeset
    42
val HOLCF_build_completed = (); (*indicate successful build*)