# HG changeset patch
# User haftmann
# Date 1245783811 -7200
# Node ID 4751b2a2c5c873558fa0a7838768d699f0b15d32
# Parent  a5ad48ae17e55c2ecbed5b52244aaea243edd7a8
Datatype.get_all

diff -r a5ad48ae17e5 -r 4751b2a2c5c8 src/HOLCF/IOA/Modelcheck/MuIOA.thy
--- a/src/HOLCF/IOA/Modelcheck/MuIOA.thy	Tue Jun 23 18:10:39 2009 +0200
+++ b/src/HOLCF/IOA/Modelcheck/MuIOA.thy	Tue Jun 23 21:03:31 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 Datatype.get_datatypes) sign;
+    val weak_case_congs = (map (#weak_case_cong o snd) o Symtab.dest o Datatype.get_all) 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));