| author | wenzelm | 
| Thu, 27 Mar 2008 15:32:19 +0100 | |
| changeset 26436 | dfd6947ab5c2 | 
| parent 26339 | 7825c83c9eff | 
| child 28892 | 435f3718ed9d | 
| 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 | 
| 25904 | 9 | imports Sprod Ssum Up Lift Discrete One Tr Domain ConvexPD Main | 
| 16841 | 10 | uses | 
| 11 | "holcf_logic.ML" | |
| 23152 | 12 | "Tools/cont_consts.ML" | 
| 13 | "Tools/domain/domain_library.ML" | |
| 14 | "Tools/domain/domain_syntax.ML" | |
| 15 | "Tools/domain/domain_axioms.ML" | |
| 16 | "Tools/domain/domain_theorems.ML" | |
| 17 | "Tools/domain/domain_extender.ML" | |
| 18 | "Tools/adm_tac.ML" | |
| 16841 | 19 | |
| 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 => | 
| 17876 | 27 | adm_tac (cut_facts_tac (Simplifier.prems_of_ss ss) THEN' cont_tacRs ss)))); | 
| 16841 | 28 | *} | 
| 29 | ||
| 15650 | 30 | end |