# HG changeset patch
# User blanchet
# Date 1307385395 -7200
# Node ID 29a3a1a7794d520b3871779ef1b9378563733b58
# Parent  4ca344fe0aca75525dce65d3d8610d0381d2c7d2
only uncombine combinators in textual Isar proofs, not in Metis

diff -r 4ca344fe0aca -r 29a3a1a7794d src/HOL/Tools/ATP/atp_reconstruct.ML
--- a/src/HOL/Tools/ATP/atp_reconstruct.ML	Mon Jun 06 20:36:35 2011 +0200
+++ b/src/HOL/Tools/ATP/atp_reconstruct.ML	Mon Jun 06 20:36:35 2011 +0200
@@ -584,7 +584,7 @@
 fun prop_from_atp ctxt textual sym_tab =
   let val thy = Proof_Context.theory_of ctxt in
     raw_prop_from_atp ctxt textual sym_tab
-    #> uncombine_term thy #> infer_formula_types ctxt
+    #> textual ? uncombine_term thy #> infer_formula_types ctxt
   end
 
 (**** Translation of TSTP files to Isar proofs ****)