src/HOL/Tools/ATP/atp_waldmeister.ML
changeset 58408 bd5e49fca1fd
parent 58406 539cc471186f
child 58411 e3d0354d2129
equal deleted inserted replaced
58407:111d801b5d5d 58408:bd5e49fca1fd
   543 fun get_skolem_info info names = case map (lookup info) names |> List.find is_some of
   543 fun get_skolem_info info names = case map (lookup info) names |> List.find is_some of
   544   SOME x => x |
   544   SOME x => x |
   545   NONE => NONE
   545   NONE => NONE
   546 
   546 
   547 fun fix_name name = 
   547 fun fix_name name = 
   548   if  String.isPrefix fact_prefix name andalso String.isSuffix "_J" name then
   548   if String.isPrefix fact_prefix name andalso String.isSuffix "_J" name then
   549     String.extract(name, size fact_prefix + 2,NONE) |> unascii_of |> 
   549     String.extract(name, size fact_prefix + 2,NONE) |> unascii_of |> 
   550     (fn x => fact_prefix ^ "0_" ^ x)
   550     (fn x => fact_prefix ^ "0_" ^ x)
   551   else
   551   else
   552     name
   552     name
   553 
   553