# HG changeset patch
# User haftmann
# Date 1245433500 -7200
# Node ID f08507464b9d8799d5ba2bac369e735ae534773d
# Parent  9b5a128cdb5c63a8a2a00537b02ac888e78f26cd
discontinued ancient tradition to suffix certain ML module names with "_package"

diff -r 9b5a128cdb5c -r f08507464b9d src/HOLCF/IOA/Modelcheck/MuIOA.thy
--- 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));
diff -r 9b5a128cdb5c -r f08507464b9d src/HOLCF/Tools/pcpodef_package.ML
--- 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;