author | steckerm |
Sat, 20 Sep 2014 10:44:24 +0200 | |
changeset 58408 | bd5e49fca1fd |
parent 58407 | 111d801b5d5d |
child 58409 | 24096e89c131 |
--- a/src/HOL/Tools/ATP/atp_waldmeister.ML Sat Sep 20 10:44:24 2014 +0200 +++ b/src/HOL/Tools/ATP/atp_waldmeister.ML Sat Sep 20 10:44:24 2014 +0200 @@ -545,7 +545,7 @@ NONE => NONE fun fix_name name = - if String.isPrefix fact_prefix name andalso String.isSuffix "_J" name then + if String.isPrefix fact_prefix name andalso String.isSuffix "_J" name then String.extract(name, size fact_prefix + 2,NONE) |> unascii_of |> (fn x => fact_prefix ^ "0_" ^ x) else