| author | haftmann | 
| Mon, 20 Apr 2009 16:28:13 +0200 | |
| changeset 30957 | 20d01210b9b1 | 
| parent 30603 | 71180005f251 | 
| child 30910 | a7cc0ef93269 | 
| 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/cont_consts.ML"  | 
| 
29530
 
9905b660612b
change to simpler, more extensible continuity simproc
 
huffman 
parents: 
29355 
diff
changeset
 | 
13  | 
"Tools/cont_proc.ML"  | 
| 23152 | 14  | 
"Tools/domain/domain_library.ML"  | 
15  | 
"Tools/domain/domain_syntax.ML"  | 
|
16  | 
"Tools/domain/domain_axioms.ML"  | 
|
17  | 
"Tools/domain/domain_theorems.ML"  | 
|
18  | 
"Tools/domain/domain_extender.ML"  | 
|
19  | 
"Tools/adm_tac.ML"  | 
|
| 15650 | 20  | 
begin  | 
21  | 
||
| 25904 | 22  | 
defaultsort pcpo  | 
23  | 
||
| 26339 | 24  | 
declaration {* fn _ =>
 | 
25  | 
Simplifier.map_ss (fn simpset => simpset addSolver  | 
|
| 17612 | 26  | 
(mk_solver' "adm_tac" (fn ss =>  | 
| 30603 | 27  | 
Adm.adm_tac (Simplifier.the_context ss)  | 
28  | 
(cut_facts_tac (Simplifier.prems_of_ss ss) THEN' cont_tacRs ss))));  | 
|
| 16841 | 29  | 
*}  | 
30  | 
||
| 15650 | 31  | 
end  |