--- a/src/HOLCF/IOA/Modelcheck/MuIOA.thy Fri Jun 19 17:26:40 2009 +0200
+++ b/src/HOLCF/IOA/Modelcheck/MuIOA.thy Fri Jun 19 19:45:00 2009 +0200
@@ -184,7 +184,7 @@
val subgoal = Thm.term_of csubgoal;
in
(let
- val weak_case_congs = (map (#weak_case_cong o snd) o Symtab.dest o DatatypePackage.get_datatypes) sign;
+ val weak_case_congs = (map (#weak_case_cong o snd) o Symtab.dest o Datatype.get_datatypes) sign;
val concl = Logic.strip_imp_concl subgoal;
val ic_str = delete_ul_string(Syntax.string_of_term_global sign (IntC sign concl));
val ia_str = delete_ul_string(Syntax.string_of_term_global sign (IntA sign concl));
--- a/src/HOLCF/Tools/pcpodef_package.ML Fri Jun 19 17:26:40 2009 +0200
+++ b/src/HOLCF/Tools/pcpodef_package.ML Fri Jun 19 19:45:00 2009 +0200
@@ -73,7 +73,7 @@
fun make_po tac thy1 =
let
val ((_, {type_definition, set_def, ...}), thy2) = thy1
- |> TypedefPackage.add_typedef def (SOME name) (t, vs, mx) set opt_morphs tac;
+ |> Typedef.add_typedef def (SOME name) (t, vs, mx) set opt_morphs tac;
val lthy3 = thy2
|> TheoryTarget.instantiation ([full_tname], lhs_tfrees, @{sort po});
val below_def' = Syntax.check_term lthy3 below_def;