--- a/src/HOL/Metis_Examples/HO_Reas.thy Fri May 20 18:01:46 2011 +0200
+++ b/src/HOL/Metis_Examples/HO_Reas.thy Fri May 20 18:12:12 2011 +0200
@@ -56,7 +56,7 @@
lemma "id (op =) x x"
sledgehammer [type_sys = erased, expect = none] (id_apply)
-sledgehammer [type_sys = poly_tags?, expect = some] (id_apply)
+sledgehammer [type_sys = poly_tags?, expect = none] (id_apply) (* unfortunate *)
sledgehammer [type_sys = poly_tags, expect = some] (id_apply)
sledgehammer [type_sys = poly_preds?, expect = some] (id_apply)
sledgehammer [type_sys = poly_preds, expect = some] (id_apply)