--- a/src/Pure/Thy/thm_deps.ML Tue Apr 26 09:50:17 2011 +0200
+++ b/src/Pure/Thy/thm_deps.ML Tue Apr 26 15:56:15 2011 +0200
@@ -80,7 +80,8 @@
val (thms', _) = fold (fn (a, (th, concealed, group)) => fn q as (thms, seen_groups) =>
if not concealed andalso
- member (op =) [Thm.theoremK, Thm.lemmaK, Thm.corollaryK] (Thm.get_kind th) andalso
+ (* FIXME replace by robust treatment of thm groups *)
+ member (op =) [Thm.theoremK, Thm.lemmaK, Thm.corollaryK] (Thm.legacy_get_kind th) andalso
is_unused a
then
(case group of