Datatype.get_all
authorhaftmann
Tue, 23 Jun 2009 21:03:31 +0200
changeset 31787 4751b2a2c5c8
parent 31786 a5ad48ae17e5
child 31788 496c86f5f9e9
Datatype.get_all
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));