(* Title: HOLCF/HOLCF.thy
ID: $Id$
Author: Franz Regensburger
HOLCF -- a semantic extension of HOL by the LCF logic.
*)
theory HOLCF
imports Sprod Ssum Up Lift Discrete One Tr Domain ConvexPD Main
uses
"holcf_logic.ML"
"Tools/cont_consts.ML"
"Tools/domain/domain_library.ML"
"Tools/domain/domain_syntax.ML"
"Tools/domain/domain_axioms.ML"
"Tools/domain/domain_theorems.ML"
"Tools/domain/domain_extender.ML"
"Tools/adm_tac.ML"
begin
defaultsort pcpo
ML_setup {*
change_simpset (fn simpset => simpset addSolver
(mk_solver' "adm_tac" (fn ss =>
adm_tac (cut_facts_tac (Simplifier.prems_of_ss ss) THEN' cont_tacRs ss))));
*}
end