--- a/src/HOL/Tools/ATP/atp_proof.ML Fri Dec 20 11:34:07 2013 +0100
+++ b/src/HOL/Tools/ATP/atp_proof.ML Fri Dec 20 14:27:07 2013 +0100
@@ -465,7 +465,7 @@
((Scan.this_string "Input" || Scan.this_string "Conj") |-- $$ "(" |-- scan_general_id
--| $$ ")") x
fun parse_spass_pirate_inference_source x =
- (scan_general_id |-- $$ "(" -- parse_spass_pirate_dependencies --| $$ ")") x
+ (scan_general_id -- ($$ "(" |-- parse_spass_pirate_dependencies --| $$ ")")) x
fun parse_spass_pirate_source x =
(parse_spass_pirate_file_source >> (fn s => File_Source ("", SOME s))
|| parse_spass_pirate_inference_source >> Inference_Source) x