discontinued ancient tradition to suffix certain ML module names with "_package"
authorhaftmann
Fri, 19 Jun 2009 19:45:00 +0200
changeset 31725 f08507464b9d
parent 31724 9b5a128cdb5c
child 31726 ffd2dc631d88
discontinued ancient tradition to suffix certain ML module names with "_package"
src/HOLCF/IOA/Modelcheck/MuIOA.thy
src/HOLCF/Tools/pcpodef_package.ML
--- 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;