author | wenzelm |
Fri, 23 Sep 2005 22:21:52 +0200 | |
changeset 17612 | 5b37787d2d9e |
parent 16841 | 228d663cc9b3 |
child 17876 | b9c92f384109 |
permissions | -rw-r--r-- |
1479 | 1 |
(* Title: HOLCF/HOLCF.thy |
243
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff
changeset
|
2 |
ID: $Id$ |
1479 | 3 |
Author: Franz Regensburger |
243
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff
changeset
|
4 |
|
16841 | 5 |
HOLCF -- a semantic extension of HOL by the LCF logic. |
243
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff
changeset
|
6 |
*) |
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff
changeset
|
7 |
|
15650 | 8 |
theory HOLCF |
15742 | 9 |
imports Sprod Ssum Up Lift Discrete One Tr Domain |
16841 | 10 |
uses |
11 |
"holcf_logic.ML" |
|
12 |
"cont_consts.ML" |
|
13 |
"domain/library.ML" |
|
14 |
"domain/syntax.ML" |
|
15 |
"domain/axioms.ML" |
|
16 |
"domain/theorems.ML" |
|
17 |
"domain/extender.ML" |
|
18 |
"domain/interface.ML" |
|
19 |
"adm_tac.ML" |
|
20 |
||
15650 | 21 |
begin |
22 |
||
16841 | 23 |
ML_setup {* |
24 |
simpset_ref() := simpset() addSolver |
|
17612 | 25 |
(mk_solver' "adm_tac" (fn ss => |
26 |
adm_tac (cut_facts_tac (Simplifier.prems_of_ss ss) THEN' cont_tacRs ss))); |
|
16841 | 27 |
*} |
28 |
||
15650 | 29 |
end |