# HG changeset patch
# User blanchet
# Date 1301563013 -7200
# Node ID 8f25605e646c38e5b95b3c3c95d54bc6d61005b4
# Parent  a6c141925a8a3277c8c35889458b39e551643ffd
temporary workaround: filter out spurious monomorphic instances

diff -r a6c141925a8a -r 8f25605e646c src/HOL/Tools/SMT/smt_monomorph.ML
--- a/src/HOL/Tools/SMT/smt_monomorph.ML	Thu Mar 31 11:16:52 2011 +0200
+++ b/src/HOL/Tools/SMT/smt_monomorph.ML	Thu Mar 31 11:16:53 2011 +0200
@@ -28,6 +28,7 @@
 
 signature SMT_MONOMORPH =
 sig
+  val typ_has_tvars: typ -> bool
   val monomorph: ('a * thm) list -> Proof.context ->
     ('a * thm) list * Proof.context
 end
diff -r a6c141925a8a -r 8f25605e646c src/HOL/Tools/Sledgehammer/sledgehammer_provers.ML
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_provers.ML	Thu Mar 31 11:16:52 2011 +0200
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_provers.ML	Thu Mar 31 11:16:53 2011 +0200
@@ -348,12 +348,20 @@
         val facts = facts |> map untranslated_fact
         val indexed_facts =
           (~1, goal) :: (0 upto length facts - 1 ~~ map snd facts)
+        val (mono_facts, ctxt') =
+          ctxt |> Config.put SMT_Config.monomorph_limit monomorphize_limit
+               |> SMT_Monomorph.monomorph indexed_facts
       in
-        ctxt |> Config.put SMT_Config.monomorph_limit monomorphize_limit
-             |> SMT_Monomorph.monomorph indexed_facts |> fst
-             |> sort (int_ord o pairself fst)
-             |> filter_out (curry (op =) ~1 o fst)
-             |> map (Untranslated_Fact o apfst (fst o nth facts))
+        mono_facts
+        |> sort (int_ord o pairself fst)
+        |> filter_out (curry (op =) ~1 o fst)
+        (* The next step shouldn't be necessary but currently the monomorphizer
+           generates unexpected instances with fresh TFrees, which typically
+           become TVars once exported. *)
+        |> filter_out (Term.exists_type SMT_Monomorph.typ_has_tvars
+                       o singleton (Variable.export_terms ctxt' ctxt)
+                       o prop_of o snd)
+        |> map (Untranslated_Fact o apfst (fst o nth facts))
       end
     val facts = facts |> monomorphize ? monomorphize_facts
                       |> map (atp_translated_fact ctxt)