author | huffman |
Fri, 10 Apr 2009 17:39:53 -0700 | |
changeset 30911 | 7809cbaa1b61 |
parent 30910 | a7cc0ef93269 |
child 31076 | 99fe356cbbc2 |
permissions | -rw-r--r-- |
1479 | 1 |
(* Title: HOLCF/HOLCF.thy |
2 |
Author: Franz Regensburger |
|
243
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff
changeset
|
3 |
|
16841 | 4 |
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
|
5 |
*) |
c22b85994e17
Franz Regensburger's Higher-Order Logic of Computable Functions embedding LCF
nipkow
parents:
diff
changeset
|
6 |
|
15650 | 7 |
theory HOLCF |
29130 | 8 |
imports |
29534 | 9 |
Domain ConvexPD Algebraic Universal Sum_Cpo Main |
16841 | 10 |
uses |
11 |
"holcf_logic.ML" |
|
23152 | 12 |
"Tools/adm_tac.ML" |
15650 | 13 |
begin |
14 |
||
25904 | 15 |
defaultsort pcpo |
16 |
||
26339 | 17 |
declaration {* fn _ => |
18 |
Simplifier.map_ss (fn simpset => simpset addSolver |
|
17612 | 19 |
(mk_solver' "adm_tac" (fn ss => |
30603 | 20 |
Adm.adm_tac (Simplifier.the_context ss) |
21 |
(cut_facts_tac (Simplifier.prems_of_ss ss) THEN' cont_tacRs ss)))); |
|
16841 | 22 |
*} |
23 |
||
15650 | 24 |
end |