improved Sledgehammer's HOL proof parser w.r.t. negation
--- a/src/HOL/Tools/ATP/atp_proof.ML Sun Sep 24 15:55:42 2023 +0200
+++ b/src/HOL/Tools/ATP/atp_proof.ML Mon Sep 25 17:16:32 2023 +0200
@@ -524,7 +524,7 @@
else
I))
ys t)
- || Scan.this_string tptp_not |-- parse_hol_term >> mk_app (mk_simple_aterm tptp_not)
+ || Scan.this_string tptp_not |-- parse_simple_hol_term >> mk_app (mk_simple_aterm tptp_not)
|| scan_general_id -- Scan.option ($$ tptp_has_type |-- parse_type)
>> (fn (var, typ_opt) => ATerm ((var, the_list typ_opt), []))
|| parse_hol_quantifier >> mk_simple_aterm